Validate für text Widget ? (Graphische Oberflächen)

[thread]14836[/thread]

Validate für text Widget ?

Leser: 19

Articles: hide open all | hide show old branches

+4 replies
Kalle

2010-03-19 09:47
User since
2007-03-18
48 Artikel
BenutzerIn
Guten Morgen,

Ich möchte dem Text Widget ein paar einfache Kommandos beibringen wie CTRL-S für speichern oder CTRL-F für find und solche Sachen.
Anscheinend gibt es aber kein validatecommand für das Text Widget.
Jetzt kann ich ja selbst ein paar binds hinzufügen, entweder direkt per bind an die bestimmte Taste oder per KeyPress/KeyRelease für alle Tasten.
Problem dabei ist, daß einige Controlzeichen output erzeugen, der im Text Widget erscheint. Den würde ich gerne unterdrücken, aber ich krieg nicht raus wie das geht.

Ich weiss wie ich das zuletzt eingegebe Zeichen wieder löschen kann, aber mir ist nicht so wohl bei der Sache. Lieber würde ich die Eingabe unterdrücken.
Weiss jemand wie man Eingaben im Text gezielt unterdrücken kann ?
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/local/bin/perl use strict; use warnings; use Tk; use Tk::TextUndo; my $mw=MainWindow->new(-title=>'CTRL-S Test'); my $text = $mw->Scrolled('TextUndo', -scrollbars=>'osoe', -width=>40, -height=>15)->pack; my $closebutton = $mw->Button(-text=>'Close', -command=>sub {$mw->destroy;})->pack(-fill=>'x'); $text->bind('<Control-KeyPress-r>',sub{$text->delete('insert - 1 chars'); print "CTRL-R gedrückt\n";}); $text->bind('<KeyPress>', [\&text_validate,Ev('A')]); MainLoop(); sub text_validate { my ($text,$A) = @_; if ($A eq chr(19)) { # CTRL-S gedrückt #$text->break; print "Gotcha\n"; $text->break; } else { print "weiter\n"; } }
Dieses $text->break fand ich nach einiger Suche im Web, aber es will nicht so wie ich will. Und aktiviert man das break vor dem print, wird noch nichtmal geprinted...seltsame Sache das.
Weiss jemand wie das geht ?

Gruß

Kalle
- +3 replies
- Kalle
  
  2010-03-20 17:05
  User since
  2007-03-18
  48 Artikel
  BenutzerIn
  So...Problem gelöst. Hatte die Notwendigkeit von bindtags falsch eingeschätzt und demnach weggelassen (aus einem Stueck Code von 'Lamprecht' in de.comp.lang.perl.misc)
  
  Auszug aus der Beschreibung:
  
  Quote
  The order of the elements in tagList determines the order in which binding scripts are executed in response to events.
  
  So gehts ohne, daß bei CTRL-S ein Steuerzeichen in den Text übernommen wird und auch bei CTRL-f wird der Zeichenvorschub unterdrückt.
  
  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 31 32 33 34 35 36 37 38
  
  #!/usr/local/bin/perl use strict; use warnings; use Tk; use Tk::TextUndo; my $mw=MainWindow->new(-title=>'CTRL-S Test'); # Scrolled weggemacht und schon gehts my $text = $mw->TextUndo(-width=>40, -height=>15)->pack; my $closebutton = $mw->Button(-text=>'Close', -command=>sub {$mw->destroy;})->pack(-fill=>'x'); $text->focus(); $text->bind('myValidate', '<KeyPress>', [\&text_validate,Ev('A')]); $text->bindtags(['myValidate',$text->bindtags]); MainLoop(); sub text_validate { my ($text,$A) = @_; if ($A eq chr(19)) { #CTRL-s gedrückt print "CTRL-s gedrueckt. speichern.\n"; save_me(); $text->break; } elsif ($A eq chr(6)) { print "CTRL-f gedrueckt. Zeige Find Popup.\n"; $text->FindPopUp; $text->break; } else { print "weiter\n"; } } sub save_me { print "saved\n"; }
  
  Warum ich auch noch 'Scrolled' rausnehmen musste, weiss ich allerdings noch nicht.
  
  Gruß
  
  Kalle
  - +2 replies
  - MatthiasW
    
    2010-03-21 08:52
    User since
    2008-01-27
    367 Artikel
    BenutzerIn
    
    2010-03-20T16:05:06 Kalle
    Warum ich auch noch 'Scrolled' rausnehmen musste, weiss ich allerdings noch nicht.
    
    In deinem ersten Skript (mit Scrolled) arbeitest du mit einem Scrolled-Objekt, während du nun ein TextUndo-Objekt verwendest. Vermutlich funktionieren einige Methoden nicht richtig, wenn sie nicht das "richtige" Widget bekommen.
    
    Ich denke folgendes sollte funktionieren:
    
    Code (perl): (dl )
    
    my $text = $mw->Scrolled( TextUndo => ... )->pack( ... )->Subwidget('scrolled');
    
    Damit erzeugst du ein Scrolled holst dir aber mittels ->Subwidget('scrolled') dann das TextUndo, sodass es keine Probleme geben sollte.
    
    MfG
    perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
    - Kalle
      
      2010-03-21 12:13
      
      User since
      2007-03-18
      48 Artikel
      BenutzerIn
      
      Funktioniert wie geschmiert :)
      Danke Matthias

View all threads created 2010-03-19 09:47.