Changeset 4719 for extensions/pLoader/trunk
- Timestamp:
- Jan 22, 2010, 9:22:30 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
extensions/pLoader/trunk/src/Uploader/GUI/Frame.pm
r4718 r4719 1029 1029 1030 1030 $self->tree->SetImageList( $self->treeimglist ); 1031 $self->populate_tree_categories ($self->tree)if !wxTheApp->use_offline;1031 $self->populate_tree_categories if !wxTheApp->use_offline; 1032 1032 $self->tree ; 1033 1033 } … … 1035 1035 1036 1036 sub populate_tree_categories { 1037 my ( $self , $tree) = @_;1037 my ( $self ) = @_; 1038 1038 1039 1039 $self->populate_tree( 1040 $ tree,1040 $self->tree, 1041 1041 wxTheApp->pwg->categories, 1042 1042 ) if defined wxTheApp->pwg ; … … 1092 1092 1093 1093 } 1094 1095 1096 1097 1098 sub _populate_notebook {1099 my ( $self, $book, $pages, $position ) = @_;1100 1101 my $i = 0;1102 map {1103 my $icon = Wx::Icon->new();1104 eval { $icon->LoadFile($_->[2], $_->[3]) ; }1105 if defined $_->[2];1106 my $nb_icon = Wx::Bitmap->new( $icon );1107 defined $position ?1108 $book->InsertPage($position, $_->[0],1109 $_->[1], 1, $nb_icon )1110 :1111 $book->AddPage($_->[0],1112 $_->[1], 0, $nb_icon );1113 1114 $i++;1115 } @$pages;1116 1117 }1118 1119 1094 1120 1095 sub _initMenus {
Note: See TracChangeset
for help on using the changeset viewer.