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

foreach sel {PRIMARY CLIPBOARD} {
	if {![catch {selection get -selection $sel} string]
	    && [string length $string] > 0
	} then {
            $f.txt insert end $string {}
	    break
        }
    }