1 files changed, 11 insertions, 0 deletions
diff --git a/tests/stroke_test.tcl b/tests/stroke_test.tcl
new file mode 100755
index 0000000..4da736d
--- /dev/null
+++ b/tests/stroke_test.tcl
@@ -0,0 +1,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] }