Re: [tcltk-perl] Menu changes ??

[Vadim K. <va...@ar...>]

> it is because of bug in _addcascade subroutine: it creates submenu but it
> creates items not in it but rather in upper menu. This was from very
> beginning and I did not changed that.

here it is:

sub _addcascade {
    my $mnu = shift;
    my $mnup = $mnu->path;
    my $int = $wint{$mnup};
    my $smnu = $mnu->Menu; # return unique widget id
    my %args = @_;
    my $tearoff = delete $args{'-tearoff'};
    if (defined($tearoff)) {
        $smnu->configure(-tearoff => $tearoff);
    }
    $args{'-menu'} = $smnu;
    my $mis = delete $args{'-menuitems'};
    _process_menuitems($int,$smnu,$mis); # but there was
_process_menuitems($int,$mnu,$mis); and hence wrong cascade...