PerlTK: Fenster bei Button "klick" schließen (Graphische Oberflächen)

[thread]13500[/thread]

PerlTK: Fenster bei Button "klick" schließen

Leser: 21

Articles: hide open all | hide show old branches

+8 replies
Brenner

2009-05-11 15:24
User since
2009-01-13
87 Artikel
BenutzerIn
Ich teste heute gerade das erste Mal mit PerlTK rum. Inzwischen habe ich aber ein kleines Problem. Ich bekomme es nicht hin das, wenn ein Button gedrückt wird, ein spezifischer Befehl (Kommando/Subroutineaufruf) ausgeführt wird und sich das Fenster mit den Buttons schließt.

Habs schon Mal mit $main->destroy probiert, hat aber nicht wirklich geklappt.
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

BEGIN { push(@INC,"<modulpfad>"); } use strict; use warnings; use Tk; my $main = new MainWindow; my $label = $main->Label(-text => 'Checker:'); my $button = $main->Button( '-text' => 'Start', '-justify' => "left", '-height' => 3 , '-width' => 10, '-relief' => "raised", '-command' => sub {require modules::check; check::SELECT();}, ); my $button2 = $main->Button( '-text' => 'Quit', '-relief' => "groove", '-command' => sub { exit }, ); $_= localtime(time); my $button3 = $main->Button( -textvariable => \$_, '-relief' => "flat", -command => sub { $_ = localtime(time) }, );
- +7 replies
- #Kein Kommentar
  
  2009-05-11 16:11
  User since
  2007-06-09
  575 Artikel
  HausmeisterIn
  was hat nicht geklappt? irgendeine fehlermeldung? irgendein unerwartetes ergebnis?
  dein beispiel ist bei mir nicht lauffähig, vor allem packst du deine buttons überhaupt nicht in dein MainWindow. wie sollen sie denn dann erscheinen?
  du solltest der $_ variablen keinen wert zuschreiben, ich weiß nichtmal, ob das überhaupt geht
  nur so nebenbei eigene modulnamen sollte man immer groß schreiben, zur besseren übersicht, nur die namen von pragmas sind klein.
  
  Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind
  - +4 replies
  - Brenner
    
    2009-05-11 16:40
    
    User since
    2009-01-13
    87 Artikel
    BenutzerIn
    
    zu1)
    Die Fehler waren Syntaxfehler. Da ich aber nicht genau weiß wie das "destroy" eingebaut wird ist es kein Wunder, deshalb frag ich ja hier.
    
    zu2)
    Ohne Anpassungen und vorallem der fehlenden Module wird es bei dir auch nicht laufen. Bei mir gehts wunderbar.
    
    zu3)
    Registriert, werd verbessern. aber erstmal egal ,das ist nicht das Problem.
    
    zu4)
    Registriert, werd verbessern. aber erstmal egal ,das ist nicht das Problem.
    - pq
      
      2009-05-11 16:49
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      2009-05-11T14:40:48 Brenner
      zu2)
      Ohne Anpassungen und vorallem der fehlenden Module wird es bei dir auch nicht laufen. Bei mir gehts wunderbar.
      
      dann versuch mal, ein reproduzierendes programm zu erstellen, damit wir das ausprobieren können. wenn ich dich richtig verstanden habe, war das problem, dass bei einem klick nicht wie gewünscht die funktion ausgeführt wird. daraus schliesse ich, dass du zumindest ein programm hast, welches einen button produziert, auf den du klickst.
      wenn du ein programm hier vorlegst, was noch nicht mal buttons zeigt, dann können wirs ja auch nur mit hellsehen versuchen.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - +2 replies
    - #Kein Kommentar
      
      2009-05-11 19:48
      
      User since
      2007-06-09
      575 Artikel
      HausmeisterIn
      
      Quote
      Ohne Anpassungen und vorallem der fehlenden Module wird es bei dir auch nicht laufen. Bei mir gehts wunderbar.
      
      dann ist es ein bisschen sinnlos den code hier zu posten, wenn es außer bei dir es bei niemanden funktioniert. denn ich will dir zwar gerne helfen, mir aber nicht erst alle möglichen module neu installieren.
      
      wenn du die die destroy-methode so benutzt hast, wie du es vorher angegeben hast, sollte es eigentlich funktionieren. probier doch mal folgendes:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      use strict; use warnings; use Tk; my $mw = MainWindow->new(); $mw->Button(-text => 'Fenster schließen', -command => sub{$mw->destroy();})->pack(); Tk::MainLoop();
      
      Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind
      - Brenner
        
        2009-05-12 10:34
        
        User since
        2009-01-13
        87 Artikel
        BenutzerIn
        
        Hmmmm,
        
        war wohl wirklich irgendwie ein Syntaxfehler bei mir. Hab deinen Abschnitt umgesetzt bzw. eingearbeitet und siehe da, es geht.
        
        Code: (dl )
        
        '-command' => sub{BUTTON1() && $main->destroy();},
        
        Danke!
  - +2 replies
  - pq
    
    2009-05-11 16:47
    
    User since
    2003-08-04
    12209 Artikel
    Admin1
    
    2009-05-11T14:11:01 #Kein Kommentar
    [*] du solltest der $_ variablen keinen wert zuschreiben, ich weiß nichtmal, ob das überhaupt geht
    
    klar geht das. in dem fall finde ich es aber unschön, da wäre eine lexikalische variable viel besser.
    Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
    lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - #Kein Kommentar
      
      2009-05-11 19:38
      
      User since
      2007-06-09
      575 Artikel
      HausmeisterIn
      
      achso, danke, wieder was dazu gelernt.
      Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind

View all threads created 2009-05-11 15:24.