/[ascend]/trunk/tcltk98/TK/GlobalProc.tcl
ViewVC logotype

Diff of /trunk/tcltk98/TK/GlobalProc.tcl

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

revision 515 by aw0a, Sat Nov 13 16:40:11 2004 UTC revision 516 by ben.allan, Thu Apr 20 08:07:53 2006 UTC
# Line 362  proc set_cmuBindings {} { Line 362  proc set_cmuBindings {} {
362  # baa 6/12/97, tk80b1-no patches  # baa 6/12/97, tk80b1-no patches
363    bind Menubutton <Motion> {    bind Menubutton <Motion> {
364      global tk_strictMotif      global tk_strictMotif
365      if {$tk_strictMotif} {      switch $tk_version {
366        tkMbMotion %W up %X %Y      8.5 -
367      } else {      8.4 {
368        tkMbMotion %W down %X %Y          if {$tk_strictMotif} {
369              tk::MbMotion %W up %X %Y
370            } else {
371              tk::MbMotion %W down %X %Y
372            }
373          }
374        8.3 {
375            if {$tk_strictMotif} {
376              tkMbMotion %W up %X %Y
377            } else {
378              tkMbMotion %W down %X %Y
379            }
380          }
381      }      }
382    }    }
383  # puts "Adding cmu Entry and Text bindings"  # puts "Adding cmu Entry and Text bindings"

Legend:
Removed from v.515  
changed lines
  Added in v.516

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