Changeset 4475 for extensions/pLoader/trunk/src/Uploader/GUI/wxChoiceFilteredPanel.pm

Timestamp:

Dec 12, 2009, 12:48:34 AM (14 years ago)

Author:

ronosman

Message:

Feature 1318 added : new photo properties panel with Piwigo metadata and tags.

File:

• extensions/pLoader/trunk/src/Uploader/GUI/wxChoiceFilteredPanel.pm (modified) (3 diffs)

extensions/pLoader/trunk/src/Uploader/GUI/wxChoiceFilteredPanel.pm

@@ -65 +65 @@
 
 
-    my $self = $class->SUPER::new( $params->{parentwnd}, -1, wxDefaultPosition, wxDefaultSize );
+    my $self = $class->SUPER::new( $params->{parentwnd}, $params->{id}||-1, wxDefaultPosition, wxDefaultSize );
     $self->_init_panel;
     $self->_init_properties($params);
-
+printf("%s, %s\n", $self, $self->GetId);
     $self->Refresh;
 
@@ -86 +86 @@
         
     $self->choices(
-        $params->{choices}
+        $params->{choices}|| sub { [] }
     );
 
     $self->selection(
-        $params->{selection}
-    );
-
-    my $choices = $self->choices->() ||[];
+        $params->{selection}|| sub{ [] }
+    );
+
+    my $choices = $self->choices->();
     $self->search_result(
         []
@@ -136 +136 @@
 
     $self->listchoices(
-        Wx::CheckListBox->new( $self, -1, wxDefaultPosition, [320,300], [], 0 )
+        Wx::CheckListBox->new( $self, -1, wxDefaultPosition, [320,200], [], 0 )
     );
     $vsizer->AddWindow( $self->listchoices, 0, wxALIGN_CENTER_VERTICAL|wxALL, 2 );