Tk: Keybinding Probleme (solved) (Graphische Oberflächen)

[thread]16169[/thread]

Tk: Keybinding Probleme [solved]

Tags: perl5 GUI Tk Similar Threads

Readers: 19

Articles: hide open all | hide show old branches

+4 replies
Probo

2011-04-09 13:14
User since
2010-09-11
6 articles
BenutzerIn
Hallo liebes Forum,

ich bin etwas durcheinander und evtl. fehlt mir auch etwas Hintergrundwissen was Referenzen angeht, aber das hier ist schon recht merkwürdig.
Code: (dl )

my $button1 = $frame4 -> Button(-text => "Suchen", -command =>[\&datenbank_suche, $scrl,$suchbegriff], -width=>'20' )
$suchbeggriff ist ein EntryWidget und $scrl eine ScrollListBox.

Der Button übergibt $suchbegriff und $scrl an die Subroutine datenbank_suche wo ich dann mittels $suchbeggriff->get; den Eintrag hole und in
$scrl die Ergebnisse reinschreibe.

Das klappt sogar recht gut.

Mein Problem ist das hier:
Code: (dl )

my $enter=$suchbegriff->bind('<Return>',[\&datenbank, $scrl,$suchbegriff]);
Code: (dl )

1 2 3 4 5 6 7 8 9

### sub datenbank_suche { ### my $scrl = shift; my $hash = shift; my $sucher = $hash->get; .... }
$scrl scheint beim <Enter> Event einfach nicht bei datenbank_suche anzukommen.

Warum nur klappt es beim Button?

Grüße Probo
- +2 replies
- FIFO
  
  2011-04-09 14:38
  User since
  2005-06-01
  469 articles
  BenutzerIn
  2011-04-09T11:14:17 Probo
  Hallo liebes Forum,
  $scrl scheint beim <Enter> Event einfach nicht bei datenbank_suche anzukommen.
  
  Warum nur klappt es beim Button?
  
  Weil der bind-callback als erstes Argument eine Objektreferenz des aufrufenden Widgets übergibt, $scrl steht dann in $_[1] und nicht in $_[0].
  
  Gruß FIFO
  
  Wenn Du willst, dass beide Varianten ~~den selben~~ einen gleichartigen sub-Aufruf generieren, kannst ~~musst~~ Du beim Button auch das Button-Objekt übergeben:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my $button1; $button1 = $frame4 -> Button( -text => "Suchen", -command =>[\&datenbank_suche, $button1, $scrl, $suchbegriff], -width=>'20' );
  
  Edit: Das Übergeben des noch nicht initialisierten Button-Objektes ist wahrscheinlich Blödsinn. Kann das aktuell hier nicht testen. Wenn man die Objektreferenz in der sub ohnehin nicht braucht, kann man einen beliebigen Skalar nehmen.
  
  und in der sub dann zuerst die Referenz abrufen:
  
  Code (perl): (dl )
  
  1 2 3
  
  sub datenbank_suche { my ($called_by, $scrl, $suchbegriff) = @_; ...
  
  Edit2: Falls doch das aufrufende Widget interessiert, sollte der Button so gehen:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my $button1 = $frame4 -> Button( -text => "Suchen", -width=>'20' ); $button1->configure(-command =>[\&datenbank_suche, $button1, $scrl, $suchbegriff]);
  
  Last edited: 2011-04-09 15:21:18 +0200 (CEST)
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - Probo
    
    2011-04-09 15:32
    
    User since
    2010-09-11
    6 articles
    BenutzerIn
    
    Vielen Dank - nun klappt es.
- pq
  
  2011-04-09 15:37
  
  User since
  2003-08-04
  12208 articles
  Admin1
  
  kannst du vielleicht dazuschreiben, um welche GUI es geht? Tk, Wx, gtk?
  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

View all threads created 2011-04-09 13:14.