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 > Perl-Win32-GUI-Users@lists.sourceforge.net > 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 Perl-Win32-GUI-Users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users http://perl-win32-gui.sourceforge.net/