Hallo.

Einfach $mw->update; einfügen nach dem raise.
Tk updatet nämlich die Oberfläche immer dann, wenn grade keine Ereignisse laufen, also nach Abarbeitung des Button-Kommandos.

Übrigens switcht das Minimalbeispiel auf Material, nicht Ergebnis, aber das ist wohl hier egal, oder?

Gruß,
Molaf