Ich rufe aus einem Tk-Programm einen selbst gestalteten Toplevel Dialog auf:
sub Dialog
{
my $dialog = $mw->Toplevel();
my $Button = $dialog->Button( -text => "Ok",
-command => sub { return("TEST"); }
)->pack();
}
Leider wird der String "TEST" nicht zurück gegeben, was mir auch einleuchtet. Gibt es eine Möglichkeit mit return zwei "Ebenen" zurück zu gehen und den Wert nicht an Dialog zurück zu geben?