Posted to tcl by rmax at Mon Feb 05 14:13:54 GMT 2007view raw

  1. foreach sel {PRIMARY CLIPBOARD} {
  2. if {![catch {selection get -selection $sel} string]
  3. && [string length $string] > 0
  4. } then {
  5. $f.txt insert end $string {}
  6. break
  7. }
  8. }