|
#!/usr/local/bin/perl use strict; use warnings; use Tk; my $top = new MainWindow; my $frame1 = $top->Frame(-width => 50, -height => 50, -bg => 'red'); my $frame2 = $top->Frame(-width => 100, -height => 100, -bg => 'green'); my $frame3 = $top->Frame(-width => 75, -height => 75, -bg => 'blue'); $frame1->pack(-side => 'left'); # links ist zu $frame2->pack(-side => 'right'); # rechts ist zu $frame3->pack(-side => 'left'); # kommt in die Mitte MainLoop; |
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |