Tk: Programm im Programm (Graphische Oberflächen)

[thread]16634[/thread]

Tk: Programm im Programm

Tags: perl5 GUI Tk Similar Threads

Readers: 27

Articles: hide open all | hide show old branches

+10 replies
Kean

2011-08-16 15:26

User since
2004-08-18
463 articles
BenutzerIn

Ich habe ein Script welches langsam immer größer wird. In diesem Script nutze ich verschiedene Module, habe viele Subroutinen, ein Tk-MainWindow und mehrere Toplevel Windows.

Einige Funktionen die ich in dieses Tk-Script einbauen möchte benötigen spezielle Module und weitere Unterfenster, so dass ich diese nicht als weitere Toplevel Fenster in das bestehende Script einbauen möchte, sondern getrennt von dem Hauptscript haben will. Wie stelle ich das am besten an?

Ich muss noch dazu sagen, dass ich das Hauptscript am Ende mit dem Perl Dev Kit zu einer Exe umwandele und auf einem Rechner ohne Perl laufen lassen will.
- +7 replies
- pktm
  
  2011-08-16 18:19
  
  User since
  2003-08-07
  2921 articles
  BenutzerIn
  
  Hallo Kean,
  
  Wenn du Teile "getrennt von dem Hauptscript" haben möchtest, kannst du einfach mehrere Programme daraus machen. Die kannst du natürlich dann auch einzeln kompilieren.
  
  Grüße, pktm
  http://www.intergastro-service.de (mein erstes CMS :) )
  - +6 replies
  - Kean
    
    2011-08-17 09:09
    
    User since
    2004-08-18
    463 articles
    BenutzerIn
    
    Hallo pktm,
    
    ich habe es momentan so gelöst, dass ich zwei größere Programmteile in eigene Scripte gepackt habe und diese aus dem Hauptprogramm aus aufrufe.
    Was mich an dieser Lösung stört ist die Verarbeitungszeit und dass ich das Hauptprogramm nicht automatisch sperren kann solange das zweite Script läuft.
    
    Die Verarbeitungszeit ist dahingehend länger, dass es immer etwas dauert bis die Exe Datei ausgeführt wird. Das führt dazu, dass der Nutzer nochmal klickt und das Programm zweimal ausführt.
    
    Ich habe es vor ein paar Wochen auch schon versucht als Modul umzuschreiben. Leider kam es dabei öfters vor, dass das Programm mit einem Tk-Fehler abstürzte.
    - +5 replies
    - pktm
      
      2011-08-17 11:47
      
      User since
      2003-08-07
      2921 articles
      BenutzerIn
      
      Hm, jetzt wird's kniffelig. Kannst du mir ein bißchen mehr Info über Aufbau und Struktur deines Programmes geben? Oder beschreiben, was es macht (ich gebe auch keine Ratschläge à la "mach es doch ganz anders" :-D).
      http://www.intergastro-service.de (mein erstes CMS :) )
      - +4 replies
      - Kean
        
        2011-08-17 13:57
        
        User since
        2004-08-18
        463 articles
        BenutzerIn
        
        Okay also mein Programm verwaltet Daten über Personen.
        Ich erstelle ein MainWindow, zeichne dort eine HList in welche die Daten geladen werden, zeichne ein paar Buttons.
        
        Über die Buttons werden dann verschiedene Funktionen umgesetzt. Dabei gibt es Funktionen wie z.b. Löschen eines Datensatzes, bei welchem kein Toplevel Fenster benötigt wird. Und es gibt Funktionen wie z.b. das Bearbeiten von Datensätzen bei dem ein neues Toplevel Fenster gezeichnet wird und in diesem die Datensätze durch Label und Entrys bearbeitet und gespeichert werden.
        
        Weitere speziellere Funktionen wie z.b. ein Fenster in dem Bilder zu diesen Datensätzen verknüpft werden können würde ich gerne in Module auslagern, da hier auch spezielle Module wie z.b. ImageMagick etc. genutzt werden.
        
        Das war es eigentlich schon.
        
        ----------------
        PS Mir fällt zu meinem Problem gerade etwas ein. Ich habe bei dem Versuch diese speziellen Funktionen in Module zu separieren immer in diesem Modul ein neues MainWindow erzeugt. Und dann gab es unregelmäßig beim mehrfachen benutzen diese Funktion einen Programmabsturz mit dem Tk Modul als Ursache.
        Kann es daran liegen dass ich ein MainWindow erzeuge und nicht das aktuelle MainWindow übergebe und darauf dann ein TopLevel Window erstelle?
        Oder sind mehrere MainWindows in Perl/Tk nicht kritisch?
        
        +3 replies
        
        pktm
        
        2011-08-17 15:02
        
        User since
        2003-08-07
        2921 articles
        BenutzerIn
        
        Das, was dir da so gerade einfällt, war auch mein Gedanke.
        
        Du brauchst nur 1 MainWindow. Das übergibst du deinen geeignet gekapselten Modulen als TopLevel-Window.
        
        Das hat außerdem den praktischen Vorteil, dass auch ein anderes Toplevel-Window übergeben kannst. Speziell, wenn das TopLevel-Window gesperrt werden soll, bis man mit einer Maske fertig ist...
        
        Heißt konkret bei deinem Beispiel:
        MainWindow = die Liste mit den Nutzerdaten. Das Modul zur Bearbeitung von Nutzerdaten bekommt als ParentWidget das MainWindow. Wenn du das nächste Modul erstellst, z.B. zur Verwaltung von Benutzerfotos (oder was auch immer), dann machst du das dort analog. Das MainWindow wird wieder der Parent.
        
        Hoffe das leuchtet ein? Ansonsten gerne nochmal nachfragen.
        http://www.intergastro-service.de (mein erstes CMS :) )
        
        +2 replies
        
        Kean
        
        2011-08-17 15:16
        
        User since
        2004-08-18
        463 articles
        BenutzerIn
        
        Da ich was Module angeht noch ziemlich grün hinter den Ohren bin würde mir ein Beispielcode für das Modul (gerade was die Übergabe des MainWindow angeht) viel weiter helfen.
        
        Ich habe das so gelöst bei meinem letzten Versuch:
        Datei Fotocut.pm
        
        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 23 24 25 26 27 28 29 30
        
        package Fotocut; use strict; use warnings; use Tk; use Tk::Canvas; use Image::Magick; use Win32::FileOp; use Win32::GUI(); use Win32::Capture; use MIME::Base64; use Tk::Balloon; use Tk::JPEG; use Tk::PNG; my ($mw, $canvas); sub new { $mw = MainWindow->new(); ... MainLoop; } sub SelectFile { ... } 1;
        
        pktm
        
        2011-08-17 15:29
        
        User since
        2003-08-07
        2921 articles
        BenutzerIn
        
        Da erzeugst du ein Mainwindow. Ist das dein Hauptprogramm oder das, was nach dem Klick auf den Button aufgerufen wird?
        
        Hier mal ein schrecklich umkommentiertes Beispiel:
        
        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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77
        
        #!perl package Editform; use strict; use warnings; use Tk; sub new { my $class = shift; my $parent = shift; my $self = bless({}, $class); $self->{'__PARENT'} = $parent; return $self; } # /new sub display { my $self = shift; my $parent = $self->{'__PARENT'}; my $tl = $parent->Toplevel(-width => 200, -height => 200, -bg => 'blue',); return; } # /display 1; package Userimages; use strict; use warnings; use Tk; sub new { my $class = shift; my $parent = shift; my $self = bless({}, $class); $self->{'__PARENT'} = $parent; return $self; } # /new sub display { my $self = shift; my $parent = $self->{'__PARENT'}; my $tl = $parent->Toplevel(-width => 200, -height => 200, -bg => 'yellow',); return; } # /display 1; package main; use strict; use warnings; use Tk; my $mw = tkinit(); $mw->Button( -text => 'dialog1', -command => sub{ my $form = Editform->new($mw); $form->display(); }, )->pack(); $mw->Button( -text => 'Userimages', -command => sub{ my $form = Userimages->new($mw); $form->display(); }, )->pack(); $mw->MainLoop();
        
        Die Klassen Editform und Userimages sollen die Dialoge sein, die du aufrufen kannst. Deren Konstruktor erhält jeweils das MainWIndow und das wird dann in der Methode display() verwendet (als Parent für das TopLevel).
        
        Was der Code noch nicht hat: er sperrt das MainWindow nicht, so lange der Dialog offen ist (würde ich auch nur machen, wenn es wirklich Sinn macht) und man kann die Fenster mehrfach öffnen.
        
        Hift das schon weiter?
        http://www.intergastro-service.de (mein erstes CMS :) )
