RE: [perl-win32-gui-users] keeping a window open

[Frazier, Joe Jr]

>perldoc -f exec
 exec LIST
 exec PROGRAM LIST
         The `exec()' function executes a system command *AND
         NEVER RETURNS* - use `system()' instead of `exec()' if
         you want it to return. It fails and returns FALSE only
         if the command does not exist *and* it is executed
         directly instead of via your system's command shell (see
         below).
 
note the AND NEVER RETURNS part.  
 
You may want system, but that locks the toolbar until the application
returns.    You probably want to use fork if you are running Perl 5.6.
Win32::Process may might also be an alternative, but using both are
outside of my expertise as far as returning messages from the CALLED
back to the CALLEE( your program). 
 
Also, I would probably set a return 1 statement at the end of each
event.  Not sure it this is needed or not, perhaps someone else could
verify.  
 

-----Original Message-----
From: Chris Etzel [mailto:[EMAIL PROTECTED]
Sent: Thursday, May 10, 2001 9:38 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [perl-win32-gui-users] keeping a window open


yes. 
 
Here is the code. It's messy, but commented ...
 
use Win32::GUI;
#($DOS) = Win32::GUI::GetPerlWindow();
# Win32::GUI::Hide($DOS);
 
# this is basically a test to learn Win32::GUI
my $Toolbar=Win32::GUI::Window->new(
     -name=>'Toolbar',
     -size=>[600,75],
     -title=>"PERL ToolBar",
     );
 
# launcher button on main bar
my $launcher=$Toolbar->AddButton(
     -name=>'launcher',
     -pos=>[10,10],
     -text=>"Launcher",
     );
$Toolbar->launcher->Show();
 

#launch the launcher panel and create panel as separate window
#this is where I can type a command in and run it directly from <STDIN>
 sub launcher_Click{
   my $Launcher=Win32::GUI::Window->new( 
          -name=>'CommandLauncher',
          -size=>[200,75],
          -title=>"Launcher",
          );
   $Launcher->Show();
 

   my $textfield=$Launcher->AddTextfield(
           -name=>'CommandBox',
           -background=>[255,255,0],
           -pos=>[10,10],
           -size=>[150,22],
           );
 
#run button on launcher window
   my $runButton-$Launcher->AddButton(
        -name=>'runbutton',
        -pos=>[160,10],
        -text=>'Run',
        -size=>[30,22],
        );
   $Launcher->runbutton->Show();
 
# this executes the user input of $textfield 
    sub runbutton_Click{
     exec($textfield->Text);
    }
   }
my $NotePadButton=$Toolbar->AddButton(
        -name=>'notepad',
        -pos=>[75,10],
        -text=>'notepad',
           );
 
  
$Toolbar->notepad->Show();
  sub notepad_Click{
   exec("notepad.exe");
    }
 
#exit the program. This is a test to figure out how to keep the 
#toolbar floating without exiting on button_Click. 
 

my $ExitButton=$Toolbar->AddButton(
     -name=>'Exit',
     -pos=>[150,10],
     -text=>'Exit Toolbar',
     );
     
   sub Exit_Click {
    exit;
    }
   
 

$Toolbar->Show();
Win32::GUI::Dialog();
 
# commented this out trying to troubleshoot 
#  sub Toolbar_Terminate{
#   -1;
#  }
 
    
 
 
 
 

----- Original Message ----- 
From: Peter Eisengrein <mailto:[EMAIL PROTECTED]>  
To: 'perl-win32-gui-users@lists.sourceforge.net'
<mailto:'perl-win32-gui-users@lists.sourceforge.net'>  
Sent: Friday, May 11, 2001 7:31 AM
Subject: RE: [perl-win32-gui-users] keeping a window open

Do you have the Win::GUI::Dialog(); statement in there?
 
 

-----Original Message-----
From: Chris Etzel [ mailto:[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]> ]
Sent: Thursday, May 10, 2001 8:03 PM
To: perl-win32-gui-users@lists.sourceforge.net
<mailto:perl-win32-gui-users@lists.sourceforge.net> 
Subject: [perl-win32-gui-users] keeping a window open


Ok, it may be that I have hacking at my script so long I am cross-eyed,
but it is too much fun to stop now. I figured the best way to learn the
Win32::GUI was to write a cool little toolbar with a couple of my most
used apps on it. It floats and brings up my apps like it should, but it
closes after I click the button for the app. How do I keep the script
open until I exit it manually? 
 
I have an exit button but for the life of me I can't figure out how to
tell it 
    unless I click EXIT, stay open.
 
I will kick myself in advance in case this is a basic perl coding issue
and not a Win32gui issue.
 
Thanks, 
Chris