Opened by Robby at 2003-12-01 11:34
User since
2003-11-28
3645 Artikel
ModeratorIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-11-28
3645 Artikel
ModeratorIn
Es gibt Tk::Compound, mit dem man on-the-fly Bilder und Text zu einem Bild zusammenfuegen kann. Dieses Bild kann man dann als Menuitem verwenden. Problematisch ist allerdings, dass das Highlightning dann nicht mehr wie erwartet funktioniert, ausserdem muss man sich um das Unterstreichen des Accelerators selbst kuemmern.
Ab Tk804.025 kann man die neue Option -compound verwenden. Das siehr dann so aus:
Ab Tk804.025 kann man die neue Option -compound verwenden. Das siehr dann so aus:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
use Tk;
my $top = MainWindow->new;
$top->configure(-menu => $top->Menu(-menuitems => [
[Cascade => "~File", -menuitems =>
[
[Button => "~Open", -image => $top->Photo(-file => Tk->findINC("srcfile.xpm")), -compound => "left"],
[Button => "~Folder", -image => $top->Photo(-file => Tk->findINC("folder.xpm")), -compound => "left"],
]
]
]));
MainLoop;