Changeset 5390 for extensions/pLoader/trunk/src/Uploader/GUI/DlgCommon.pm

Timestamp:

Mar 26, 2010, 9:04:59 PM (14 years ago)

Author:

ronosman

Message:

Feature 1539 added : When uploading, display a dialog box with the categories list when no category is selected

File:

• extensions/pLoader/trunk/src/Uploader/GUI/DlgCommon.pm (modified) (2 diffs)

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

@@ -50 +50 @@
                               Wx::Event::EVT_TEXT( $ctrl, $ctrl, sub { $self->OnComboBoxText(@_) } );
                           },
+        'Uploader::GUI::wxCategoryTreeCtrl' => sub { my ( $ctrl ) = @_;
+                                                   Wx::Event::EVT_TREE_SEL_CHANGED(
+                                                       $ctrl,
+                                                       $ctrl,
+                                                       sub { 
+                                                           $self->OnCategoryTreeSelChanged(@_); 
+                                                       }
+                                                   );
+                                               },
     };
     
     map {
         my $ctrl =$self->FindWindow($_);
+
         if(defined $ctrl){
             $ctrl_handlers->{ ref $ctrl}->($ctrl) if exists $ctrl_handlers->{ ref $ctrl};
@@ -257 +267 @@
 };
 
+
+sub OnCategoryTreeSelChanged {
+    my ( $self, $ctrl, $event ) = @_;
+
+    my $id = $ctrl->GetId;
+
+    # change the property value.
+    $self->properties->{$id}->{id_selection}->(
+        $event->GetEventObject->GetSelectionsIds
+    ) if exists $self->properties->{$id}->{id_selection};
+
+    #printf("OnCategoryTreeSelChanged %s\n", Dumper $self->properties->{$id}->{id_selection}->());
+
+    # exec the callback
+    $self->properties->{$id}->{frame_callback}->($self, $ctrl, $event) if exists
+        $self->properties->{$id}->{frame_callback};    
+    
+    $event->Skip;
+}
+
+
 my $clear_value = {
     'Wx::TextCtrl' => sub { my ($ctrl) = @_; $ctrl->Clear},
     'Wx::CheckBox' => sub { my ($ctrl) = @_; $ctrl->SetValue(0)},
     'Wx::DatePickerCtrl' => sub { my ($ctrl) = @_; $ctrl->SetValue(Wx::DateTime->new->SetToCurrent)},
+    'Uploader::GUI::wxCategoryTreeCtrl' => sub { my ( $ctrl ) = @_;
+                                               $ctrl->SelectItem($ctrl->GetRootItem);
+                                           },
 };