Re: Adding items to default Text widget <button-2> menus?

Replies are listed 'Best First'.
Re^2: Adding items to default Text widget <button-2> menus? by cmv (Chaplain) on Jan 20, 2011 at 19:15 UTC
Thanks for the pointer here. This helps me with how to add/delete a menu item from an existing menu. However, my first problem is how to I get access to the default Text menu? I can't seem to find that anywhere! Update: Ah, found it `$text->menu()` This should give me all the pieces I need. Thanks monks!	[reply] [d/l]
Re^3: Adding items to default Text widget <button-2> menus? by Anonymous Monk on Jan 20, 2011 at 19:42 UTC
`$ perl -d:Trace -MTk -e" tkinit()->Text()->pack; MainLoop" 2>2 $ grep -i bind 2 \|grep -i "<3>" Tk/Text.pm:146: $mw->bind($class, '<3>', ['PostPopupMenu', Ev('X'), E +v('Y')] );` [download] http://cpansearch.perl.org/src/SREZIC/Tk-804.029/Text/Text.pm Read more... (2 kB) http://cpansearch.perl.org/src/SREZIC/Tk-804.029/Tk/Widget.pm Read more... (1253 Bytes) perl tk trigger event Tk::event->eventGenerate `$ perl -MTk -e" $a=tkinit(); $a->Button( qw! -text bam -command !, sub + { $b->eventGenerate(q!<3>!); } )->pack; $b = $a->Text()->pack; Main +Loop"` [download]	[reply] [d/l] [select]