Changeset 17 for trunk/gui/scripts/editor.tcl

Timestamp:

Jun 11, 2005 9:56:37 PM (19 years ago)

Author:

mmc

Message:

Added a capability to MainWin? to syncCutBuffer with the
application. The VNC Java client uses the cutbuffer
instead of the selection for Copy/Paste? to desktop, and
this mechanism keeps the two in sync so Copy/Paste? works
properly. Also, added Cut/Copy/Paste? menus to the right
mouse button of various widgets.

Fixed 3D plotting to work with the vtkCutter so it works
better. Also, added support for 3D meshes in addition
to clouds. Meshes store connectivity, so they are better
at representing holes in data. Fixed the 3D plotter so
that rotate is more intuitive, and added lights so you can
see your data better at any angle.

Fixed the loader so that it can load elements with the ""
value, and so that it doesn't duplicate entries found
more than once by *.xml pattern matching.

File:

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

trunk/gui/scripts/editor.tcl

@@ -91 +91 @@
         [itcl::code $this _click %X %Y]
 
+    itk_component add emenu {
+        menu $itk_component(editor).menu -tearoff 0
+    } {
+        usual
+        ignore -tearoff
+        ignore -background -foreground
+    }
+    $itk_component(emenu) add command -label "Cut" -accelerator "^X" \
+        -command [list event generate $itk_component(editor) <<Cut>>]
+    $itk_component(emenu) add command -label "Copy" -accelerator "^C" \
+        -command [list event generate $itk_component(editor) <<Copy>>]
+    $itk_component(emenu) add command -label "Paste" -accelerator "^V" \
+        -command [list event generate $itk_component(editor) <<Paste>>]
+    bind $itk_component(editor) <<PopupMenu>> {
+        tk_popup %W.menu %X %Y
+    }
+
     eval itk_initialize $args
 }
@@ -104 +121 @@
 itcl::body Rappture::Editor::activate {} {
     set e $itk_component(editor)
+    if {[winfo ismapped $e]} {
+        return  ;# already mapped -- nothing to do
+    }
 
     set info ""
@@ -234 +254 @@
     if {[winfo containing $x $y] != $itk_component(editor)} {
         deactivate
+    } else {
+        # make sure the editor has keyboard focus!
+        # it loses focus sometimes during cut/copy/paste operations
+        focus -force $itk_component(editor)
     }
 }