comment on

Once you Append its too late change it

my $item = Wx::MenuItem->new( $parent ... );
$item->SetBitmap( ... );
$parent->Append( $item );
[download]

#!/usr/bin/perl --

use strict;
use warnings;

use Wx 0.98 ();

Main( @ARGV );
exit( 0 );
sub Main {
    my $app = Wx::SimpleApp->new;
    my $frame = Wx::Frame->new(undef,-1,'Menu Icon Test');    
    
    my $menu1 = Wx::Menu->new();;
    
    for my $icon (
        Wx::Bitmap->new( Wx::GetWxPerlIcon() ),
#~ $ perl -MWx=:everything -le " print for grep /wxICON_/, keys %:: " 
+>1
        qw[ 
            wxICON_QUESTION
            wxICON_HAND
            wxICON_INFORMATION
            wxICON_WARNING
            wxICON_ERROR
            wxICON_EXCLAMATION
        ]
    ){
        my $bmp = $icon ;
        if( not ref $icon ){
            $bmp = Wx::Bitmap->new( $app->GetStdIcon( Wx->$icon  ) );
        }
        my $item = Wx::MenuItem->new( $menu1 , -1 , "$icon $bmp");
        $item->SetBitmap( $bmp );
        $menu1->Append( $item );    
    }
    
    
    my $menu1item = $menu1->Append( Wx::wxID_EXIT(), "E&xit", "Quit to
+olbar sample" );
    $menu1item->SetBitmap ( Wx::Bitmap->new( Wx::GetWxPerlIcon() ) ); 
+## too late

    # Creates menu bar
    my $menubar   = Wx::MenuBar->new();
    $menubar->Append($menu1, "File");
    
    # Attach menubar to the window
    $frame->SetMenuBar($menubar);
    $frame->Show();    
    
    Wx::Event::EVT_MENU( $frame, Wx::wxID_EXIT(), sub { $_[0]->Destroy
+ } );
    
    $app->SetTopWindow($frame);
    $app->MainLoop();
}
__END__
[download]

In reply to Re: How do I set the menu item icon in wxPerl? by Anonymous Monk
in thread How do I set the menu item icon in wxPerl? by ZJ.Mike.2009

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


go ahead... be a heretic
	PerlMonks