Tk: In Textbox schreiben, bevor die Subroutine durchgelaufen ist (gelöst) (Graphische Oberflächen)

[thread]15456[/thread]

Tk: In Textbox schreiben, bevor die Subroutine durchgelaufen ist [gelöst]

Tags: Tk Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+3 replies
Probo

2010-09-11 13:13
User since
2010-09-11
6 Artikel
BenutzerIn
Hallo Forum,

ich bin hier schon lange stiller Observer und brauche nun doch mal dynamische Hilfe :)

Also ich habe ein Hauptfenster mit einem Textfeld und einem Button..
Code: (dl )

-command => [ \&push_button, $text ]);
Wenn der Button gedrückt wird wird halt diese Methode hier aufgerufen:
Code: (dl )

1 2 3 4 5 6

sub push_button { #mach irgendwas und gebe es im Fenster aus #mach noch was und gebe es im Fenster aus sleep(20); #mach noch irgendwas und gebe es im Fenster aus }
Mein Problem ist nun, dass die gesamte Ausgabe gebündelt im Fenster erscheint und nicht jede Zeile einzeln.
Ich muss also warten, bis die gesamte Methode durchgelaufen ist.
Also erst auf sleep() warten etc.

sleep steht hier exemplarisch für eine ziemlich lange LWP Abholung.

Gibt es da eine Lösung?

Vielen dank erstmal

Probo
Last edited: 2010-09-11 13:18:58 +0200 (CEST)
- +2 replies
- renee
  
  2010-09-11 13:40
  
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  
  Kannst Du mal ein lauffähiges Programm posten, das das Verhalten reproduziert?
  
  Hast Du schon mit $mw->update zwischendrin gearbeitet?
  OTRS-Erweiterungen (http://feature-addons.de/)
  Frankfurt Perlmongers (http://frankfurt.pm/)
  --
  
  Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
  Perl-Entwicklung: http://perl-services.de/
  - Probo
    
    2010-09-11 14:17
    User since
    2010-09-11
    6 Artikel
    BenutzerIn
    
    Vielen Dank.
    ->update war genau das, was ich gesucht habe.
    
    Jetzt ist es auch klar. Liegt offenbar daran, das MainLoop(); ja nur ausgeführt wird, wenn die Methode zu ende ist.
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    sub push_button { $ausgabe->insert ('end', "Test\n"); $hauptfenster->update; sleep(2); $ausgabe->insert ('end', "Test2\n"); }
    
    Vielen Dank!

View all threads created 2010-09-11 13:13.