Adding a menu bar to the twitter GUI: part 5

Updating to the new Net::Twitter::Lite API
Marc Mims updated the API of his twitter's interface module for Perl.
There are two versions:

• Net::Twitter v3.18 - Major update, object oriented, based on Moose.
• Net::twitter::Lite v0.02 - Not so complete but requiring less dependencies.

In order to use the Lite version (largely sufficient for my modest needs), only trivial changes are needed in the twit_GUI.pl script:

• replace use Net::Twitter by use Net::Twitter::Lite (duh!)
• replace calls to Net::Twitter->new() by calls to Net::Twitter::Lite->new()

This ensures that I am now using a module that is actively supported.

Adding a menu bar
A menu bar can only be added to a Frame. According to the wxPerl docs,

A frame is a window whose size and position can (usually) be changed by the user. It usually has thick borders and a title bar, and can optionally contain a menu bar, toolbar and status bar. A frame can contain any window that is not a frame or dialog.

So, let's replace the Dialog occurences with Frame in the script.
The MyApp modules becomes:

view plainprint?

30. ##############################################################################  
31. #  
32. package MyApp;  
33. #  
34. ##############################################################################  
35. use vars qw(@ISA);  
36. @ISA=qw(Wx::App);   # this tells Perl to look for unknown methods in the Wx::App module  
37.   
38. use Wx qw(wxDefaultSize wxDefaultPosition);  
39.   
40. sub OnInit {  
41.     my($this) = @_;  
42.     my $frame = MyFrame->new('Twit', wxDefaultPosition);  
43.     # set it as top window (so the app will automatically close when   
44.     # the last top window is closed)  
45.     $this->SetTopWindow($frame);  
46.     $frame->Show(1);  
47.     1;  
48. }  

##############################################################################
#
package MyApp;
#
##############################################################################
use vars qw(@ISA);
@ISA=qw(Wx::App);   # this tells Perl to look for unknown methods in the Wx::App module

use Wx qw(wxDefaultSize wxDefaultPosition);

sub OnInit {
    my($this) = @_;
    my $frame = MyFrame->new('Twit', wxDefaultPosition);
    # set it as top window (so the app will automatically close when 
    # the last top window is closed)
    $this->SetTopWindow($frame);
    $frame->Show(1);
    1;
}

package MyDialog becomes package MyFrame:

view plainprint?

