Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re: wimpole wxperl help

by jmlynesjr (Hermit)
on Aug 20, 2016 at 00:54 UTC ( #1170105=note: print w/replies, xml ) Need Help??

in reply to wimpole wxperl help


For what it's worth, here's the wxPerl template that I start from.

#! /usr/bin/perl # Name: .pl # Author: James M. Lynes, Jr. # Created: January 13, 2015 # Modified By: James M. Lynes, Jr. # Last Modified: May 4, 2016 # Environment Ubuntu 14.04LTS / perl v5.18.2 / wxPerl 3.0.1 / H +P 15 Quad Core # Change Log: 1/13/2015 - Program Created # 1/6/2016 - Fixed comment error in Sizer section # 5/4/2016 - Fixed missing Add in Sizer section, Added mes +sagebox and radiobox sections # Description: # Notes: # package main; use strict; use warnings; my $app = App->new(); $app->MainLoop; package App; use strict; use warnings; use base 'Wx::App'; sub OnInit { my $frame = Frame->new(); $frame->Show(1); } package Frame; use strict; use warnings; use Wx qw(:everything); use base qw(Wx::Frame); use Data::Dumper; sub new { my ($class, $parent) = @_; # Create Top Level Frame my $self = $class->SUPER::new($parent, -1, "Frame Title", wxDefaul +tPosition, wxDefaultSize); # Create Title Text $self->{titletext} = Wx::StaticText->new($self, -1, "Title Text", +wxDefaultPosition, wxDefaultSize); # Create Buttons $self->{button} = Wx::Button->new($self, -1, "Button Label", wxDef +aultPosition, wxDefaultSize); # Create Data Entry Prompts and Boxes $self->{label} = Wx::StaticText->new($self, -1, "Prompt Text", wxD +efaultPosition, wxDefaultSize); $self->{text} = Wx::TextCtrl->new($self, -1, "Default Value", wxDe +faultPosition, wxDefaultSize); # Create a Messsage/Error Box Wx::MessageBox("Multiline\nError\nText", "Message Box Title", wxIC +ON_ERROR, $self); # Create a Radio Box my $choices = [ "A", "B", "C", "D", "E", "F", "G", "H", "I"]; $self->{radiobox} = Wx::RadioBox->new($self, -1, "Radio Box Title" +, wxDefaultPosition, wxDefaultSize, $choices, 3, wxRA_SPECIFY_COLS); # Define Sizer Structure - My "Standard" Layout # Assumes: One Main Sizer(Vertical) # One Header Sizer(Horizontal) # One Body Sizer(Horizontal) containing # Left Body Sizer(Vertical) # Right Body Sizer(Vertical) # Three Footer Sizers(horizontal) # # Create Sizers my $mainSizer = Wx::BoxSizer->new(wxVERTICAL); $self->SetSizer($mainSizer); my $headerSizer = Wx::BoxSizer->new(wxHORIZONTAL); my $bodySizer = Wx::BoxSizer->new(wxHORIZONTAL); my $leftbodySizer = Wx::BoxSizer->new(wxVERTICAL); my $rightbodySizer = Wx::BoxSizer->new(wxVERTICAL); my $footer1Sizer = Wx::BoxSizer->new(wxHORIZONTAL); my $footer2Sizer = Wx::BoxSizer->new(wxHORIZONTAL); my $footer3Sizer = Wx::BoxSizer->new(wxHORIZONTAL); # Layout Main Sizer $mainSizer->Add($headerSizer,0,0,0); $mainSizer->AddSpacer(20); $mainSizer->Add($bodySizer,0,0,0); $mainSizer->AddSpacer(30); $mainSizer->Add($footer1Sizer,0,0,0); $mainSizer->AddSpacer(10); $mainSizer->Add($footer2Sizer,0,0,0); $mainSizer->AddSpacer(10); $mainSizer->Add($footer3Sizer,0,0,0); # Layout Header Sizer $headerSizer->AddSpacer(150); $headerSizer->Add($self->{titletext},0,0,0); # Layout Body Sizer $bodySizer->Add($leftbodySizer,0,0,0); $bodySizer->AddSpacer(50); $bodySizer->Add($rightbodySizer,0,0,0); # Layout Left and Right Body Sizers $leftbodySizer->Add($self->{},0,0,0); $rightbodySizer->Add($self->{},0,0,0); # Layout Footer Sizers $footer1Sizer->Add($self->{},0,0,0); $footer2Sizer->Add($self->{},0,0,0); $footer3Sizer->Add($self->{},0,0,0); # Assign mainSizer to the Frame and trigger layout $mainSizer->Fit($self); $mainSizer->Layout(); # Event Handler Template Wx::Event::EVT_BUTTON($self, $button, sub { my ($self, $event) = @_; }); Wx::Event::EVT_TEXT($self, $text, sub { my ($self, $event) = @_; }); # Define Timer $self->{timer} = Wx::Timer->new($self); # Start Timer $self->{timer}->Start(1000); # 1 sec period return $self; } 1;


There's never enough time to do it right, but always enough time to do it over...

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1170105]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (5)
As of 2018-06-24 20:48 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (126 votes). Check out past polls.