IB2017 has asked for the wisdom of the Perl Monks concerning the following question:
Hello monks
this is surely a naive question, but me and Menus in Tk are not really good friends. How do I add an icon to a pop-menu contructed like this?
#use strict; use warnings; use Tk; my $mw = tkinit(); my $CkAutomaticBackUp; my $b1 = $mw->Button( -text => "Create pop-up", ); $b1->grid(-row => 0, -column => 1,); Popup($mw, $b1); $mw->MainLoop; sub Popup{ my ($mw, $obj) = @_; my $menu = $mw->Menu(-tearoff=>0, -menuitems=>[ [command=>"Something", -command=>[sub {print "Hello"}, $obj,]], ]); $obj->menu($menu); $obj->bind('<ButtonPress>', ['PostPopupMenu', Ev('X'), Ev('Y'), ]) +; return $obj; }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Tk add icon to popup menu
by Anonymous Monk on Jan 19, 2020 at 20:36 UTC | |
by fanasy (Sexton) on Jan 20, 2020 at 08:29 UTC |
Back to
Seekers of Perl Wisdom