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

trunk/gui/scripts/mainwin.tcl

@@ -13 +13 @@
 # ======================================================================
 package require Itk
+package require BLT
 
 option add *MainWin.mode desktop widgetDefault
@@ -31 +32 @@
 
     public method draw {option args}
+    public method syncCutBuffer {option args}
 
     protected method _redraw {}
 
     private variable _contents ""  ;# frame containing app
+    private variable _sync         ;# to sync current selection and cut buffer
     private variable _bgscript ""  ;# script of background drawing cmds
     private variable _bgparser ""  ;# parser for bgscript
@@ -96 +99 @@
     set btags [bindtags $itk_component(hull)]
     bindtags $itk_component(hull) [lappend btags RapptureMainWin]
+
+    set _sync(cutbuffer) ""
+    set _sync(selection) ""
+    syncCutBuffer ifneeded
+}
+
+# ----------------------------------------------------------------------
+# USAGE: syncCutBuffer ifneeded
+# USAGE: syncCutBuffer transfer <offset> <maxchars>
+# USAGE: syncCutBuffer lostselection
+#
+# Invoked automatically whenever the mouse pointer enters or leaves
+# a main window to sync the cut buffer with the primary selection.
+# This helps applications work properly with the "Copy/Paste with
+# Desktop" option on the VNC applet for the nanoHUB.
+#
+# The "ifneeded" option syncs the cutbuffer and the primary selection
+# if either one has new data.
+#
+# The "fromselection" option syncs from the primary selection to the
+# cut buffer.  If there's a primary selection, it gets copied to the
+# cut buffer.
+# ----------------------------------------------------------------------
+itcl::body Rappture::MainWin::syncCutBuffer {option args} {
+    set mainwin $itk_component(hull)
+    switch -- $option {
+        ifneeded {
+            #
+            # See if the incoming cut buffer has changed.
+            # If so, then sync the new input to the primary selection.
+            #
+            set s [blt::cutbuffer get]
+            if {"" != $s && ![string equal $s $_sync(cutbuffer)]} {
+                set _sync(cutbuffer) $s
+
+                if {![string equal $s $_sync(selection)]
+                      && [selection own -selection PRIMARY] != $mainwin} {
+                    set _sync(selection) $s
+
+                    clipboard clear
+                    clipboard append -- $s
+                    selection handle -selection PRIMARY $mainwin \
+                        [itcl::code $this syncCutBuffer transfer]
+                    selection own -selection PRIMARY -command \
+                        [itcl::code $this syncCutBuffer lostselection] \
+                        $mainwin
+                }
+            }
+
+            #
+            # See if the selection has changed.  If so, then sync
+            # the new input to the cut buffer, so it's available
+            # outside the VNC client.
+            #
+            set s ""
+            if {[catch {selection get -selection PRIMARY} s] || "" == $s} {
+                if {[catch {clipboard get} s]} {
+                    set s ""
+                }
+            }
+            if {"" != $s && ![string equal $s $_sync(selection)]} {
+                set _sync(selection) $s
+                blt::cutbuffer set $s
+            }
+
+            # do this again soon
+            after 1000 [itcl::code $this syncCutBuffer ifneeded]
+        }
+        transfer {
+            if {[llength $args] != 2} {
+                error "wrong # args: should be \"syncCutBuffer transfer offset max\""
+            }
+            set offset [lindex $args 0]
+            set maxchars [lindex $args 1]
+            return [string range $_currseln $offset [expr {$offset+$maxchars-1}]]
+        }
+        lostselection {
+            # nothing to do
+        }
+        default {
+            error "bad option \"$option\": should be ifneeded, transfer, or lostselection"
+        }
+    }
 }
 
@@ -127 +213 @@
         }
 
+        set bd 0  ;# optional border
         set sw [winfo width $itk_component(area)]
         set sh [winfo height $itk_component(area)]
@@ -133 +220 @@
         set w [winfo reqwidth $itk_component(app)]
         set h [winfo reqheight $itk_component(app)]
-        if {$w > $sw} {
-            set $w $sw
+        if {$w > $sw-2*$bd} {
+            set $w [expr {$sw-2*$bd}]
             set clip 1
         }
@@ -141 +228 @@
             n {
                 set x [expr {$sw/2}]
-                set y 0
+                set y $bd
             }
             s {
                 set x [expr {$sw/2}]
-                set y $sh
+                set y [expr {$sh-$bd}]
             }
             center {
@@ -152 +239 @@
             }
             w {
-                set x 0
+                set x $bd
                 set y [expr {$sh/2}]
             }
             e {
-                set x $sw
+                set x [expr {$sw-$bd}]
                 set y [expr {$sh/2}]
             }
             nw {
-                set x 0
-                set y 0
+                set x $bd
+                set y $bd
             }
             ne {
-                set x $sw
-                set y 0
+                set x [expr {$sw-$bd}]
+                set y $bd
             }
             sw {
-                set x 0
-                set y $sh
+                set x $bd
+                set y [expr {$sh-$bd}]
             }
             se {
-                set x $sw
-                set y $sh
+                set x [expr {$sw-$bd}]
+                set y [expr {$sh-$bd}]
             }
         }