/[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 581 by johnpye, Tue May 9 00:14:59 2006 UTC revision 582 by ben.allan, Tue May 9 19:07:39 2006 UTC
# Line 265  proc set_Browser_Defaults {} { Line 265  proc set_Browser_Defaults {} {
265  }  }
266  #update disabling on find popup  #update disabling on find popup
267  proc BrowUpdateFindCascade {} {  proc BrowUpdateFindCascade {} {
268    global ascBrowVect ascPopdata    global ascBrowVect ascPopdata tk_version
269      set m $ascBrowVect(parents).childpop.mfind      set m $ascBrowVect(parents).childpop.mfind
270    if {![winfo exists $m]} {    if {![winfo exists $m]} {
271      menu $m \      menu $m \
# Line 297  proc BrowUpdateFindCascade {} { Line 297  proc BrowUpdateFindCascade {} {
297        -underline -1        -underline -1
298      # bindings don't stick if you leave out this update.      # bindings don't stick if you leave out this update.
299      update      update
300        switch $tk_version {
301        8.4 -
302        8.5 {
303        bind $m <Any-Leave> "+
304          set ascPopdata($ascBrowVect(parents).childpop.in) 0
305          set ascPopdata($ascBrowVect(parents).childpop.id) \
306            \[after \$ascPopdata(delay) \{if \{!\$ascPopdata($ascBrowVect(parents).childpop.in)\} \
307                 \{ tk::MenuUnpost $ascBrowVect(parents).childpop \} \}\]
308        "
309        }
310        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      bind $m <Any-Enter> "+      bind $m <Any-Enter> "+
319        set ascPopdata($ascBrowVect(parents).childpop.in) 1        set ascPopdata($ascBrowVect(parents).childpop.in) 1
320        catch \{after cancel \$ascPopdata($ascBrowVect(parents).childpop.id)\}        catch \{after cancel \$ascPopdata($ascBrowVect(parents).childpop.id)\}

Legend:
Removed from v.581  
changed lines
  Added in v.582

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