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

[Peter E. <Pet...@at...>]

replace exec with system and it works. exec tells perl to run something and
quit.

-----Original Message-----
From: Chris Etzel [mailto:ce...@mi...]
Sent: Thursday, May 10, 2001 9:38 PM
To: per...@li...
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:Pet...@at...>  
To: 'per...@li...'
<mailto:'per...@li...'>  
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:ce...@mi...
<mailto:ce...@mi...> ]
Sent: Thursday, May 10, 2001 8:03 PM
To: per...@li...
<mailto:per...@li...> 
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