Changeset 17 for trunk/gui/scripts/textentry.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/textentry.tcl (modified) (4 diffs)

trunk/gui/scripts/textentry.tcl

@@ -109 +109 @@
         if {$_mode == "entry"} {
             $itk_component(entry) configure -state normal
+            $itk_component(emenu) entryconfigure "Cut" -state normal
+            $itk_component(emenu) entryconfigure "Copy" -state normal
+            $itk_component(emenu) entryconfigure "Paste" -state normal
             $itk_component(entry) delete 0 end
             $itk_component(entry) insert 0 $newval
             if {!$itk_option(-editable)} {
                 $itk_component(entry) configure -state disabled
+                $itk_component(emenu) entryconfigure "Cut" -state disabled
+                $itk_component(emenu) entryconfigure "Copy" -state disabled
+                $itk_component(emenu) entryconfigure "Paste" -state disabled
             }
         } elseif {$_mode == "text"} {
             $itk_component(text) configure -state normal
+            $itk_component(tmenu) entryconfigure "Cut" -state normal
+            $itk_component(tmenu) entryconfigure "Copy" -state normal
+            $itk_component(tmenu) entryconfigure "Paste" -state normal
             $itk_component(text) delete 1.0 end
             $itk_component(text) insert end $newval
             if {!$itk_option(-editable)} {
                 $itk_component(text) configure -state disabled
+                $itk_component(tmenu) entryconfigure "Cut" -state disabled
+                $itk_component(tmenu) entryconfigure "Copy" -state disabled
+                $itk_component(tmenu) entryconfigure "Paste" -state disabled
             }
         }
@@ -231 +243 @@
                 -foreground $itk_option(-textforeground)
 
+            itk_component add emenu {
+                menu $itk_component(entry).menu -tearoff 0
+            }
+            $itk_component(emenu) add command -label "Cut" -accelerator "^X" \
+                -command [list event generate $itk_component(entry) <<Cut>>]
+            $itk_component(emenu) add command -label "Copy" -accelerator "^C" \
+                -command [list event generate $itk_component(entry) <<Copy>>]
+            $itk_component(emenu) add command -label "Paste" -accelerator "^V" \
+                -command [list event generate $itk_component(entry) <<Paste>>]
+            bind $itk_component(entry) <<PopupMenu>> {
+                tk_popup %W.menu %X %Y
+            }
+
             $itk_component(entry) insert end $val
             if {!$itk_option(-editable)} {
@@ -270 +295 @@
             $itk_component(scrollbars) contents $itk_component(text)
 
+            itk_component add tmenu {
+                menu $itk_component(text).menu -tearoff 0
+            }
+            $itk_component(tmenu) add command -label "Cut" -accelerator "^X" \
+                -command [list event generate $itk_component(text) <<Cut>>]
+            $itk_component(tmenu) add command -label "Copy" -accelerator "^C" \
+                -command [list event generate $itk_component(text) <<Copy>>]
+            $itk_component(tmenu) add command -label "Paste" -accelerator "^V" \
+                -command [list event generate $itk_component(text) <<Paste>>]
+            bind $itk_component(text) <<PopupMenu>> {
+                tk_popup %W.menu %X %Y
+            }
+
             $itk_component(text) insert end $val
             if {!$itk_option(-editable)} {
                 $itk_component(text) configure -state disabled
+                $itk_component(menu) entryconfigure "Cut" -state disabled
+                $itk_component(menu) entryconfigure "Copy" -state disabled
+                $itk_component(menu) entryconfigure "Paste" -state disabled
             }
             set _mode "text"
@@ -306 +347 @@
     if {$_mode == "entry"} {
         $itk_component(editor) configure -state $state
+        $itk_component(emenu) entryconfigure "Cut" -state $state
+        $itk_component(emenu) entryconfigure "Copy" -state $state
+        $itk_component(emenu) entryconfigure "Paste" -state $state
     } elseif {$_mode == "text"} {
         $itk_component(text) configure -state $state
+        $itk_component(tmenu) entryconfigure "Cut" -state $state
+        $itk_component(tmenu) entryconfigure "Copy" -state $state
+        $itk_component(tmenu) entryconfigure "Paste" -state $state
     }
 }