Changeset 4034 for trunk

Timestamp:

Nov 4, 2013, 1:17:52 PM (11 years ago)

Author:

ldelgass

Message:

Add key press/release events

File:

• trunk/gui/scripts/geoviewer.tcl (modified) (3 diffs)

trunk/gui/scripts/geoviewer.tcl

@@ -71 +71 @@
     protected method AdjustSetting {what {value ""}}
     protected method FixSettings { args  }
+    protected method KeyPress { key }
+    protected method KeyRelease { key }
     protected method MouseClick { button x y }
     protected method MouseDoubleClick { button x y }
@@ -281 +283 @@
         0,0 $itk_component(view) -fill both -reqwidth $w 
     blt::table configure $itk_component(plotarea) c1 -resize none
+
+    # Bindings for keyboard events
+    bind $itk_component(view) <KeyPress> \
+        [itcl::code $this KeyPress %N]
+    bind $itk_component(view) <KeyRelease> \
+        [itcl::code $this KeyRelease %N]
 
     # Bindings for rotation via mouse
@@ -988 +996 @@
 }
 
+itcl::body Rappture::GeoViewer::KeyPress {k} {
+    SendCmd "key press $k"
+}
+
+itcl::body Rappture::GeoViewer::KeyRelease {k} {
+    SendCmd "key release $k"
+}
+
 itcl::body Rappture::GeoViewer::MouseClick {button x y} {
     if {0} {