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

[Khen1950fx]

FYI, bindtags is simple enough. First, look at the doumentation for Tk::bindtags. Then try this script. It bindtags and shows that the tags were indeed bound.

#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::Text;

my $top = MainWindow->new();

my $txt = $top->Text->pack(-expand => 1, -fill => 'both' );
$txt->bindtags([<Button-2>, <ButtonRelease-2>]);

if (my @tags = $txt->bindtags) {
        foreach my $tag(@tags) {    
                print $tag, "\n";
        }
}

MainLoop;