SRSTK bug
When using srstk with tk4.0 and higher, the following problem could occur:
Selecting a query set from the query sets listbox where already one set was
selected would result in two sets to be selected, where the rest of the
program expects just one set to be selected. To correct this change in the
file "srstk.tcl" at line 178:
old:
if {$oldTK} {
set selcomm "select from"
} else {
set selcomm "selection set"
}
bind .query.qhist.fr.list <Button-1> \
"%W $selcomm \[%W nearest %y\] ;SelField .mbar.fields.menu \$Set
Dbs(\[SelSet .query.qhist.fr.list\])"
New:
set bcomm \
{SelField .mbar.fields.menu $SetDbs([SelSet .query.qhist.fr.list])}
if {$oldTK} {
bind .query.qhist.fr.list <Button-1> \
"%W select from \[%W nearest %y\] ; $bcomm"
} else {
bind .query.qhist.fr.list <Button-1> \
"%W selection clear 0 end; %W selection set \[%W nearest %y\] ; $bcomm"
}
==================================================
Regards Gijs
+----------------------------+-----------------------------------+
Gijs Schaftenaar, Drs. | CAOS/CAMM Center
Email: schaft at caos.kun.nl | University of Nijmegen
URL : http://www.caos.kun.nl/staff/schaft.html
Tel. : +31 80 65 33 69 | Toernooiveld 1
Fax : +31 80 65 29 77 | 6525 ED Nijmegen, The Netherlands
+-------- CAOS/CAMM is the Dutch National Node in EMBnet --------+
