[perl-win32-gui] Window->Show() Observation

[Eric C. Hansen]

It appears that the show method does not fire until control returns to
Win32::GUI::Dialog();  Aldo, is there any way we can get Show() programmed
to fire immediately?  Please study my below example and the notes.

Thanks,
Eric Hansen


# OK button click event for DialogBox #1
sub D1OK_Click {
   $D1->Disable();
   $D2->Enable();
   $D2->Show();
}

# OK button click event for DialogBox #2
sub D2OK_Click {
   $D2->Disable();
   $D2->Hide();
   $D1->Enable();
   $D1->Show();   # Show() method does not fire till Do_Process completes
                  # and control returns to Win32::GUI::Dialog()
                  # since the DialogBox1 screen does not refresh till then.

   Do_Process();  # call a subroutine to do some procedure code
}

sub Do_Process {
   # procedure code executed here
}