#!/usr/bin/env perl

use warnings;
use strict;
use Tk;

my $mw = MainWindow->new;
my $text = $mw->Text()->pack;

add_edit_popup($mw, $text);

my $but = $mw->Button(
    -text => "Change me", 
    -command => \&push_button,
);

$but->pack();

MainLoop;

{
    my (@labels, $label_group);
    INIT {
        @labels = ([qw{A B}], [qw{C D}]);
        $label_group = 0;
    }

    sub change_label_group {
        $label_group = $label_group ? 0 : 1;
        return;
    }

    sub add_edit_popup
    {
      my ($mw, $obj) = @_;
      my $menu = $mw->Menu(-tearoff=>0, -menuitems=>[
            #[command=>"Move col to the right", -command=>[sub {MoveColumn('right')}, $obj,]],
            #[command=>"Move col to the left", -command=>[sub {MoveColumn('left')}, $obj,]],
            [command=>$labels[$label_group][0], -command => sub { print "right\n" }],
            [command=>$labels[$label_group][1], -command => sub { print "left\n" }],
            ]); 
      $menu->configure(-postcommand => sub {
            for my $i (0 .. $menu->index('last')) {
                $menu->entryconfigure($i, -label => $labels[$label_group][$i]);
            }
        },
      );
      $obj->menu($menu);  
      $obj->bind('<3>', ['PostPopupMenu', Ev('X'), Ev('Y'), ]);
      return $obj;
    }
}

sub push_button{
#change/configure
#command=>"Move selected column to the right"
#command=>"Move selected column to the left",
    change_label_group();
}