Posted to tcl by aspect at Thu Feb 04 13:20:39 GMT 2016view pretty

package require Tk
wm withdraw .
set c ""
catch {
    set c [clipboard get]
}
puts "Old clipboard: {$c}"
puts -nonewline "Enter text: "
flush stdout
gets stdin text
clipboard clear
clipboard append $text
puts "Clipboard is now: {[clipboard get]}"
puts "sleeping ..."
if 0 {
    # this version services the event loop while sleeping, so the clipboard can be retrieved
    after 5000 {incr ::done}
    vwait ::done
}
if 1 {
    # this version blocks the event loop -- 2nd process gets nothing 
    # (as opposed to blocking in Tkinter)
    after 5000
}
puts "finished!"
exit