srstk bug when using tk4.0

Gijs Schaftenaar schaft at caos.kun.nl
Tue Nov 7 05:42:58 EST 1995


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 --------+





More information about the Bio-srs mailing list