A click and hold button

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: A click and hold button (Tk::bind clickon clickoff) by Anonymous Monk on Jul 31, 2013 at 07:46 UTC
that is any button where you use Tk::bind to bind clickon and clickoff, and in clickon you start a button timer if clickoff fires before timer expires, then you run one if timer expires before clickoff fires, you run two clickon is called a press and clickoff is called a release site:perlmonks.org tk bind button click press release	[reply]
Re^2: A click and hold button (Tk::bind clickon clickoff) by Anonymous Monk on Jul 31, 2013 at 09:54 UTC
Thanks. I played with the timers a bit, but I'm still missing on how to create the pop-up menu bellow the button.	[reply]
Re^3: A click and hold button (Tk::bind clickon clickoff) by Anonymous Monk on Jul 31, 2013 at 10:02 UTC
well, button has coordinates, mouse has coordinates, so site:perlmonks.org tk popup menu button OTOH, I hear there are such things as popup-buttons called Tk::Menubutton `use Tk::WidgetDump; $mainWindow->WidgetDump; MainLoop;`	[reply]
Re^4: A click and hold button (Tk::bind clickon clickoff) by Anonymous Monk on Aug 01, 2013 at 06:43 UTC
Re^4: A click and hold button (Tk::bind clickon clickoff) by Anonymous Monk on Aug 01, 2013 at 06:53 UTC
Re^5: A click and hold button (Tk::bind Tk::Menu) by Anonymous Monk on Aug 01, 2013 at 08:30 UTC