Wx::WidgetMaker - a CGI.pm-like library for wxPerl
use Wx::WidgetMaker; $dialog = Wx::Dialog->new(...); $q = Wx::WidgetMaker->new(-parent => $dialog); # The dialog "page" $pagesizer = Wx::BoxSizer->new(wxVERTICAL); # A "row" in the page $rowsizer = Wx::BoxSizer->new(wxHORIZONTAL); # "print" a control to a row $ctrl = $q->h1('H1 text'); $q->print($ctrl, $rowsizer); # Add the row to the page $q->print($rowsizer, $pagesizer); # A new row $rowsizer = Wx::BoxSizer->new(wxHORIZONTAL); # print a label and textfield in an array $ctrl2 = $q->password_field( -name => 'password', -default => 'blue', -size => 50, # window width, not number of chars -maxlength => 30, ); $q->print([$q->print('Password: '), $ctrl2], $rowsizer); # Add the row to the page $q->print($rowsizer, $pagesizer); # Add some buttons $rowsizer = Wx::BoxSizer->new(wxHORIZONTAL); $okbutton = $q->submit('ok', 'OK', wxID_OK); $cancelbutton = $q->submit('cancel', 'Cancel', wxID_CANCEL); $q->print([$okbutton, $cancelbutton], $rowsizer); $q->print($rowsizer, $pagesizer); # Put widgets in the dialog as normal $dialog->SetAutoLayout(1); $dialog->SetSizer($pagesizer); $pagesizer->Fit($dialog); # Get dialog data if ($dialog->ShowModal() == wxID_OK) { $password = $q->param('password'); } $dialog->Destroy();
When starting to learn wxPerl, it can be frustrating trying to figure out which widgets handle what functionality. If you've ever done CGI development, you soon realize why it's not a bad idea to leverage the web browser as a graphical user interface: it can be complicated to implement functionality that you take for granted as an HTML/CGI developer.
This module tries to make implementing wxPerl dialogs friendlier to a Perl CGI programmer by using an API similar to CGI.pm. (Specifically, it supports what I consider to be a useful/relevant subset of CGI.pm's :standard export tags.) It tries to adhere as faithfully as reasonable to the CGI API where applicable, and otherwise to try to do something intuitive.
Every form-related method (popup_menu, textfield, etc.) requires a -name parameter. It serves the same purpose as in CGI.pm. The values the user has entered/selected on the form are accessible through $q->param('somename') where 'somename' was given as a -name argument.
Here is a reference for the API. Generally methods either take named parameters (-name => 'first') or unnamed parameters passed in the order listed. Optional parameters have their default value listed to the right in parentheses; otherwise, the parameter is required.
The constructor.
Parameters
-parent
The parent window (must be a Wx::Window).
Returns
A new Wx::WidgetMaker object.
Analogous to the HTML tags with the same names. These methods display their string parameter in bold font in various sizes, h1 using the largest and h6 the smallest. Note that unlike the HTML tags, there are no linebreaks before or after the text, so you have to explicitly put them on their own row (e.g. by adding to a wxHORIZONTAL BoxSizer).
h1
h6
a text string
A Wx::StaticText object.
-name
A name for the textfield.
-default, -value ('')
Default text for the textfield.
-size (-1)
The size (width) of the textfield.
-maxlength (unimplemented)
The maximum number of characters that the user can put in the textfield. This is currently unimplemented.
-id (wxDefaultID)
Sets the ID argument for the Wx::TextCtrl.
A Wx::TextCtrl object.
A name for the password field.
Default text for the password field.
The size (width) of the password field.
The maximum number of characters that the user can put in the password field.
A name for the textarea.
Default text for the textarea.
-rows (50)
Height in pixels (XXX: would prefer it to be number of rows of text).
-columns, -cols (100)
Width in pixels (XXX: would prefer it to be the width in chars).
A name for the popup_menu.
-value, -values
A reference to a array of values for the menu.
-default, -defaults (first element of -value aref)
The menu value initially selected.
-labels (from -value)
A hash reference associating each value in -values with a text label.
Sets the ID argument for the Wx::Choice.
A Wx::Choice object.
A name for the scrolling_list.
A reference to an array of values for the menu.
-size (50)
The height of the window. (XXX: would prefer it to be the number of items to show at once)
-multiple (false => default style)
True if the user can select multiple menu items.
Sets the ID argument for the Wx::ListBox.
A Wx::ListBox object.
This method is not implemented yet.
A name for the checkbox_group.
A reference to an array of values for the underlying checkbox values.
-default, -defaults (no boxes checked)
A value which is initially checked.
-linebreak (false => horizontal)
Set this to a true value in order to display the checkboxes vertically. See the -rows and -cols entries for details.
-rows (1)
If -linebreak is false, the value of -rows is the maximum number of rows to display.
-cols (or -columns) (1)
If -linebreak is true, the value of -cols is the maximum number of cols to display.
-rowheaders
This parameter is not yet implemented.
-colheaders
-nolabels (false => display labels)
Set this to true to not display any labels (more precisely, to display '' for all labels).
A required name for the checkbox.
-checked, -selected, -on (false => not checked)
Set any of these optional parameters to a true value in order for the checkbox to be checked initially.
-value
This parameter does nothing. In CGI.pm, you could use it to set a value associated with the checkbox being 'on', but in wxPerl that value is TRUE if the checkbox is checked and FALSE if it is not checked.
-label (-name argument)
An optional label displayed to the user.
Sets the ID argument for the Wx::CheckBox.
A Wx::CheckBox object.
A required name for the radio_group.
A reference to an array of values. These values will be displayed as the radio button labels. See also -labels.
-default (none selected)
-labels (use -values)
A synonym for -values. In CGI.pm, -values gives each radio button a value, while -labels gives the labels. For wxPerl, the radio buttons have no associated values, so using either -values or -labels is equivalent. If both are given, -labels takes precedence.
If -linebreak is false (or not given), the value of -rows is the (maximum) number of rows to display.
If -linebreak is true, the value of -cols is the (maximum) number of cols to display.
-nolabels (false)
Set this to true to not display any labels.
-caption ('')
This parameter is additional to CGI.pm but is useful here because there is a StaticBox put arround the group of radio buttons (whether you like it or not, Wx::RadioBox does this). Use the -caption option to specify the label for the StaticBox. At some point I might implement the radio_group using individual RadioBoxes and give the option to not surround the radio_group with a StaticBox; this would also allow implementing -rowheaders and -colheaders.
Sets the ID argument for the Wx::RadioBox.
A Wx::RadioBox object.
Makes a button with text on it. Note that this is not like the submit button in a CGI form because there is no event handler attached to the button, so by default clicking on the button does nothing.
A required name for the submit button. Unlike CGI.pm, this name will not be displayed as the button label. It is the window name. Otherwise, this -name parameter would be inconsistent with other methods.
-value, -label ('Submit')
In CGI.pm, -value (or -label) gives the button an associated string "underneath" to pass to the application when the button is pressed. Here, instead, the -value will be the button label. Note that you can retrieve the label string with $button->GetLabel().
Sets the ID argument for the Wx::Button, for example wxID_OK or wxID_CANCEL.
A Wx::Button object.
A required name for the button.
-src
A filename giving the location of the bitmap on the button. You have to give either the absolute filename or the filename relative to the current working directory. Currently, filenames with the folling suffixes are supported (assuming your wxWindows has it compiled in): .bmp, .gif, .xbm, .xpm, .jpg, .jpeg, .png, .pcx, .pnm, .tif, .tiff. Otherwise, it will probably segfault.
-align
This parameter is not implemented.
Sets the ID argument for the Wx::BitmapButton.
A Wx::BitmapButton object.
This isn't a CGI.pm method (though it _is_ an Apache.pm method :), but is handy for either creating a StaticText object or adding Control or Sizer objects to a Sizer.
-add
This parameter is overloaded depending on context. If the argument is a plain string, a StaticText object will be returned (XXX: maybe this should be part of textfield, instead). If the argument is a Wx::Control (something returned by one of the other Wx::WidgetMaker methods, like TextCtrl, Choice, etc..) or a Wx::Sizer (BoxSizer, for example) or an array reference of these types of objects, and the -sizer argument is a Wx::Sizer, the control or sizer will be added directly to the sizer. See the -sizer parameter description for details.
-sizer (undef)
If the -add argument is a Wx::Control or Wx::Sizer object, the object will be added to the Wx::Sizer specified by the -sizer argument with $sizer->Add($control). If the -add argument is an array reference of Wx::Control objects, all of the objects will be added sequentially to the $sizer.
-option (0)
The `option' parameter to Wx::Sizer::Add.
-flag (0)
The `flag' parameter to Wx::Sizer::Add.
-border (0)
The `border' parameter to Wx::Sizer::Add.
Either a Wx::StaticText object if -text is a string, or some Wx::Control subclass if -sizer is given.
either zero or one string
Note that there is no "setter" version of param.
If no arguments are passed, returns a list of all the child controls' names (assuming they have a name, which they will if they were created with this module). If a name is passed, in list context returns a list of the selected values, while in scalar context returns the first value found.
Copyright 2002-2004, Scott Lanning <lannings@who.int>. All rights reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The Wx and CGI PODs.
The wxPerl mailing list.
To install Wx::WidgetMaker, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Wx::WidgetMaker
CPAN shell
perl -MCPAN -e shell install Wx::WidgetMaker
For more information on module installation, please visit the detailed CPAN module installation guide.