Changeset 87 for trunk/gui/scripts/mainwin.tcl
- Timestamp:
- Oct 5, 2005, 7:28:40 PM (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/mainwin.tcl
r45 r87 183 183 set s [blt::cutbuffer get] 184 184 if {"" != $s && ![string equal $s $_sync(cutbuffer)]} { 185 # 186 # Convert any \r's in the cutbuffer to \n's. 187 # 188 if {[string first "\r" $s] >= 0} { 189 regsub -all "\r\n" $s "\n" s 190 regsub -all "\r" $s "\n" s 191 blt::cutbuffer set $s 192 } 193 185 194 set _sync(cutbuffer) $s 186 195
Note: See TracChangeset
for help on using the changeset viewer.