Re: [wxperl-users] Re: Wx::TreeCtrl and ImageList assignment

[Christophe M. <mas...@me...>]

Le jeu 07/04/2005 =E0 20:44, Johan Vromans a =E9crit :
> Tom Panzarella <tpa...@he...> writes:
>=20
> > I have a Wx::TreeCtrl that I want to assign a Wx::ImageList of icons
> > to so that I can access them by index and associate them with the
> > nodes in the tree.  It seems as though, "AssignImageList" and
> > "AssignButtonsImageList" are unimplemented in wxPerl?  I get errors
> > stating that the method cannot be found.  So I tried the *harder*
> > route of using "SetImageList".  The SetImageList call succeeds, but
> > when I make this call:
> >
> > $tree->AddRoot($text, $idx);
>=20
> This is what I have in my 'new' method of the tree control:
>=20
>     $self->{IMAGELIST} =3D Wx::ImageList->new(16, 16, 1);
>     $self->{IMAGELIST}->Add(Wx::Bitmap->new("....xpm", wxBITMAP_TYPE_XPM)=
);
>     $self->{IMAGELIST}->Add(Wx::Bitmap->new("....xpm", wxBITMAP_TYPE_XPM)=
);
>     $self->{IMAGELIST}->Add(Wx::Bitmap->new("....xpm", wxBITMAP_TYPE_XPM)=
);
>     ...
>     $self->SetImageList($self->{IMAGELIST} );
>=20
> To associate a node with image at index $ix:
>=20
>     $ctl->AppendItem($item, $title, $ix, $ix, ...);
>=20
> Hope this helps.
>=20
> -- Johan


Same thing for me in the constructor:
  $this->{IMAGELIST} =3D Wx::ImageList->new( 16, 16, 1 );
  $this->{IMAGELIST}->Add( Wx::GetWxPerlIcon( 1 ) );
  $this->{IMAGELIST}->Add( $bitmap1 );
  $this->{IMAGELIST}->Add( $bitmap2 );
  $this->{IMAGELIST}->Add( $bitmap3 );
  $this->{IMAGELIST}->Add( $bitmap4 );
  $this->SetImageList( $this->{IMAGELIST} );

but I use a different syntaxe for AddRoot and AppenItem:

  $this->AddRoot( $name, 0, -1, Wx::TreeItemData->new( $my_root_data )
);
  # $my_root_data is an arbitrary "client" data associated with the tree
root item

  my @bitmap =3D ( 1, 2 ) if $bitmaps12; # case when I want bitmaps 1 & 2
  @bitmap =3D ( 3, 4 ) if $bitmaps34;    # case when I want bitmaps 3 & 4
  my $new_itemid =3D $this->AppendItem( $parent_item, $text, @bitmap,
                               Wx::TreeItemData->new( $my_item_data ) );

  # $my_item_data is an arbitrary "client" data associated with the new
tree item

Hope this help too..

Christophe massaloux.