Opened by PerlProfi at 2007-01-06 11:52
User since
2006-11-29
340 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-11-29
340 Artikel
BenutzerIn
Hallo,
ich habe ein großes Menü und würde gernezu einigen Einträgen eine Meldung in der Statusleiste bekommen, sobald der Benutzer mit der Maus über bestimmte Einträge fährt.
Leider funktioniert das nicht so, wie ich mir das vorgestellt habe.
Hier mal ein kurzes Beispiel:
Ich habe auch schon versucht die cascade()s zu attach()en, aber das kann Tk::Balloon leider nicht, weil eine Methode(OnDestroy, oder so ähnlich) nicht für cascade()s gefunden wird.
Die kann man ja auch nicht mit destroy() zerstören.
Jetzt dachte ich, dass würde mit einem anonymen Array als -msg/-statusmsg klappen, weil das so in der Doku steht. Leider funktioniert das aber auch nicht.
Kann mir jemand sagen, wie ich bestimmte Einträge eines Menüs mit einem Tooltip ausstatte?
MfG PerlProfi
ich habe ein großes Menü und würde gernezu einigen Einträgen eine Meldung in der Statusleiste bekommen, sobald der Benutzer mit der Maus über bestimmte Einträge fährt.
Leider funktioniert das nicht so, wie ich mir das vorgestellt habe.
Hier mal ein kurzes Beispiel:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use strict;
use warnings 'all';
use Tk;
my $mw = tkinit();
my $menu = $mw->Menu(-type => "menubar");
$mw->configure(-menu => $menu);
$menu->cascade(-label => "~Datei");
my $balloon = $mw->Balloon(-initwait => 1);
$balloon->attach($menu, -msg => ["Menü: Datei"]);
MainLoop;
__END__
Ich habe auch schon versucht die cascade()s zu attach()en, aber das kann Tk::Balloon leider nicht, weil eine Methode(OnDestroy, oder so ähnlich) nicht für cascade()s gefunden wird.
Die kann man ja auch nicht mit destroy() zerstören.
Jetzt dachte ich, dass würde mit einem anonymen Array als -msg/-statusmsg klappen, weil das so in der Doku steht. Leider funktioniert das aber auch nicht.
Kann mir jemand sagen, wie ich bestimmte Einträge eines Menüs mit einem Tooltip ausstatte?
MfG PerlProfi