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
