original text:
foreach id [$editor retrieve] {
foreach item [$id items] {
set tags [$w.canvas gettags $item]
if {[lsearch $tags label$item] >= 0} {
set label [$w.canvas itemcget $item -text]
if {[lsearch -$type $label $regex] >= 0} {
$id select
}
}
}
}
modyfied text:
foreach id [$editor retrieve] {
foreach item [$id items] {
# das label steht in dem tag mit der Nr. $item+1, deshalb
# wurde die Variable item1 eingefuehrt. Udo Buergel 7.8.95.
set item1 [expr $item+1]
set tags [$w.canvas gettags $item1]
if {[lsearch $tags label$item] >= 0} {
set label [$w.canvas itemcget $item1 -text]
if {[lsearch -$type $label $regex] >= 0} {
$id select
}
}
}
}
and recompiling tkined it worked !!!
An other point is that after installing tkined_1.3.2 a
tk-errormessage with the text
invalid command name ".tkined0.canvas.fs.box.filelist"
while executing
".tkined0.canvas.fs.box.filelist index @36,92"
invoked from within
"tkListboxBeginSelect .tkined0.canvas.fs.box.filelist [.tkined0.canvas.fs.box.filelist index @36,92]..."
(command bound to event)
appears after selecting a tki-file with the open-function. After
skipping over this errormessage there isn't any problem. Thanks
in advance for comments to my problems.
Udo Buergel
buergel@goofy.uni-mainz.de