User since
2005-04-15
5
Artikel
BenutzerIn
Hallo Community!
Kleine Frage:
Ist es möglich, dass das Kommando welches ich einem Checkbutton zugeordnet habe automatisch ausgeführt wird wenn ich die Variable des Checkbuttons verändere?
$mw->Checkbutton(-text => "Test", -variable => \$cb_value, -command => sub {print "$cbvalue" });
Solange ich auf den Checkbutton klicke wir der Code ausgeführt. Setze ich die Variable manuell passiert nichts.
Gibts da eine Lösung
mfg Zoolander
User since
2003-11-28
3645
Artikel
ModeratorIn
Am einfachsten ist es wohl, wenn du die Variable nicht direkt aenderst, sondern immer nur ueber eine Subroutine, die auch die Checkbutton-sub aufruft. Wenn du es wirklich nur mit der Variable machen willst, solltest du dir Tie::Watch oder Tk::Trace angucken.
User since
2003-08-04
5873
Artikel
ModeratorIn
Du kannst auch mit $button->invoke() die dem Button zugeordnete Funktion aufrufen. Dann musst Du ggf. nicht mehrere Stellen im Code ändern.
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite