Thread Perl/Tk Frame->bind problem
(2 answers)
Opened by MatthiasW at 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 |