blob: 4da736d72fef936d02c316964e2873090e01069b (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
#!/usr/bin/wish
# stroke_test.tcl
# A clone of stroke_test using Tcl/Tk, which is far shorter than the
# plain C version. Long live Tcl/Tk!
# By Chris Laas, chrisl@cybercom.net.
# This file falls under the copyright of libstroke.
load ../libstroke/.libs/libstroke_tcl.so.0.2
bind . <2> { stroke record %x %y }
bind . <B2-Motion> { stroke record %x %y }
bind . <ButtonRelease-2> { puts [stroke translate] }
|
