
# $Id: t7seg,v 1.1 1993/06/08 05:59:13 david Exp $

InterpBase add_module_directory [pwd]
require 7SegmentClass
canvas .c -background white
pack append . .c { top fill expand }
wm geometry . =180x100
wm minsize  . 1 1

set h1 [7SegmentClass new .c  20 20 20 50 black]

bind .c <Any-KeyPress> { dokey $h1 %K }
focus .c

proc dokey {obj key} {
	case $key {
	0	{ $obj setval 0 }
	1	{ $obj setval 1 }
	2	{ $obj setval 2 }
	3	{ $obj setval 3 }
	4	{ $obj setval 4 }
	5	{ $obj setval 5 }
	6	{ $obj setval 6 }
	7	{ $obj setval 7 }
	8	{ $obj setval 8 }
	9	{ $obj setval 9 }
	[aA]	{ $obj setval 10 }
	[bB]	{ $obj setval 11 }
	[cC]	{ $obj setval 12 }
	[dD]	{ $obj setval 13 }
	[eE]	{ $obj setval 14 }
	[fF]	{ $obj setval 15 }
	}
}
