[Tk] configure Entry (Graphische Oberflächen)

[thread]20248[/thread]

[Tk] configure Entry

Tags: perl5 GUI Tk Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+8 replies
MicHen

2017-02-28 09:21
User since
2017-02-28
2 Artikel
BenutzerIn
Hallo, sollte das hier zu einem Doppelthread führen, bitte ich um Entschuldigung. Letzte Threaderstellung hat scheinbar nicht funktioniert.
Zum Thema:
Ich möchte den String in einem Entry-Widget auf seine Länge prüfen.
Ist er zu lang, soll er rot dargestellt werden, ist er ok, schwarz.
Mein Testscript hat leider den unschönen Effekt, das mein Entry keine Eingabe mehr annimmt.
Dabei scheint es doch absolut simpel zu sein. Vermutlich sehe ich den Wald vor lauter Bäumen nicht.
Bin für jeden Tip dankbar.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

use Tk; use utf8; use strict; use warnings; my($Test, $Laenge, $Meldung) = ""; my $mw = MainWindow->new(); my $ent = $mw->Entry(-textvariable=>\$Test,-validate=>'key',-validatecommand=>\&check)->pack(-side=>'top'); MainLoop(); sub check { if(length($Test)>1) { $ent->configure(-foreground=>'red'); } else { $ent->configure(-foreground=>'black'); } }
- +7 replies
- Linuxer
  
  2017-02-28 12:40
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Die check() Routine sollte einen Boolean Wert zurückliefern, um mitzuteilen, ob der Check ok war oder nicht.
  Und wenn man erzwingt, dass immer 1 (TRUE) geliefert wird, scheint es zu funktionieren:
  
  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
  
  use Tk; use utf8; use strict; use warnings; my($Test, $Laenge, $Meldung) = ""; my $mw = MainWindow->new(); my $ent = $mw->Entry( -textvariable => \$Test, -validate => 'key', -validatecommand => \&check, )->pack(-side=>'top'); MainLoop(); sub check { my $color = 'black'; my $returncode = 1; if ( 1 < length $Test ) { $color = 'red'; } $ent->configure( -foreground => $color ); return $returncode; }
  
  Siehe auch: http://search.cpan.org/~srezic/Tk-804.033/pod/Entr...
  
  PS: Mehr Infos müssten jene liefern, die sich mehr mit Tk beschäftigen und mehr Ahnung haben ;-)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +5 replies
  - MicHen
    
    2017-02-28 14:13
    
    User since
    2017-02-28
    2 Artikel
    BenutzerIn
    
    Hallo Linuxer
    der Tip mit dem Returncode hat schonmal funktioniert.
    Würde mich nur noch interessieren, warum :-)
    Vielen Dank schonmal
    MicHen
    - GwenDragon
      
      2017-02-28 18:08
      
      User since
      2005-01-17
      14533 Artikel
      Admin1
      
      Steht unter https://metacpan.org/pod/distribution/Tk/pod/Entry... dass es einen Rückgabewert braucht.
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - Linuxer
      
      2017-02-28 18:53
      
      User since
      2006-01-27
      3870 Artikel
      HausmeisterIn
      
      Der entscheidende Hinweis steht im von GwenDragon verlinkten Teil.
      
      Quote
      If it returns 0 (or the valid boolean equivalent) then it means you reject the new edition and it will not occur and the invalidCommand will be evaluated if it is set. If it returns 1, then the new edition occurs.
      
      Deine Variante liefert offensichtlich keine Rückgabe. Damit ist der "boolean context" niemals wahr und jegliche Änderung am Textfeld wird daher verworfen.
      
      Damit erscheint es so, als ob das Textfeld keine Eingabe mehr annimmt (was ja auch korrekt ist).
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
    - +2 replies
    - GwenDragon
      
      2017-02-28 19:08
      
      User since
      2005-01-17
      14533 Artikel
      Admin1
      
      Und wenn ich das richtig verstehe, gibt eine sub, die kein return enthält, immer den zuletzt ausgeführten Ausdruck zurück.
      
      Quote
      (In the absence of an explicit return, a subroutine, eval, or do FILE automatically returns the value of the last expression evaluated.)
      http://perldoc.perl.org/functions/return.html
      
      Weiß ich aber jetzt nicht so, muss jemand mal erklären wie sich das bei der sub des TE auswirkt.
      Last edited: 2017-02-28 19:32:29 +0100 (CET)
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - Linuxer
        
        2017-02-28 20:10
        
        User since
        2006-01-27
        3870 Artikel
        HausmeisterIn
        
        Sollte auch hier so sein. Kleiner Test:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
        
        #! /usr/bin/env perl use strict; use warnings; use 5.010; sub foo { my $str = shift; if ( 1 < length($str) ) { say "ok"; } else { say "no"; } } say foo("a");
        
        Ausgabe:
        
        Code: (dl )
        
        1 2
        
        no 1
        
        Erste Ausgabe "no" wie zu erwarten; zweite Ausgabe ist eine 1 als Rückgabewert "true" des say "no".
        
        Wenn ich das say "no" auf einen nicht-definierten Filehandle schreiben lasse, kommt:
        
        Code: (dl )
        
        1 2 3
        
        Name "main::NOTHERE" used only once: possible typo at /tmp/foo.pl line 14. say() on unopened filehandle NOTHERE at /tmp/foo.pl line 14. Use of uninitialized value in say at /tmp/foo.pl line 18.
        
        Während eines Tests heute Nachmittag hatte ich mir mal die Rückgabe des $ent->configure() der check()-Routine per warn() ausgeben lassen und es kamen nur Warnungen über "uninitialized value" . Da kommt also anscheinend ein undef zurück.
        
        Ich habe das aber nur ausgetestet und keine Recherche im Tk-Source gemacht, was da genau passiert.
        
        D.h. in diesem Fall liefert check() als Rückgabe den Rückgabewert der configure()-Methode; und das resultiert in einem undef (vielleicht noch in einer leeren Liste). Jedenfalls wohl ein Boolean FALSE.
        
        edit: Flüchtigkeitsfehler korrigiert
        Last edited: 2017-04-15 21:15:21 +0200 (CEST)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - hlubenow
    
    2017-04-15 21:06
    User since
    2009-02-22
    875 Artikel
    BenutzerIn
    
    Das ist im Prinzip richtig so.
    Ich kannte dieses validate noch gar nicht, aber es scheint ja ganz praktisch zu sein. Der MainLoop springt dann also bei jeder Eingabe einmal in die check-Funktion (und wieder hinaus, da will er natürlich gern eine Rückmeldung haben).
    
    Ich persönlich würde mir den Inhalt des Entries erst dann mit "->get()" holen, wenn ich ihn brauche.
    
    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
    
    #!/usr/bin/perl use warnings; use strict; use Tk; use utf8; my($Test, $Laenge, $Meldung) = ""; my $mw = MainWindow->new(); my $ent = $mw->Entry(-validate => 'key', -validatecommand => \&check, -foreground => "black", -background => "white"); $ent->focus(); $ent->pack(-side=>'top', -padx => 20, -pady => 20); MainLoop(); sub check { my $Test = $ent->get(); if(length($Test)>1) { $ent->configure(-foreground => 'red'); } else { $ent->configure(-foreground => 'black'); } return 1; }

View all threads created 2017-02-28 09:21.