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

require "varwatcher.pl";

$top = tkinit;
$count = 0;
tkpack Button::new($top, "-text" => "increment", "-method" => sub {$count++}),
       Varwatcher::new($top, "count", \$count);
tkmainloop;