File: stroke_test.tcl

package info (click to toggle)
libstroke 0.5.1-11
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 860 kB
  • sloc: sh: 5,897; ansic: 1,081; java: 286; makefile: 77; tcl: 4
file content (11 lines) | stat: -rwxr-xr-x 416 bytes parent folder | download | duplicates (10) 
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] }