Thread tk::balloon und menu type menubar + cascade: der balloon wird nicht angezeigt (14 answers)
Opened by PerlProfi at 2007-01-06 11:52

ptk
 2007-01-07 23:48
#46064 #46064
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
Hier kannst du den Fix für das Tk::Balloon+Menuitem-Problem finden. Oder als Patch ist es einfach nur:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
--- Tixish/Balloon.pm   (revision 1074)
+++ Tixish/Balloon.pm (local)
@@ -256,6 +256,11 @@ sub grabBad {
return 0 if $g->isa('Tk::Menu');
return 0 if $g eq $client;

+ # Ignore grab check if $w is the balloon itself.
+ # XXX Why is this necessary? Is it possible to remove the grabBad
+ # condition in SwitchToClient altogether?
+ return 0 if $w->isa(__PACKAGE__);
+
# The grab is OK if $client is a decendant of $g. Use the internal Tcl/Tk
# pathname (yes, it's cheating, but it's legal).

View full thread tk::balloon und menu type menubar + cascade: der balloon wird nicht angezeigt