Window is not active...

[krishshan]

Hi,

I am using a following code to create a two window..

use Tk;
$ParentWindow = MainWindow->new;
$ParentWindow->geometry("300x100");
$ParentWindow->title("Multiple Windows Test");
$button1 = $ParentWindow->Button(-text => "Open new window",
                          -command => \&button1_func)->pack(-side => "top");
$ParentWindow->Button(-text => "Exit", -command => sub{exit})->pack();
sub button1_func {
$ChildWindow = $ParentWindow->Toplevel;
$ChildWindow->geometry("200x150");
$ChildWindow->title("Sub Window #1");
$child_button = $ChildWindow->Button(-text => "Close window",
                                       -command => [$ChildWindow => 'destroy'])->pack();
}
MainLoop;
 

By using this code I am facing a problem, child window is not active until I click a mouse point click on a empty space..

I need the child window activate when I click the "open the window"

kindly anyone help me or provide suggestions regarding this..

Thanks,
Shan

[eWish]

I would check the Win32 Modules mailing list at ActiveState. That is probably going to be a better resource.

--Kevin

[krishshan]

Ok Kevin,

Looking forward for your reply,
Thanks.