diff --git a/ng/drawing.tcl b/ng/drawing.tcl index 4388e118..0d27944a 100644 --- a/ng/drawing.tcl +++ b/ng/drawing.tcl @@ -11,7 +11,6 @@ set oldmousey 0 # use this one for Togl 2.0 # if {[catch {togl .ndraw -width 400 -height 300 -rgba true -double true -depth true -privatecmap false -stereo false -indirect true -create init -display draw -reshape reshape }] } { - if {[catch {togl .ndraw -width 400 -height 300 -rgba true -double true -depth true -privatecmap false -stereo false -indirect true }] } { puts "no OpenGL" } { # @@ -104,11 +103,11 @@ bind . { Ng_MouseMove 0 0 0 10 move; redraw } bind . { Ng_MouseMove 0 0 0 -10 zoom; redraw } bind . { Ng_MouseMove 0 0 0 10 zoom; redraw } -bind all \ +bind . \ {event generate [focus -displayof %W] -delta 120} - bind all \ +bind . \ {event generate [focus -displayof %W] -delta -120} -bind all { Ng_MouseMove 0 0 0 [expr {%D/-5}] zoom; redraw } +bind . { Ng_MouseMove 0 0 0 [expr {%D/-5}] zoom; redraw }