Opened by Kalle at 2009-08-28 00:47
User since
2007-03-18
48 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-03-18
48 Artikel
BenutzerIn
Warum in die Ferne schweifen, das Glück liegt doch so nah :)
Es hat nur ein Pfeilchen gefehlt und schwupps funktionierts.
Die Idee mit der Dispatch Table hab ich wohlwollend zur Kenntnis genommen und ist nun in meinem Hinterkopf verlinkt :)
Ich vermute mal, das ich darauf zurückkommen werde, sobald ich nicht nur sub Namen, sondern auch Übergabeparameter variabel gestalten möchte.
Im Moment ist es so bequemer.
Vielen Dank für den Input!
Gruß
Kalle
Es hat nur ein Pfeilchen gefehlt und schwupps funktionierts.
Code: (dl
)
1
2
3
4
no strict 'refs';
my $subtoexecute = sub{ $thissub->($mw_edit->get('1.0', 'end')) };
my $mw_submit_button = $mw->Button(-text => 'Submit',-background=>'gray',-command=> $subtoexecute )->pack(-side=>'left');
Die Idee mit der Dispatch Table hab ich wohlwollend zur Kenntnis genommen und ist nun in meinem Hinterkopf verlinkt :)
Ich vermute mal, das ich darauf zurückkommen werde, sobald ich nicht nur sub Namen, sondern auch Übergabeparameter variabel gestalten möchte.
Im Moment ist es so bequemer.
Vielen Dank für den Input!
Gruß
Kalle