Changeset 1024 for branches/sandbox/gsascmds.tcl

Timestamp:

Oct 12, 2010 4:40:02 PM (12 years ago)

Author:

chlake

Message:

Added Mouse Scroll Wheel Focus

File:

• branches/sandbox/gsascmds.tcl (modified) (2 diffs)

branches/sandbox/gsascmds.tcl

@@ -2350 +2350 @@
     $box.can create window 0 0 -anchor nw  -window [frame $box.can.f -bd 2]
     $box.side create window 0 0 -anchor nw  -window [frame $box.side.f -bd 2]
-
     grid columnconfig $box 1 -weight 1
     grid rowconfig $box 1 -weight 1
@@ -2383 +2382 @@
         grid $box.yscroll -sticky ns -column 2 -row 1
     } else {
-        grid forget $box.yscroll 
+        grid forget $box.yscroll
     }
     if {[lindex $sizes 2] > [winfo width $box.can]} {
         grid $box.scroll -sticky ew -column 1 -row 2
     } else {
-        grid forget $box.scroll 
-    }
-}
+        grid forget $box.scroll
+    }
+}
+
+proc MouseWheelScrollTable {box} {
+     # causes mouse wheel to operate scroll for main canvas in ScrollTable
+     # mousewheel can be operated anywhere in parent window
+    bind [winfo toplevel $box] <MouseWheel> "$box.can yview scroll \[expr {-abs(%D)/%D}\] unit"
+}
+
 
 # this is used in cifselect -- not sure why anymore