/[ascend]/trunk/tcltk/TK/BrowserProc.tcl
ViewVC logotype

Diff of /trunk/tcltk/TK/BrowserProc.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 621 by ben.allan, Tue May 9 19:07:39 2006 UTC revision 622 by ben.allan, Thu May 18 15:24:09 2006 UTC
# Line 300  proc BrowUpdateFindCascade {} { Line 300  proc BrowUpdateFindCascade {} {
300      switch $tk_version {      switch $tk_version {
301      8.4 -      8.4 -
302      8.5 {      8.5 {
303      bind $m <Any-Leave> "+        bind $m <Any-Leave> "+
304        set ascPopdata($ascBrowVect(parents).childpop.in) 0        set ascPopdata($ascBrowVect(parents).childpop.in) 0
305        set ascPopdata($ascBrowVect(parents).childpop.id) \        set ascPopdata($ascBrowVect(parents).childpop.id) \
306          \[after \$ascPopdata(delay) \{if \{!\$ascPopdata($ascBrowVect(parents).childpop.in)\} \          \[after \$ascPopdata(delay) \{if \{!\$ascPopdata($ascBrowVect(parents).childpop.in)\} \
# Line 308  proc BrowUpdateFindCascade {} { Line 308  proc BrowUpdateFindCascade {} {
308      "      "
309      }      }
310      default {      default {
311      bind $m <Any-Leave> "+        bind $m <Any-Leave> "+
312        set ascPopdata($ascBrowVect(parents).childpop.in) 0        set ascPopdata($ascBrowVect(parents).childpop.in) 0
313        set ascPopdata($ascBrowVect(parents).childpop.id) \        set ascPopdata($ascBrowVect(parents).childpop.id) \
314          \[after \$ascPopdata(delay) \{if \{!\$ascPopdata($ascBrowVect(parents).childpop.in)\} \          \[after \$ascPopdata(delay) \{if \{!\$ascPopdata($ascBrowVect(parents).childpop.in)\} \
315               \{ tkMenuUnpost $ascBrowVect(parents).childpop \} \}\]               \{ tkMenuUnpost $ascBrowVect(parents).childpop \} \}\]
316      "      "
317          }
318      }      }
319      bind $m <Any-Enter> "+      bind $m <Any-Enter> "+
320        set ascPopdata($ascBrowVect(parents).childpop.in) 1        set ascPopdata($ascBrowVect(parents).childpop.in) 1

Legend:
Removed from v.621  
changed lines
  Added in v.622

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22