Opened by DerHenning at 2008-10-12 01:00
User since
2006-05-20
533 Artikel
BenutzerIn
2006-05-20
533 Artikel
BenutzerIn
Die Zahlen von 0-9 kannst du so an $mw binden:
Beim Button kannst du mal mit -padx und -pady rumspielen, wobei ich ihn damit nur schmaler bekommen habe.
Mfg
edit: nette übersicht: http://www.en8848.com.cn/Reilly%20Books/perl3/tk/c...
Code (perl): (dl
)
perl -MTk -e '$mw = tkinit; foreach my $z (0..9) { $mw->bind("<Key-$z>", sub{ print "$z\n"; }); } MainLoop;'
Beim Button kannst du mal mit -padx und -pady rumspielen, wobei ich ihn damit nur schmaler bekommen habe.
Mfg
edit: nette übersicht: http://www.en8848.com.cn/Reilly%20Books/perl3/tk/c...
Pörl.