Opened by Gast at 2004-08-20 20:04
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl
use strict;
use TK;
my $haupt = new MainWindow;
$haupt->Label(-text => "Greetings!")->pack;
$haupt->Button(-text=>"Beenden",
-command=>[$haupt=>'destroy']
)->pack;
$haupt->MainLoop(); # hier fehlte was!
die letzte Warnung war die richtige. Das Aufrufen über die Console ist schon richtig.