RE: [perl-win32-gui-users] Running user functions after terminate window

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

Between sub Dropdown_Change and sub GetFiles there's a statement of
'GetFiles($s);' That's what's doing it. Was that a typ-o?

> -----Original Message-----
> From: Jos...@DM... [mailto:Jos...@DM...]
> Sent: 04 September 2001 12:09
> To: per...@li...
> Subject: [perl-win32-gui-users] Running user functions after terminate
> window
> 
> 
> Hello,
> 
> I have a strange problem with my code.  After I terminate my 
> window.  The
> program runs my user defined functions again.  Why is it 
> doing this and how
> do I stop it.  I've included my code but I took everything out but the
> print statements which show the function running after the I 
> terminate the
> gui window, below the code is the output.
> 
> -----------CODE-----------
> # WebDeploy v2.0.0
> 
> use Win32::GUI;
> use File::Copy;
> use Win32::File;
> 
> print "#Before CreateWindow()\n";
> CreateWindow();
> print "#After CreateWindow(), Before Show()\n";
> $Window->Show();
> print "#After Show(), Before Dialog\n";
> Win32::GUI::Dialog();
> print "#After Dialog\n";
> print "#Finished\n";
> 
> #=====================
> sub CreateWindow {
>      print "#Start of CreateWindow()\n";
>      $Window = new GUI::Window(
>           -name     =>   "Window",
>           -text     =>   "Web Deploy v2.0.0",
>           -width    =>   800,
>           -height   =>   700,
>           -left     =>   25,
>           -top =>   25,
>      );
> 
> 
> 
>      $CBdropdown = $Window->AddCombobox(
>          -name   => "Dropdown",
>          -left   => 10,
>          -top    => 500,
>          -width  => 250,
>          -height => 100,
>          -style  => WS_VISIBLE | 2 | WS_NOTIFY,
>      );
>      $CBdropdown->InsertItem("samples");
>      $CBdropdown->InsertItem("Ops");
>      $CBdropdown->InsertItem("Timesheet");
> 
>      print "#End of CreateWindow()\n";
> }
> 
> #====================
> sub Dropdown_Change {
>      print "#Start of Dropdown_Change\n";
>      my $s = $CBdropdown->SelectedItem;
>      print "#Before GetFiles()\n";
>      GetFiles($s);
>      print "#After GetFiles(), End of Dropdown_Change\n"
> }
> 
> #=====================
> GetFiles($s);
> #=====================
> sub GetFiles {
>      print "#Start of GetFiles()\n";
>      print "#Before InsertListItem\n";
>      InsertListItem();
>      print "#After InsertListItem\n";
>      print "#End of GetFiles()\n";
> }
> 
> #====================
> sub InsertListItem {
>      print "#Start of InsertListItem\n";
>      print "#End of InsertListItem\n";
> }
> 
> #=====================
> sub Window_Terminate {
>      print "#In Window_Terminate\n";
>     return -1;
> }
> 
> -----------OUTPUT---------------
> D:\code>webdeploy2.pl
> #Before CreateWindow()
> #Start of CreateWindow()
> #End of CreateWindow()
> #After CreateWindow(), Before Show()
> #After Show(), Before Dialog
> #Start of Dropdown_Change
> #Before GetFiles()
> #Start of GetFiles()
> #Before InsertListItem
> #Start of InsertListItem
> #End of InsertListItem
> #After InsertListItem
> #End of GetFiles()
> #After GetFiles(), End of Dropdown_Change
> #In Window_Terminate
> #After Dialog
> #Finished
> #Start of GetFiles()
> #Before InsertListItem
> #Start of InsertListItem
> #End of InsertListItem
> #After InsertListItem
> #End of GetFiles()
> 
> D:\code>
> 
> What I did was start the program (The output goes to '#After 
> Show(), Before
> Dialog').  Then I select something from the dropdown box 
> (output goes to '
> #After GetFiles(), End of Dropdown_Change').  Then click on the 'X' to
> close the window.  Now after "#Finished" shouldn't the 
> program end and not
> run my user functions again?
> 
> Please help.
> 
> Thanks,
> 
> Joe
> 
> 
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>