- Timestamp:
- Aug 17, 2005, 3:57:10 PM (19 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/mainwin.tcl
r44 r45 150 150 global tcl_platform 151 151 if {$tcl_platform(platform) == "unix"} { 152 # this sync stuff only worksfor X windows152 # this sync stuff works only for X windows 153 153 blt::cutbuffer set "" 154 154 syncCutBuffer ifneeded … … 204 204 # outside the VNC client. 205 205 # 206 set s "" 207 if {[catch {selection get -selection PRIMARY} s] || "" == $s} { 208 if {[catch {clipboard get} s]} { 209 set s "" 210 } 206 if {[catch {selection get -selection PRIMARY} s]} { 207 set s "" 211 208 } 212 209 if {"" != $s && ![string equal $s $_sync(selection)]} { -
trunk/gui/scripts/textentry.tcl
r43 r45 288 288 itk_component add text { 289 289 text $itk_component(scrollbars).text \ 290 -width 1 -height 1 -wrap word290 -width 1 -height 1 -wrap char 291 291 } { 292 292 usual
Note: See TracChangeset
for help on using the changeset viewer.