Changeset 1277 for trunk/gui/scripts/scroller.tcl

Timestamp:

Feb 19, 2009 3:13:35 PM (15 years ago)

Author:

gah

Message:

scripts/xyresult.tcl:

Changed buttons to use new icons (reset and wrench for legend).

scripts/nanovisviewer.tcl:

Changed buttons to use new icons (reset, zoom-in, and zoom-out).

scripts/visviewer.tcl:

Added drawer (pandedwindow) to base class so derived classes
could use it if so desired.

scripts/scroller.tcl:

Added scrollwheel binds for vertical scrolling.

scripts/images/atom-label.gif, scripts/images/reset-view.gif,
scripts/images/wrench.gif, scripts/images/zoom-in.gif,
scripts/images/zoom-out.gif, scripts/images/rock-view.gif:

Added new icons.

scripts/molvisviewer.tcl:

Added projection button to change between orthoscopic and perspective
projects.
Changed settings button into icon.
Moved settings menu into settings drawer.
Added scale to adjust atom scale.
Fixed representation method to not call rebuild when setting
"ballnstick", "lines", or "spheres" representations.
Requires new pymolproxy.

(gah@…)

File:

• trunk/gui/scripts/scroller.tcl (modified) (1 diff)

trunk/gui/scripts/scroller.tcl

@@ -161 +161 @@
     set _contents $widget
 
+    if {[string equal "x11" [tk windowingsystem]]} {
+        bind ${widget} <4> { %W yview scroll -5 units }
+        bind ${widget} <5> { %W yview scroll 5 units }
+    } else {
+        bind ${widget} <MouseWheel> {
+            %W yview scroll [expr {- (%D / 120) * 4}] units
+        }
+    }
     if {$widget == $_frame} {
         return $_frame.f