Also ich bin der Meinung, dass man Oberfläche und Funktionalität strikt trennen sollte. Dies scheint jedoch in Perl ein wenig schwierig zu werden.
Hab mir jetzt folgendes überlegt:

Ich hab ein Frame als Klasse in dem meine Oberfläche agiert.
Dieses wird per new() auf mein Fenster gepappt.
So weit so gut. Nun möchte ich sämtliche Aktionen umleiten in Variablen ($self->{porder}, $self->{pdata}). Diese wurden von außen per new als Referenz belegt. Somit hab ich eine Schnittstelle nach draußen. Jetzt muss ich im Pollingverfahren herausfinden ob eine Aktion auf das Frame stattfand.
Wie kann ich also den Mainloop so schreiben, daß mir dieses vergönnt ist?
Im Endeffekt müsste ich eine Funktion regelmäßig aufrufen, die dieses durchführt.

Edit: Es müsste eigentlich auch genügen, wenn ich auf dem übergeordneten Fenster einen Event auslösen kann..\n\n

<!--EDIT|DocJunioR|1126853203-->