path: root/slow_owner.tcl

#!/usr/bin/env wish
#Tcl/Tk script implementing a slow (200 ms) selection owner
proc handler { x y } { after 200; return "foobar" }
selection handle . handler
selection own .