paste dialog
Posted to
tcl
by rmax at Mon Feb 05 14:13:54 GMT 2007
view raw
foreach
sel {PRIMARY CLIPBOARD} {
if
{![
catch
{
selection
get -selection
$sel
}
string
]
&& [
string
length
$string
] > 0
}
then
{
$f
.txt insert end
$string
{}
break
}
}
Recent Posts
tcl by oldlaptop
3 days ago
tcl by mookie
9 days ago
tcl by dandyn
16 days ago
tcl by Bradipo
16 days ago
tcl by Bradipo
16 days ago
tcl by oldlaptop
40 days ago
tcl by oldlaptop
41 days ago
tcl by mookie
45 days ago
tcl by mookie
46 days ago
tcl by georgtree
47 days ago
Submit
New paste
Documentation
From Jabber