home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / numentryplain.pl < prev    next >
Encoding:
Perl Script  |  2002-11-17  |  481 b   |  24 lines
  1. # Entry for entering numeric values, plain version.
  2. #!/usr/local/bin/perl -w
  3. use strict;
  4. use Tk;
  5. use Tk::NumEntryPlain;
  6.  
  7. my $mw = Tk::MainWindow->new;
  8.  
  9. my $nume = $mw->NumEntryPlain(-command => sub { print "Value = ",@_,"\n" });
  10.  
  11. $nume->pack(-side => 'top', -fill => 'x');
  12.  
  13. $nume = $mw->NumEntryPlain(
  14.         -minvalue => 10,
  15.         -maxvalue => 100,
  16.         -defaultvalue => -2,
  17.         -command => sub { print "Value = ",@_,"\n" }
  18. );
  19.  
  20. $nume->pack(-side => 'top', -fill => 'x');
  21.  
  22. Tk::MainLoop;
  23. __END__
  24.