Opened by Froschpopo at 2005-04-05 01:15
User since
2003-11-28
3645 Artikel
ModeratorIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-11-28
3645 Artikel
ModeratorIn
Es ist auch nicht schwer:
Wenn man Schatteneffekte haben will, ist es etwas aufwaendiger, aber dazu kannst du ja das Modul verwenden, dann ist es auch nicht schwer.
Und bitte maessige deine Sprache...
Code: (dl
)
1
2
3
4
5
6
7
#!/usr/bin/perl
use Tk;
my $mw = tkinit;
$mw->Label(-text => "Hello, world!")->pack;
$mw->Frame(-bg => "black", -height => 1)->pack(-fill => "x");
$mw->Label(-text => "Foo bar")->pack;
MainLoop;
Wenn man Schatteneffekte haben will, ist es etwas aufwaendiger, aber dazu kannst du ja das Modul verwenden, dann ist es auch nicht schwer.
Und bitte maessige deine Sprache...