Make the second window a dialog window and use the -parent option when you
create it Example code below.
Cheers,
Kev.
use Win32::GUI;
$Win = new Win32::GUI::Window(
-left => 341,
-top => 218,
-width => 300,
-height => 300,
-name => "Win",
-text => "Window Title"
);
$Win->Show();
$Win->AddButton(
-text => "Click Me",
-name => "Button_1",
-left => 117,
-top => 113,
-width => 57,
-height => 21,
-foreground => 0,
);
$Win2 = new Win32::GUI::DialogBox(
-left => 341,
-top => 218,
-width => 100,
-height => 100,
-name => "Dialog",
-text => "Dialog Box",
-parent => $Win,
);
$Win2->AddButton(
-text => "Click Me",
-name => "DButton_1",
-left => 20,
-top => 20,
-width => 57,
-height => 21,
-foreground => 0,
);
Win32::GUI::Dialog();
sub Win_Terminate {
return -1;
}
sub Button_1_Click {
$Win->Disable();
$Win2->Show();
}
sub DButton_1_Click {
$Win2->Hide();
$Win->Enable();
}
|---------+------------------------------------------------>
| | [EMAIL PROTECTED] |
| | Sent by: |
| | [EMAIL PROTECTED]|
| | ceforge.net |
| | |
| | |
| | 10/04/2002 08:01 |
| | |
|---------+------------------------------------------------>
>----------------------------------------------------------------------------------------------|
|
|
| To: perl-win32-gui-users@lists.sourceforge.net
|
| cc:
|
| Subject: [perl-win32-gui-users] popup window
|
>----------------------------------------------------------------------------------------------|
hi. is there any way of stopping a second window from creating an instance
of itself in the taskbar?
thanx
_______________________________________________
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
