archiwum forum cream.software

[marcino]

witam.
***
mam nastepujacy probem, pisze sobie cos takiego:

#!/usr/bin/perl -w
use Tk;
$a=MainWindow->new();
$a->title("costam");
$b=$a->Label(text => 'hello world',
anchor => 'n',
relief => 'groove',
width => 10, height => 10);
$b->pack();
MainLoop();

zapisuje to jako hello.pl
i teraz jak odpalam to, to powinno sie mi pokazac okienko z napisem 'hello world', jednak tak sie nie dzieje tylko wyskakuje mi blad w terminalu:

unknown option "width" at /usr/local/lib/perl5/site_perl/5.8.5/mach/Tk/Widget.pm line 205.
at hello.pl line 4

z gory dzieki za odpowiedz.

[januzi]

usun width => 10

[marcino]

nie pomoglo.

[marcino]

a i teraz jest taki blad ( po usunieciu width=>10)

unknown option "anchor" at /usr/local/lib/perl5/site_perl/5.8.5/mach/Tk/Widget.pm line 205.
at hello.pl line 4

[januzi]

ten sam blad ? poczytaj dokumentacje od Tcl/Tk, dokladniej Widget Label
moze wersja Tk ktora masz w perlu nie pozwala na stosowanie niektorych opcji

[marcino]

ok problem rozwiazalem, jednak dosc dziwna sprawa, zrobilem tak:

#!/usr/bin/perl -w
use Tk;
$a=MainWindow->new();
$a->title("costam");
$b=$a->Label(-text => 'hello world',
-anchor => 'n',
-relief => 'groove',
-width => 10, -height => 10);
$b->pack();
MainLoop();

i teraz dziala

[januzi]

czyli taki format jak podaje manual tworcow