diff options
Diffstat (limited to 'demos/random.tcl')
| -rw-r--r-- | demos/random.tcl | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/demos/random.tcl b/demos/random.tcl index d7a76c3..e9f1a1f 100644 --- a/demos/random.tcl +++ b/demos/random.tcl @@ -142,10 +142,6 @@ proc DemoRandom {} { TreeCtrl::RandomMotion1 %W %x %y break } - bind TreeCtrlRandom <Button1-Leave> { - TreeCtrl::RandomLeave1 %W %x %y - break - } bind TreeCtrlRandom <ButtonRelease-1> { TreeCtrl::RandomRelease1 %W %x %y break @@ -333,18 +329,6 @@ proc TreeCtrl::RandomMotion {T x y} { } return } -proc TreeCtrl::RandomLeave1 {T x y} { - variable Priv - # This is called when I do ButtonPress-1 on Unix for some reason, - # and buttonMode is undefined. - if {![info exists Priv(buttonMode)]} return - switch $Priv(buttonMode) { - default { - Leave1 $T $x $y - } - } - return -} proc TreeCtrl::RandomRelease1 {T x y} { variable Priv if {![info exists Priv(buttonMode)]} return |