#!./perl
BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)) }
use Tk;

$foo = "blah";
$top = tkinit;
$b = Checkbutton::new($top, "-text"     => "click button 3 for value",
                            "-variable" => $foo,
                            "-onvalue"  => "yep",
                            "-offvalue" => "nope");
tkbind($b, "<3>", sub { print "checkbutton value is $foo\n" });
tkpack $b;
tkmainloop;