Leser: 5
|< 1 2 >| | 13 Einträge, 2 Seiten |
$mw->Button(-width=>"1p", -height=>"1p")->pack();
foreach my $z (0..9){$mw->bind("<$z>", sub{print "$z\n";});}
perl -MTk -e '$mw = tkinit; foreach my $z (0..9) { $mw->bind("<Key-$z>", sub{ print "$z\n"; }); } MainLoop;'
$mw->Button(-width=>"1", -height=>"1", -font => [-size => 1])->pack();
$mw->Button(-width=> 1, -height=> 1, -font => [-size => 1], -padx => 0, -pady => 0)->pack();
$mw->Button(-bg => 'red',)->place(-x => 2, -y => 2, -height => 1, -width => 1);
#Kein Kommentar+2008-10-13 18:32:12--was hast du gegen Tk::chooseColor? das ist sogar der native farbdialog von dem system
topeg+2008-10-13 12:25:41--Erstelle doch ein Bild mit dem Farbverlauf (BMP oder ähnliches unkomprimiertes). Pack das in ein Frame und frag die Mausposition im Frame ab wenn geklickt wird. Dann pick dir den Farbwert aus dem Bild an der Stelle.
Ich habe das zwar noch nicht mit TK gemacht aber mit GTK2 ist es recht einfach.
|< 1 2 >| | 13 Einträge, 2 Seiten |