One of the useful features of Tkcon is that it will evaluate (possibly multiple) commands pasted into it. However, the paste command works in a way that is probably more familiar to *nix users than to Windows users. If there is any text selected (but not copied to the clipboard) in the Tkcon window or in a Tk application, it will be pasted in preference to text on the clipboard. To paste from the clipboard and ignore the selected text, it is necessary to change the GetSelection procedure.
proc ::tkcon::GetSelection {w} {
if {
![catch {selection get -displayof $w -type UTF8_STRING} txt] ||
![catch {selection get -displayof $w} txt] ||
![catch {selection get -displayof $w -selection CLIPBOARD} txt]
} {
return $txt
}
return -code error "could not find default selection"
}Remove the first two lines of the if statement.
Hope this helps, Alastair Davies 31 Jan 2007