- +2 replies
- Kean
  
  2011-08-17 09:22
  
  User since
  2004-08-18
  463 articles
  BenutzerIn
  
  Hat vielleicht schon jemand hier größere Tk Programme mit in Module ausgegliederten Tk-Fenstern geschrieben und kann mir einen Tip geben wie der Aufbau am praktischsten ist?
  - GUIfreund
    
    2011-08-22 10:55
    
    User since
    2011-08-08
    559 articles
    BenutzerIn
    
    Hallo Kean,
    
    wenn ich dich richtig verstehe, erzeugst du mehrere Toplevel-Widgets, und bei einigen davon willst du auf deren Ende warten. In diesen Fällen wäre vielleicht ein DialogBox-Widget geeigneter.
    
    Allerdings habe ich mich über kein Widget so geärgert wie über DialogBox. Sowohl das Design als auch die Doku sind recht mäßig. Hier 2 Tipps für die Programmierung des DialogBox-Widgets:
    
    1. Setze -default_button immer auf einen nicht existierenden Button. Damit verzichtest du auf etwas Bequemlichkeit, ersparst dir aber eine Menge Ärger. Grund: Wenn ein Button den Fokus hat und du drückst die Enter-Taste, wird nicht dieser Button aktiviert, sondern der Defaultbutton. Wer denkt schon immer daran, dass er hier die Leertaste hätte drücken müssen? Schlimmer noch: wenn du keinen Defaultbutton vorgibst, ist der 1. Button der Default. Das ungewollte Resultat kann verheerend sein. Deshalb immer einen nicht existierenden Button vorgeben.
    
    2. Um ein Widget einzufügen, auf das du dich später beziehen musst, verwende so etwas wie my $irgend = $db->add(.... Damit hast du den üblichen direkten Zugriff auf das Widget und sparst dir den Umweg über $db->Subwidget(...).
    
    Lass dich von meinen Worten nicht abschrecken. Ich verwende DialogBox öfters. Es ist das einzige flexible Dialogwidget.
    
    Quote
    Das führt dazu, dass der Nutzer nochmal klickt und das Programm zweimal ausführt.
    
    Der Button, der hier angeklickt wurde, kann sich als Erstes selbst sperren. Nach Ende des Programms wird er wieder freigegeben. Alternativ kannst du mit $widget->Busy(...) und $widget->Unbusy(...) den Mauszeiger temporär zu einer Sanduhr o. ä. machen. Dabei wird zugleich der Button gesperrt. (Ohne Gewähr, ich hab's noch nie benutzt.)
    
    HTH.
    
    GUIfreund
    Gruß
    GUIfreund

View all threads created 2011-08-16 15:26.