Board Allgemeines - Thread Perl/Tk Frame->bind problem

[thread]72[/thread]

Perl/Tk Frame->bind problem

Readers: 10

Articles: hide open all | hide show old branches

+3 replies
guest MatthiasW

2009-03-08 20:20
Hallo alle zusammen,

Ich habe gerade feststellen müssen, dass ein Motion-binding an einen Tk::Frame nicht ausgeführt wird, wenn sich die Maus über in dem Frame gepackten Widgets befindet:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

#!/usr/bin/perl use strict; use warnings; use Tk; my $mw = tkinit; my $frame = $mw ->Frame()->pack(qw/ -fill both -expand 1 /); my $text = $frame->Text() ->pack(qw/ -fill both -expand 1 /); $frame->bind( '<Motion>' => sub { print "Frame-Motion\n" } ); MainLoop;
Kommentiert man Zeile 11 aus, funktioniert es wie gewollt. Mit dem Textfeld wird das binding aber leider nicht ausgeführt.

Muss ich eventuell mit einem bind-Tag nachhelfen?
Falls dem so ist, wie könnte/müsste der Tag aussehen? Ich habe es schon mit $frame->class, und $frame->name probiert, aber anscheinend habe ich die Doku zu den Tags falsch verstanden, denn mit einem Tag funktioniert das binding nicht mal mehr, wenn das Textfeld nicht vorhanden ist.

MfG
- +2 replies
- mrzo
  
  2009-03-09 16:05
  User since
  2009-03-04
  10 articles
  BenutzerIn
  du musst der bind-methode als erstes argument ein 'all' übergeben, dann
  funktioniert es.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  #!/usr/bin/perl use strict; use warnings; use Tk; my $mw = tkinit; my $frame = $mw ->Frame(-height => 50, )->pack(qw/ -fill both -expand 1 /); my $text = $frame->Text() ->pack(qw/ -fill both -expand 1 /); my $label = $frame->Label(-text => 'Noch ein Widget') ->pack(qw/ -fill both -expand 1 /); $frame->bind('all','<Motion>' => sub { print "Frame-Motion\n" } ); MainLoop;
  
  Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind.
  - guest MatthiasW
    
    2009-03-09 21:53
    
    Ah, sehr vielen Dank!

View all threads created 2009-03-08 20:20.