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

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!

Comment on Re^2: Adding items to default Text widget <button-2> menus? Download Code

Replies are listed 'Best First'.
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]

Replies are listed 'Best First'.

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... (1253 Bytes)

perl tk trigger event

Tk::event

$ 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]