|
pack8.pl |
#!/usr/local/bin/perl -w use Tk; use strict; my $top = new MainWindow; my $buttons = $top->Frame; foreach my $i (1..8) { my $button = $buttons->Button(-text => $i); $button->pack(-side => 'left', -fill => 'x', -expand => 1); } my $frame = $top->Frame(-width => 400, -height => 100, -bg => 'yellow'); $buttons->pack(-side => 'top', -fill => 'x'); $frame->pack(-side => 'top'); MainLoop; |
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |