Changeset 4278 for trunk/gui/scripts/mapviewer.tcl

Timestamp:

Mar 26, 2014 2:57:06 PM (10 years ago)

Author:

gah

Message:

add flags to turn on/off motion event compression

File:

• trunk/gui/scripts/mapviewer.tcl (modified) (2 diffs)

trunk/gui/scripts/mapviewer.tcl

@@ -178 +178 @@
         pending         0
         delay           100
+        compress        0
     }
     # Initialize the view to some default parameters.
@@ -1061 +1062 @@
     set _motion(x) $x
     set _motion(y) $y
+    if { !$_motion(compress) } {
+        MouseMotion
+        return
+    }
     if { !$_motion(pending) } {
         set _motion(pending) 1