1 2 3 4 5 6 7 8 9 10 11 12
#!/usr/bin/perl use warnings; use strict; use Tk; my $mw = Tk::MainWindow->new(); $mw->geometry("+400+300"); my $labelframe = $mw -> Labelframe(-height => 100, -width => 150, -text => 'Test'); $labelframe->pack(-padx => 5, -pady => 5, -fill => 'x'); $mw->MainLoop();
2016-04-08T10:20:57 hlubenow"Labelframe" kannte ich allerdings noch gar nicht. Vielleicht gab's das früher nicht?