Re: [wxperl-users] Checked Menu Items

[DH <cra...@ya...>]

I'm sorry, but your snippet does not compile.
Please provide a self contained code example (an application basically).

--- Jason.Morley@Symbian.com wrote:
> Hi,
> 
> I wonder if anyone is able to help me.  Ive placed a checkable menu item 
> on a submenu off a popup menu (if that makes sense) but calling Check on 
> that menu item doesn't appear to check it, and on display there is no tick 
> beside the menu item.  The popup menu is created on the fly whenever the 
> user clicks on a listctrl.
> 
> Code Im using for this is as follows:
> 
> sub ListItemRightClick {
>   my $self = shift;
>   my $event = shift;
>  
>   my $result = $event->GetPoint();
>   my $posX = $result->x;
>   my $posY = $result->y;
>   my $selectedItem = $self->listCtrl->GetItem( $event->GetIndex() );
>   my $selectedText = $selectedItem->GetText();
>  
>   # Store the name of the selected component.
>   $self->{popupMenuComponent} = $selectedText;
>  
>   # Calculate the position of the menu.
>   my $panelMainSize = $self->panelMain->GetSize();
>   my $listCtrlSize = $self->listCtrl->GetClientSize();
>  
>   my $menuOffsetX = 2;
>   my $menuOffsetY = 2;
> 
>   my $toolBarOffset = $self->toolBar->GetSize();
>  
>   # Create the menu.
>  
>   # View Menu.
>   my $viewMenu = Wx::Menu->new();
>  
>   my $popupMenuItemViewShowClean = Wx::MenuItem->new( $viewMenu, EvID( 
> "popupMenuItemViewShowClean" ), "Clean", "", wxITEM_CHECK );
>   $popupMenuItemViewShowClean->Check( $self->{listCtrlShowClean} );
>   $viewMenu->AppendItem( $popupMenuItemViewShowClean );
> 
>   $viewMenu->Append( EvID( "popupMenuItemViewShowClean" ), "Pending 
> Release", "String two", 1 ); 
>   $viewMenu->AppendCheckItem( EvID( "popupMenuItemViewShowClean" ), 
> "Dirty" ); 
> 
>   # Main Menu.
>   my $menu = Wx::Menu->new();
>   $menu->Append( EvID( "popupMenuItemViewNotesClick" ), "ViewNotes" );
>   $menu->AppendSeparator();
>   my $subMenuItemView = Wx::MenuItem->new(
>                                           $menu,
>                                           EvID( "popupMenuItemView" ),
>                                           "View",
>                                           "",
>                                           wxITEM_NORMAL,
>                                           $viewMenu
>                                           );
>   $menu->AppendItem( $subMenuItemView );
>   $menu->AppendSeparator();
>   $menu->Append( EvID( "popupMenuItemGetRel" ), "GetRel" );
>   $menu->Append( EvID( "popupMenuGetSource" ), "GetSource" );
>   $menu->Append( EvID( "popupMenuDiffRel" ), "DiffRel" );
> 
>   $self->PopupMenu( $menu,
>                     $posX + $menuOffsetX,
>                     $posY + $menuOffsetY + $toolBarOffset->GetHeight()
>                     );
> }
> 
> 
> If anyone is able to give me any idea of what I might be doing wrong here, 
> I would be most grateful.
> 
> Thanks,
> 
> Jason Barrie Morley.
> 
> **********************************************************************
> Symbian Ltd is a company registered in England and Wales with registered number 01796587 and
> registered office at 19 Harcourt Street, London, W1H 4HF, UK.
> This message is intended only for use by the named addressee and may contain privileged and/or
> confidential information. If you are not the named addressee you should not disseminate, copy or
> take any action in reliance on it. If you have received this message in error please notify
> pos...@sy... and delete the message and any attachments accompanying it immediately.
> Symbian does not accept liability for any corruption, interception, amendment, tampering or
> viruses occurring to this message in transit or for any message sent by its employees which is
> not in compliance with Symbian corporate policy.
> **********************************************************************
> 
> 


__________________________________
Do you Yahoo!?
SBC Yahoo! DSL - Now only $29.95 per month!
http://sbc.yahoo.com