49. ##############################################################################  
50. #  
51. package MyFrame;  
52. #  
53. ##############################################################################  
54. use vars qw(@ISA);  
55.   
56. @ISA=qw(Wx::Frame);  
57.   
58. use Wx::Event qw(EVT_BUTTON EVT_CLOSE EVT_TEXT EVT_TEXT_MAXLEN);  
59. use Wx qw(:sizer  
60.           :statictext  
61.           wxDefaultPosition  
62.           wxDefaultSize  
63.           wxDefaultValidator  
64.           wxDEFAULT_DIALOG_STYLE  
65.           wxID_OK  
66.           wxOK  
67.           wxRESIZE_BORDER  
68.           wxTE_MULTILINE  
69.           );  
70.   
71. use constant MAX_POST_LENGTH => 140;  
72.   
73. sub new {  
74.     my $class = shift;  
75.     my $password_file;  
76.   
77.     # Main window  
78.     my $form_width  = 480;  
79.     my $form_height = 195;  
80.     # Array of line numbers used on the dialog window  
81.     my @ylines = (0, 10, 20, 40, 80, 100);  
82.   
83.     my $this = $class->SUPER::new(  
84.                             undef,  # parent  
85.                             -1,     # id  
86.                             $_[0],  # title  
87.                             $_[1],  # position [x, y]  
88.                            [$form_width, $form_height] # size [width, height]  
89.                            );  
90.   
91.     # Display the Wx icon on the application window  
92.     $this->SetIcon(Wx::GetWxPerlIcon());  
93.   
94.     #--------------------------------------------------------------------------  
95.     # Menu Bar  
96.     #--------------------------------------------------------------------------       
97.     my $file_menu = Wx::Menu->new('');  
98.     my $menu_bar = Wx::MenuBar->new();  
99.     $menu_bar->Append($file_menu, '&File');  
100.     $this->SetMenuBar($menu_bar);  
101.     ...  

##############################################################################
#
package MyFrame;
#
##############################################################################
use vars qw(@ISA);

@ISA=qw(Wx::Frame);

use Wx::Event qw(EVT_BUTTON EVT_CLOSE EVT_TEXT EVT_TEXT_MAXLEN);
use Wx qw(:sizer
          :statictext
          wxDefaultPosition
          wxDefaultSize
          wxDefaultValidator
          wxDEFAULT_DIALOG_STYLE
          wxID_OK
          wxOK
          wxRESIZE_BORDER
          wxTE_MULTILINE
          );

use constant MAX_POST_LENGTH => 140;

sub new {
    my $class = shift;
    my $password_file;

    # Main window
    my $form_width  = 480;
    my $form_height = 195;
    # Array of line numbers used on the dialog window
    my @ylines = (0, 10, 20, 40, 80, 100);

    my $this = $class->SUPER::new(
                            undef,  # parent
                            -1,     # id
                            $_[0],  # title
                            $_[1],  # position [x, y]
                           [$form_width, $form_height] # size [width, height]
                           );

    # Display the Wx icon on the application window
    $this->SetIcon(Wx::GetWxPerlIcon());

    #--------------------------------------------------------------------------
    # Menu Bar
    #--------------------------------------------------------------------------     
    my $file_menu = Wx::Menu->new('');
    my $menu_bar = Wx::MenuBar->new();
    $menu_bar->Append($file_menu, '&File');
    $this->SetMenuBar($menu_bar);
    ...

Increase the form height by 10 pixels (up to 195) to make room for the menu bar.
And... voilà!
Er... not too pretty, let's go back to the doc. Oh wait, what is that about panels?

A panel is a window on which controls are placed. It is usually placed within a frame. It contains minimal extra functionality over and above its parent class wxWindow; its main purpose is to be similar in appearance and functionality to a dialog, but with the flexibility of having any window as a parent.

Ah ah! The trick is to place a wxPanel object inside the frame and then relate every existing GUI element to this panel as the parent window. Previously, all the elements (button, text dialog, etc.) had the wxFrame as a parent window, hence the dark grey background. Just add this line before the Menu Bar code:

view plainprint?

93. # Create a panel where to place GUI elements  
94. my $panel = Wx::Panel->new($this, -1);  

    # Create a panel where to place GUI elements
    my $panel = Wx::Panel->new($this, -1);

and replace the $this argument by $panel everywhere you need to set the parent ID.

Now we've got a menu bar element. You can fill it by appending menu elements to it as is shown in the code below. Each menu element can be appended in turn with menu options. The wxFrame::SetMenuBar() method displays a given menu bar.

view plainprint?

95. #--------------------------------------------------------------------------  
96. # Menu Bar  
97. #--------------------------------------------------------------------------   
98. my $menu_bar = Wx::MenuBar->new();  
99.   
100. my $file_menu = Wx::Menu->new();   
101. $file_menu->Append(11, 'E&xit');  
102. $menu_bar->Append($file_menu, '&File');  
103.   
104. my $help_menu = Wx::Menu->new();  
105. $help_menu->Append(21, '&About');  
106. $menu_bar->Append($help_menu, '&Help');  
107.   
108. # wxFrame method to show a given menu bar  
109. $this->SetMenuBar($menu_bar);  

    #--------------------------------------------------------------------------
    # Menu Bar
    #-------------------------------------------------------------------------- 
    my $menu_bar = Wx::MenuBar->new();

    my $file_menu = Wx::Menu->new(); 
    $file_menu->Append(11, 'E&xit');
    $menu_bar->Append($file_menu, '&File');
 
    my $help_menu = Wx::Menu->new();
    $help_menu->Append(21, '&About');
    $menu_bar->Append($help_menu, '&Help');

    # wxFrame method to show a given menu bar
    $this->SetMenuBar($menu_bar);

The & in the string (eg: 'E&xit') shows what shortcut will be used in combination with the Alt key (eg: Alt + x for 'E&xit').
To link an event with a menu selection, use the EVT_MENU event:

view plainprint?

110. EVT_MENU($this, 11, \&OnQuit);  
111. EVT_MENU($this, 21, \&OnAbout)  

    EVT_MENU($this, 11, \&OnQuit);
    EVT_MENU($this, 21, \&OnAbout)

The callback methods can be implemented as such:

view plainprint?

381. sub OnQuit {  
382.     my $this = shift;  
383.     $this->Close( 1 );  
384. }  
385.   
386. sub OnAbout {  
387.     my $this = shift;  
388.     use Wx qw(wxOK wxCENTRE);  
389.     Wx::MessageBox("twit_GUI $VERSION\n$version_date\n(c)DamienLearnsPerl",  # text  
390.                    "About",                   # title bar  
391.                    wxOK|wxCENTRE,             # buttons to display on form  
392.                    $this                      # parent  
393.                    );            
394. }  

sub OnQuit {
    my $this = shift;
    $this->Close( 1 );
}

sub OnAbout {
    my $this = shift;
    use Wx qw(wxOK wxCENTRE);
    Wx::MessageBox("twit_GUI $VERSION\n$version_date\n(c)DamienLearnsPerl",  # text
                   "About",                   # title bar
                   wxOK|wxCENTRE,             # buttons to display on form
                   $this                      # parent
                   );          
}

End result under Vista? Tadaaa!

Next step:
- Load/save password files

Find the whole new source code here.

Adding a menu bar to the twitter GUI: part 5

Updating to the new Net::Twitter::Lite API
Marc Mims updated the API of his twitter's interface module for Perl.
There are two versions:

• Net::Twitter v3.18 - Major update, object oriented, based on Moose.
• Net::twitter::Lite v0.02 - Not so complete but requiring less dependencies.

In order to use the Lite version (largely sufficient for my modest needs), only trivial changes are needed in the twit_GUI.pl script:

• replace use Net::Twitter by use Net::Twitter::Lite (duh!)
• replace calls to Net::Twitter->new() by calls to Net::Twitter::Lite->new()

This ensures that I am now using a module that is actively supported.

Adding a menu bar
A menu bar can only be added to a Frame. According to the wxPerl docs,

A frame is a window whose size and position can (usually) be changed by the user. It usually has thick borders and a title bar, and can optionally contain a menu bar, toolbar and status bar. A frame can contain any window that is not a frame or dialog.

So, let's replace the Dialog occurences with Frame in the script.
The MyApp modules becomes:

view plainprint?

30. ##############################################################################  
31. #  
32. package MyApp;  
33. #  
34. ##############################################################################  
35. use vars qw(@ISA);  
36. @ISA=qw(Wx::App);   # this tells Perl to look for unknown methods in the Wx::App module  
37.   
38. use Wx qw(wxDefaultSize wxDefaultPosition);  
39.   
40. sub OnInit {  
41.     my($this) = @_;  
42.     my $frame = MyFrame->new('Twit', wxDefaultPosition);  
43.     # set it as top window (so the app will automatically close when   
44.     # the last top window is closed)  
45.     $this->SetTopWindow($frame);  
46.     $frame->Show(1);  
47.     1;  
48. }  

##############################################################################
#
package MyApp;
#
##############################################################################
use vars qw(@ISA);
@ISA=qw(Wx::App);   # this tells Perl to look for unknown methods in the Wx::App module

use Wx qw(wxDefaultSize wxDefaultPosition);

sub OnInit {
    my($this) = @_;
    my $frame = MyFrame->new('Twit', wxDefaultPosition);
    # set it as top window (so the app will automatically close when 
    # the last top window is closed)
    $this->SetTopWindow($frame);
    $frame->Show(1);
    1;
}

package MyDialog becomes package MyFrame:

view plainprint?

49. ##############################################################################  
50. #  
51. package MyFrame;  
52. #  
53. ##############################################################################  
54. use vars qw(@ISA);  
55.   
56. @ISA=qw(Wx::Frame);  
57.   
58. use Wx::Event qw(EVT_BUTTON EVT_CLOSE EVT_TEXT EVT_TEXT_MAXLEN);  
59. use Wx qw(:sizer  
60.           :statictext  
61.           wxDefaultPosition  
62.           wxDefaultSize  
63.           wxDefaultValidator  
64.           wxDEFAULT_DIALOG_STYLE  
65.           wxID_OK  
66.           wxOK  
67.           wxRESIZE_BORDER  
68.           wxTE_MULTILINE  
69.           );  
70.   
71. use constant MAX_POST_LENGTH => 140;  
72.   
73. sub new {  
74.     my $class = shift;  
75.     my $password_file;  
76.   
77.     # Main window  
78.     my $form_width  = 480;  
79.     my $form_height = 195;  
80.     # Array of line numbers used on the dialog window  
81.     my @ylines = (0, 10, 20, 40, 80, 100);  
82.   
83.     my $this = $class->SUPER::new(  
84.                             undef,  # parent  
85.                             -1,     # id  
86.                             $_[0],  # title  
87.                             $_[1],  # position [x, y]  
88.                            [$form_width, $form_height] # size [width, height]  
89.                            );  
90.   
91.     # Display the Wx icon on the application window  
92.     $this->SetIcon(Wx::GetWxPerlIcon());  
93.   
94.     #--------------------------------------------------------------------------  
95.     # Menu Bar  
96.     #--------------------------------------------------------------------------       
97.     my $file_menu = Wx::Menu->new('');  
98.     my $menu_bar = Wx::MenuBar->new();  
99.     $menu_bar->Append($file_menu, '&File');  
100.     $this->SetMenuBar($menu_bar);  
101.     ...  

##############################################################################
#
package MyFrame;
#
##############################################################################
use vars qw(@ISA);

@ISA=qw(Wx::Frame);

use Wx::Event qw(EVT_BUTTON EVT_CLOSE EVT_TEXT EVT_TEXT_MAXLEN);
use Wx qw(:sizer
          :statictext
          wxDefaultPosition
          wxDefaultSize
          wxDefaultValidator
          wxDEFAULT_DIALOG_STYLE
          wxID_OK
          wxOK
          wxRESIZE_BORDER
          wxTE_MULTILINE
          );

use constant MAX_POST_LENGTH => 140;

sub new {
    my $class = shift;
    my $password_file;

    # Main window
    my $form_width  = 480;
    my $form_height = 195;
    # Array of line numbers used on the dialog window
    my @ylines = (0, 10, 20, 40, 80, 100);

    my $this = $class->SUPER::new(
                            undef,  # parent
                            -1,     # id
                            $_[0],  # title
                            $_[1],  # position [x, y]
                           [$form_width, $form_height] # size [width, height]
                           );

    # Display the Wx icon on the application window
    $this->SetIcon(Wx::GetWxPerlIcon());

    #--------------------------------------------------------------------------
    # Menu Bar
    #--------------------------------------------------------------------------     
    my $file_menu = Wx::Menu->new('');
    my $menu_bar = Wx::MenuBar->new();
    $menu_bar->Append($file_menu, '&File');
    $this->SetMenuBar($menu_bar);
    ...

Increase the form height by 10 pixels (up to 195) to make room for the menu bar.
And... voilà!
Er... not too pretty, let's go back to the doc. Oh wait, what is that about panels?

A panel is a window on which controls are placed. It is usually placed within a frame. It contains minimal extra functionality over and above its parent class wxWindow; its main purpose is to be similar in appearance and functionality to a dialog, but with the flexibility of having any window as a parent.

Ah ah! The trick is to place a wxPanel object inside the frame and then relate every existing GUI element to this panel as the parent window. Previously, all the elements (button, text dialog, etc.) had the wxFrame as a parent window, hence the dark grey background. Just add this line before the Menu Bar code:

view plainprint?

93. # Create a panel where to place GUI elements  
94. my $panel = Wx::Panel->new($this, -1);  

    # Create a panel where to place GUI elements
    my $panel = Wx::Panel->new($this, -1);

and replace the $this argument by $panel everywhere you need to set the parent ID.

Now we've got a menu bar element. You can fill it by appending menu elements to it as is shown in the code below. Each menu element can be appended in turn with menu options. The wxFrame::SetMenuBar() method displays a given menu bar.

view plainprint?

95. #--------------------------------------------------------------------------  
96. # Menu Bar  
97. #--------------------------------------------------------------------------   
98. my $menu_bar = Wx::MenuBar->new();  
99.   
100. my $file_menu = Wx::Menu->new();   
101. $file_menu->Append(11, 'E&xit');  
102. $menu_bar->Append($file_menu, '&File');  
103.   
104. my $help_menu = Wx::Menu->new();  
105. $help_menu->Append(21, '&About');  
106. $menu_bar->Append($help_menu, '&Help');  
107.   
108. # wxFrame method to show a given menu bar  
109. $this->SetMenuBar($menu_bar);  

    #--------------------------------------------------------------------------
    # Menu Bar
    #-------------------------------------------------------------------------- 
    my $menu_bar = Wx::MenuBar->new();

    my $file_menu = Wx::Menu->new(); 
    $file_menu->Append(11, 'E&xit');
    $menu_bar->Append($file_menu, '&File');
 
    my $help_menu = Wx::Menu->new();
    $help_menu->Append(21, '&About');
    $menu_bar->Append($help_menu, '&Help');

    # wxFrame method to show a given menu bar
    $this->SetMenuBar($menu_bar);

The & in the string (eg: 'E&xit') shows what shortcut will be used in combination with the Alt key (eg: Alt + x for 'E&xit').
To link an event with a menu selection, use the EVT_MENU event:

view plainprint?

110. EVT_MENU($this, 11, \&OnQuit);  
111. EVT_MENU($this, 21, \&OnAbout)  

    EVT_MENU($this, 11, \&OnQuit);
    EVT_MENU($this, 21, \&OnAbout)

The callback methods can be implemented as such:

view plainprint?

381. sub OnQuit {  
382.     my $this = shift;  
383.     $this->Close( 1 );  
384. }  
385.   
386. sub OnAbout {  
387.     my $this = shift;  
388.     use Wx qw(wxOK wxCENTRE);  
389.     Wx::MessageBox("twit_GUI $VERSION\n$version_date\n(c)DamienLearnsPerl",  # text  
390.                    "About",                   # title bar  
391.                    wxOK|wxCENTRE,             # buttons to display on form  
392.                    $this                      # parent  
393.                    );            
394. }  

sub OnQuit {
    my $this = shift;
    $this->Close( 1 );
}

sub OnAbout {
    my $this = shift;
    use Wx qw(wxOK wxCENTRE);
    Wx::MessageBox("twit_GUI $VERSION\n$version_date\n(c)DamienLearnsPerl",  # text
                   "About",                   # title bar
                   wxOK|wxCENTRE,             # buttons to display on form
                   $this                      # parent
                   );          
}

End result under Vista? Tadaaa!

Next step:
- Load/save password files

Find the whole new source code here.

Perl Iron Man

Ok, I've failed in the Perl Iron Man contest: it has been more than 10 days since last post :(
But after the first thrills due to the project's novelty, there are not a lot of incentives coming from the Perl Iron Man organization (unless I've somehow missed it?):
I was expecting leaderboards, post of the month, constructive critiques of blogs by writing professional, cheering pom pom girls, etc.
I'm feeling a little bit let down right now...

Perl Iron Man

Ok, I've failed in the Perl Iron Man contest: it has been more than 10 days since last post :(
But after the first thrills due to the project's novelty, there are not a lot of incentives coming from the Perl Iron Man organization (unless I've somehow missed it?):
I was expecting leaderboards, post of the month, constructive critiques of blogs by writing professional, cheering pom pom girls, etc.
I'm feeling a little bit let down right now...