Changeset 45

Timestamp:

Aug 17, 2005, 3:57:10 PM (19 years ago)

Author:

mmc

Message:

Fixed copy/paste with desktop to work properly. It was
relying on the clipboard when the selection and the
cutbuffer were not available. But that causes strange
behavior with the applet panel. Now that the clipboard
stuff is removed, it works better.

Also, changed the wrapping on text entries to "char"
instead of "word", which should be more intuitive for
users entering long lines.

Location:

trunk/gui/scripts

Files:

• mainwin.tcl (modified) (2 diffs)
• textentry.tcl (modified) (1 diff)

trunk/gui/scripts/mainwin.tcl

@@ -150 +150 @@
     global tcl_platform
     if {$tcl_platform(platform) == "unix"} {
-        # this sync stuff only works for X windows
+        # this sync stuff works only for X windows
         blt::cutbuffer set ""
         syncCutBuffer ifneeded
@@ -204 +204 @@
             # outside the VNC client.
             #
-            set s ""
-            if {[catch {selection get -selection PRIMARY} s] || "" == $s} {
-                if {[catch {clipboard get} s]} {
-                    set s ""
-                }
+            if {[catch {selection get -selection PRIMARY} s]} {
+                set s ""
             }
             if {"" != $s && ![string equal $s $_sync(selection)]} {

trunk/gui/scripts/textentry.tcl

@@ -288 +288 @@
             itk_component add text {
                 text $itk_component(scrollbars).text \
-                    -width 1 -height 1 -wrap word
+                    -width 1 -height 1 -wrap char
             } {
                 usual