Revision: 33949 http://brlcad.svn.sourceforge.net/brlcad/?rev=33949&view=rev Author: bob1961 Date: 2009-03-05 22:35:13 +0000 (Thu, 05 Mar 2009)
Log Message: ----------- This fixes bug 2278235 (i.e. Can't cut-n-paste under Windows). Modified Paths: -------------- brlcad/trunk/src/tclscripts/mged/text.tcl Modified: brlcad/trunk/src/tclscripts/mged/text.tcl =================================================================== --- brlcad/trunk/src/tclscripts/mged/text.tcl 2009-03-05 22:12:24 UTC (rev 33948) +++ brlcad/trunk/src/tclscripts/mged/text.tcl 2009-03-05 22:35:13 UTC (rev 33949) @@ -24,6 +24,25 @@ bind Text <Control-Key-slash> {} +proc tk_textPaste {w} { + global tcl_platform + if {![catch {::tk::GetSelection $w CLIPBOARD} sel]} { + set oldSeparator [$w cget -autoseparators] + if {$oldSeparator} { + $w configure -autoseparators 0 + $w edit separator + } + #if {[tk windowingsystem] ne "x11"} { + # catch { $w delete sel.first sel.last } + #} + $w insert insert $sel + if {$oldSeparator} { + $w edit separator + $w configure -autoseparators 1 + } + } +} + proc distribute_text { w cmd str } { global mged_players global mged_default @@ -1888,8 +1907,16 @@ return [list $newCommand $matches] } +proc do_windows_copy {_w} { + catch { + clipboard clear -displayof $_w; + clipboard append -displayof $_w [selection get -displayof $_w] + } +} + proc set_text_key_bindings { id } { global mged_gui + global tcl_platform set w .$id.t switch $mged_gui($id,edit_style) { @@ -2000,12 +2027,16 @@ break } - bind $w <Control-c> "\ + if {$tcl_platform(platform) == "windows"} { + bind $w <Control-c> "do_windows_copy $w; break" + } else { + bind $w <Control-c> "\ interrupt_cmd %W;\ if {\$mged_gui($id,edit_style) == \"vi\"} {\ vi_insert_mode %W\ };\ break" + } bind $w <Control-e> { end_of_line %W This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. ------------------------------------------------------------------------------ Open Source Business Conference (OSBC), March 24-25, 2009, San Francisco, CA -OSBC tackles the biggest issue in open source: Open Sourcing the Enterprise -Strategies to boost innovation and cut costs with open source participation -Receive a $600 discount off the registration fee with the source code: SFAD http://p.sf.net/sfu/XcvMzF8H _______________________________________________ BRL-CAD Source Commits mailing list brlcad-commits@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/brlcad-commits