RE: [tcltk-perl] Menu changes ??

[Jeff H. <je...@ac...>]

> > 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:

Vadim,

This change doesn't affect the fact that all menus are
being created in the toplevel.  Right now I can't connect
to SF, so I can't see if you are referring to that change
in conjunction with other fixes.

I agree that we need to improve the tests.  Below is the
DialogBox code that no longer works.  This should be made
a test (again, when SF comes back to life), but you can
see now the issues.

Thanks,

Jeff

use Tcl::Tk;

my $interp = new Tcl::Tk;
my $mw = $interp->mainwindow();

my $btn = $mw->Button(-text => "Show Dialog", -command => \&add);
$btn->pack;

sub add {
    my $d = $mw->DialogBox(-title => "Dialog Title",
			   -buttons => ["Ok", "Cancel"]);
    $d->resizable(0, 0);
}

$interp->MainLoop();
exit;