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 bch
4 days ago
tcl by Bradipo
5 days ago
tcl by aspect
5 days ago
tcl by Bradipo
5 days ago
tcl by Bradipo
5 days ago
tcl by Bradipo
5 days ago
lilypond by Bradipo
6 days ago
tcl by cgm
16 days ago
tcl by dandyn
25 days ago
tcl by Stu
26 days ago
Submit
New paste
Documentation
From Jabber