#!./perl 

use AddINC qw(./blib .);


use Tk;

sub setWidth {

  print "width\n";

}


$top = MainWindow->new();

$top->wm("title","scale tests");

$s = $top->Scale("-orient"=>"vertical",
		"-length" => 280,
		"-from" => 0,
		"-to" => 250,
		"-tickinterval" => 50,
		"-bg" => "Bisque1",
		"-command" => \&setWidth,
		);

$s->pack();

Tk::MainLoop;

