Opened by Robby at 2004-02-18 14:14
User since
2003-11-28
3645 Artikel
ModeratorIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-11-28
3645 Artikel
ModeratorIn
-showbackground scheint auch benoetigt zu werden. This works:
Code: (dl
)
1
2
3
4
5
6
7
8
use Tk;
$top=tkinit;
$p = $top->Compound(-background => "red", -showbackground => 1);
$p->Text(-text => "Hello");
$i = $top->Photo(-file => Tk->findINC("Xcamel.gif"));
$p->Image(-image => $i);
$top->Label(-image => $p, -border => 0)->pack;
MainLoop;