use Tk; use Tk::SpinBox; my $mw = MainWindow->new; $mw->title("Spinner"); $mw->Spinbox(-width => 2, -value => [0..23])->pack (-side=>'left'); $mw->Label(-text=>":")->pack (-side=>'left'); $mw->Spinbox(-width => 2, -value => [0..59])->pack (-side=>'left'); MainLoop;
In reply to Re: "spinners" in perl/tk
by pg
in thread "spinners" in perl/tk
by perlNoob
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |