On 26/09/2007, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
> 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?
As you haven't posted a *short* and *complete* example of what you are
trying to do, I can't really understand what it is that you are
asking.
I *suspect* that you want something like
$filenameDlg->DoModal();
after your line
$filenameDlg->Show();
I can't be more exact without a complete script to modify. The
tutorial in the documents covers this.
regards,
Rob.
>
> 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/
>
--
Please update your address book with my new email address:
[EMAIL PROTECTED]
-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems? Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >> http://get.splunk.com/
_______________________________________________
Perl-Win32-GUI-Users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/
