RE: [tcltk-perl] Menu changes ??

[Konovalov, V. <vko...@sp...>]

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

I tried the code below, and it works properly.
I mean, when I add
  $d->Show;
as a last line of subroutine 'add', then I see DialogBox.

It is either fixed by someone, or was not broken.

May things should work differently than I think of them?

Bets regards,
Vadim.


> 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();