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:
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
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