Re: Clean Shutdown

Hi James,

I've replied to the list as well because I feel it needs a bit of loving!

On 28/01/15 18:23, James Lynes wrote:
> Hi Steve:
>
> How's your project rollout going?
Very kind of you to ask.  The launch went very well, since then we have 
been dealing with the manufacturer and we are working to a delivery of 
the first batch to Brazil by the end of March.  Our Brazilian salesman 
is confident that he will sell all the first batch without too much 
difficulty.
> What's the accepted method to shutdown an application?
>
> I can use die, but there must be a WX call that should be used. I 
> don't want to leave a frame open on the screen that has to be closed 
> manually.
>
> Example using die is attached. (Wrapper around a command line application)

The short answer to your question is probably "exit(0);" called from an 
exit button.

However, the longer answer is did you ever see wxGlade?

I don't know whether wxGlade was ever converted to 3.0.x, but it did 
work on 2.8 and I thought 2.9.  It's a wonderful way to get started with 
all the Wx paradigms.  I used it extensively at the beginning.

I re-wrote the OnInit subroutine as below.  It uses Wx::BoxSizer and 
Wx::Events, both of which will help your application.  I also used 
Wx::FilePickerCtrl as a control to get the .pdf file.

Have fun with it.

Best regards

Steve.


sub OnInit {

     my $parent  = shift;


     my $frame = Wx::Frame->new(undef, wxID_ANY, "", wxDefaultPosition, 
wxDefaultSize );

     $parent->SetTopWindow($frame);

     #Create controls
     # Fields
     my $pdfLabel=Wx::StaticText->new($frame, wxID_ANY,"PDF file", 
wxDefaultPosition, wxDefaultSize);
     my $pdfFilePicker=Wx::FilePickerCtrl->new($frame, wxID_ANY, "", 
"Pick a folder","*.pdf",wxDefaultPosition, [200,-1], 
wxDIRP_DIR_MUST_EXIST|wxDIRP_CHANGE_DIR|wxDIRP_USE_TEXTCTRL);
     $pdfFilePicker->SetPath("/home/image/");
     my $cropLabel=Wx::StaticText->new($frame, wxID_ANY,"crop string", 
wxDefaultPosition, wxDefaultSize);
     my $cropStringText=Wx::TextCtrl->new($frame, wxID_ANY,"crop 
string", wxDefaultPosition, [200,-1]);
     # Buttons
     my $okButton = Wx::Button->new($frame, wxID_OK, "", 
wxDefaultPosition, wxDefaultSize);
     my $cancelButton = Wx::Button->new($frame, wxID_CANCEL, "", 
wxDefaultPosition, wxDefaultSize);

     # Create sizers.
     my $verticalSizerFrame = Wx::BoxSizer->new(wxVERTICAL);
     $frame->SetSizer($verticalSizerFrame);
     my $verticalSizerControls = Wx::BoxSizer->new(wxVERTICAL);
     my $horizontalSizerButtons = Wx::BoxSizer->new(wxHORIZONTAL);
     # Lay 'em out.
     $verticalSizerFrame->Add($verticalSizerControls,0,0,0);
     $verticalSizerFrame->Add($horizontalSizerButtons,0,0,0);

     $verticalSizerControls->Add($pdfLabel,0,0,0);
     $verticalSizerControls->Add($pdfFilePicker,0,0,0);
     $verticalSizerControls->Add($cropLabel,0,0,0);
     $verticalSizerControls->Add($cropStringText,0,0,0);

     $horizontalSizerButtons->Add($okButton,0,0,0);
     $horizontalSizerButtons->Add($cancelButton,0,0,0);

     # Event handlers
     Wx::Event::EVT_BUTTON($frame, $okButton, sub {
     my ($self, $event) = @_;
         exit (0);
     });

     $verticalSizerFrame->Layout();

     $frame->Show(1);

}

>
> Thanks,
> James