Hi,
I want to make an input with a dialogbox.
but I've the problem that the program continues while the dialogbox is open.
how can i make the script waiting for closing the dialogbox?
thx
juergen
my script:
[snip]
do_something...
ask_filename();
do_the_rest...
sub ask_filename {
# Create Find DialogBox
my $filenameDlg = new Win32::GUI::DialogBox(
-name => "FileDlg",
-title => "Filename",
-pos => [ 150, 150 ],
-size => [ 360, 115 ],
);
# Filename
$filenameDlg->AddTextfield (
-name => "FileDlg_Text",
-pos => [10, 12],
-size => [220, 21],
-prompt => [ "Filename: ", 45],
-tabstop => 1,
);
$filenameDlg->AddButton (
-name => "FileDlg_OK",
-text => "&OK",
-pos => [270, 10],
-size => [75 , 21],
-onClick => sub { $filenameDlg->Hide();
$filename=$filenameDlg->FileDlg_Text->Text; return 0; },
-group => 1,
-tabstop => 1,
);
# Cancel Button
$filenameDlg->AddButton (
-name => "FileDlg_Cancel",
-text => "C&ancel",
-pos => [270, 40],
-size => [75 , 21],
-onClick => sub { $filenameDlg->Hide(); 0; },
-tabstop => 1,
);
$filenameDlg->FileDlg_Text->SetFocus();
$filenameDlg->Show();
return 0;
}
[/snip]
--
Psssst! Schon vom neuen GMX MultiMessenger gehört?
Der kanns mit allen: http://www.gmx.net/de/go/multimessenger
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Perl-Win32-GUI-Users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/
