Thread in Tk-Anwendung (Graphische Oberflächen)

[thread]15401[/thread]

Thread in Tk-Anwendung

Leser: 22

Articles: hide open all | hide show old branches

+6 replies
Gast dimpflmoser

2010-08-23 15:03

Hallo zusammen,
in meiner Tk-Anwendung möchte ich einen parallel-laufenden Thread starten, der in einer zeitgesteuerten Schleife in einem bestimmten Ordner nach einer bestimmten Datei sucht, und wenn er diese gefunden hat im Hauptprogramm eine sub-Routine aufruft.
Leider weiß ich gar nichts über Threads in Perl und in Guis - also weder wie ich einen Thread erstelle, wo ich den Aufruf zum Starten Plaziere noch wie ich ihn starte.
Hat jemand ein kurzes (verständliches) Beispiel?

Danke Helmut
- +5 replies
- renee
  
  2010-08-23 15:36
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
  
  #!/usr/bin/perl use strict; use warnings; use threads; use Tk; my $thread = threads->create( \&search_file ); $thread->detach; my $mw = tkinit(); $mw->Label( -text => 'hallo' )->pack; MainLoop; sub search_file { for my $counter ( 1 .. 10 ) { print $counter,"\n"; sleep 1; } }
  
  Wichtig ist, dass threads *vor* Tk geladen wird und die Threads *vor* der GUI erstellt werden.
  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/
  - +4 replies
  - dimpflmoser
    
    2010-08-24 11:14
    
    User since
    2004-06-28
    46 Artikel
    BenutzerIn
    
    Hallo Renee,
    
    vielen Dank für deine schnelle Antwort. Es funktioniert soweit auch alles prima. Leider bekomme ich so keinen Zugriff auf Tk-Variablen, wie das Hauptfenster, auch wenn ich diese mit our Modulglobal deklariere. Ich glaube in einem älteren Thread wurde dies bereits beschrieben.
    Hat sich hier mittlerwile etwas geändert oder gibt es einen Workaround? Hat jemand schon einmal Threads mit Tkx ausprobiert?
    Ein POE-Beispiel, dass ich gefunden habe, habe ich leider nicht ans Laufen gebracht, das mag aber auch daran liegen, dass ich den Code nicht wirklich verstanden habe.
    Nochmal Dank für eure Hilfe
    
    Helmut
    - +3 replies
    - Molaf
      
      2010-08-25 09:02
      
      User since
      2007-10-11
      119 Artikel
      BenutzerIn
      
      Auf die Tk-Variablen bekommt man auch keinen Zugriff, aber es geht andersrum:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
      
      #!/usr/bin/perl use strict; use warnings; use threads; use threads::shared; use Tk; my $xxx:shared=''; my $thread = threads->create( \&search_file ); $thread->detach; my $mw = tkinit(); $mw->Label( -text => 'hallo' )->pack; $mw->Entry( -textvariable => \$xxx )->pack; MainLoop; sub search_file { my $counter = 0; for (;;) { $counter++; $xxx = $counter; sleep 1; } }
      
      Sollen komplexere Dinge mit dem Tk gemacht werden, füge ich immer ein repeat ein und mache das im Hauptprogramm/-thread, indem ich auf die mitbenutzten Variablen zugreife.
      
      Molaf
      - +2 replies
      - dimpflmoser
        
        2010-08-25 12:09
        
        User since
        2004-06-28
        46 Artikel
        BenutzerIn
        
        Nochmal hallo zusammen,
        
        manchmal sieht man den Wald vor lauter Bäumen nicht - nach endlosem (erfolglosem) experimentieren mit Threads hab ich eine ganz simple Lösung in Tk gefunden:
        
        Code: (dl )
        
        1 2
        
        $mw->repeat(500, sub { ...});
        
        In der Routine wird an das Hauptfenster eine Unterroutine (sub) gebunden, die in diesem Falle alle 500 Millisekunden ausgeführt wird. Aus dieser Routine heraus hat man dann selbstverständlich Zugriff auf alle Tk-Variablen.
        
        Nochmal Danke für eure Hilfe
        
        Helmut
        
        dimpflmoser
        
        2010-08-26 12:34
        
        User since
        2004-06-28
        46 Artikel
        BenutzerIn
        
        Nochmal hallo zusammen,
        
        eine Frage interessiert mich noch - sorry.
        
        Gibt es in wxPerl eine ähnliche Funktion, da ich in naher bzw. ferner Zukunft meine Anwendungen auf diese Toolkit umstellen möchte? Wenn ja hat jemand auch hierzu ein Beispiel?
        
        Danke Helmut

View all threads created 2010-08-23 15:03.