баг в jim-tcl — как обычно — оказался всего лишь иллюзией. конечно, кривокоду немало поспособствовала подробнейшая документация по API. зато маинтайнер отозвался оперативно, дал пару хинтов и баг был с особым садизмом растоптан.
а ещё в появились lineedit'ы, scrollbar'ы и listbox'ы. и вся эта красотища рулится прямиком из tcl, примерно так:
set win [winsys window red win0 $::win_x $::win_y 180 120 title]
set ok [$win button ok 2 $([$win geth]-9-12) -1 -1 O&K [lambda {me} {
set win [$me window]
puts [[$win findbyid cb1] getstate]
puts [[$win findbyid led0] gettext]
}]]
$ok setdefault
$ok activate
#
set st [$win static static_name 2 2 -1 -1 {&name:}]
#
set le [$win lineedit led0 $([$st getx]+[$st getw]+2) [$st gety] 60 -1 text]
$st setlinked $le
#
set cb1 [$win checkbox cb1 [$st getx] $([$st gety]+[$st geth]+1) -1 -1 {checkbox &1}]
$cb1 setstate 1