The example I gave above works with a Scrolled Text widget as well. Just change the line

my $txt = $mw->Text()->pack(-side => 'top');
#to
my $txt = $mw->Scrolled('Text')->pack(-side => 'top');
[download]

Another option is to bind mouse button 3 ( right click ) to the $mw to do your change. Supressing the Text menu is up to you.

#!/usr/bin/perl

use Tk;

my $mw = MainWindow->new;
my $txt = $mw->Scrolled('Text')->pack(-side => 'top');

$mw->bind('<Button-3>', sub { print "main control 3 \n" });


MainLoop;
[download]