tcl/tk - ассоциировать данные с виджетом

В принципе вот так сработает:

proc DestroyTextReadonlyInfrastructure { pathName } {
    global $pathName.SendToLisp
    unset $pathName.SendToLisp
}

proc InitTextReadonly { pathName } {
    global $pathName.SendToLisp
    set $pathName.SendToLisp 0
    ...
    bind $pathName <Destroy> "+DestroyTextReadonlyInfrastructure $pathName"
    ...
}

Сломается только в том случае, если кто-нибудь мудрый перешибёт Destroy без плюсика. И ещё недостаток в том, что на других обработчиках Destroy эта информация может быть недоступна. Хотелось бы знать, есть ли канонический способ.

используй snit (http://wiki.tcl.tk/3963), а то заплутаешь в дебрях чистого Tk

Плюсую. Если хочется чего-то странного с виджетами - бери Snit и оно перестаёт быть странным.

В данном случае можно сделать Widget Adaptor для text и положить в него все нужные данные.

У меня давно начало складываться мнение насчёт вас, что с меня шашлык.А tclOO не подойдёт? В 8.6 это рекламируемая фича номер 1. А snit, хотя и присутствует, но не объявлен мейнстримом.

Жабство какое-то, зачем отдельная DestroyTextReadonlyInfrastructure? Ниже вешаем обработчик сразу на все виджеты в root-окне, обработчик выполняется в глобальной namespace:

bind . <Destroy> "+catch {unset %W.SendToLisp}"

В реальной жизни там не одна команда. А не unset -nocomplain?

Может я его не осилил, но ИМХО TclOO больше для ОО логики. А для околовиджетного ОО Snit более специализирован.

Повторюсь, лучше тогда спросить у кого-то, кто осилил TclOO.

P.S. Не знаю что там самое рекламируемое, но пользы от apply и coroutine/yield больше, чем от стандартизации одной из существующих ОО-систем.

Ну что, snit пока показал себя годным, удалось даже улучшить старый текст. Вот это я понимаю, ООП. А не то *****, которое в С++.

method insert ... 
delegate method * to hull

Единственное, конечно, как и в любом ООП, увеличивается степень неявности кода.