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

Timestamp:

Mar 19, 2010, 6:50:48 AM (14 years ago)

Author:

ronosman

Message:

Feature 1520 added : ability to set photo default caption after the photo is added.

File:

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

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

@@ -46 +46 @@
         'Wx::CheckBox' => sub { my ( $ctrl ) = @_; Wx::Event::EVT_CHECKBOX( $ctrl, $ctrl, sub { $self->OnCheckBox(@_) } ); },
         'Wx::DatePickerCtrl' => sub { my ( $ctrl ) = @_; Wx::Event::EVT_DATE_CHANGED( $ctrl, $ctrl, sub { $self->OnDatePicker(@_) } ); },
+        'Wx::ComboBox' => sub { my ( $ctrl ) = @_;
+                              Wx::Event::EVT_COMBOBOX( $ctrl, $ctrl, sub { $self->OnComboBox(@_) } );
+                              Wx::Event::EVT_TEXT( $ctrl, $ctrl, sub { $self->OnComboBoxText(@_) } );
+                          },
     };
     
@@ -83 +87 @@
 
 
+sub OnComboBoxText {
+    my ( $self, $ctrl, $event ) = @_;
+
+    if( exists $ctrl->{_value}){
+        $event->Skip(1);
+    }
+    else{
+        my $id = $ctrl->GetId;
+        # change the property value
+        $self->properties->{$id}->{value}->(
+            $event->GetString
+        ) if exists $self->properties->{$id}->{value};
+
+        # exec the callback
+        $self->properties->{$id}->{frame_callback}->($self, $ctrl, $event) if exists
+            $self->properties->{$id}->{frame_callback};    
+    }
+
+}
+
+
 # what does happen when the text changes
 sub OnTextCtrl {
@@ -97 +122 @@
         $self->properties->{$id}->{frame_callback};    
     
-    $event->Skip;
 }
 
@@ -163 +187 @@
     $event->Skip;
 }
+
+
+sub OnComboBox {
+    my ( $self, $ctrl, $event ) = @_;
+     
+    my $id = $ctrl->GetId;
+
+    $ctrl->{_multi_selection_mode} = $self->properties->{$id}->{multi_selection_mode}->()
+        if exists $self->properties->{$id}->{multi_selection_mode};
+
+    my $selection = exists $self->properties->{$id}->{string_selection} ? $event->GetString : $event->GetSelection;
+
+    my $value = $self->properties->{$id}->{pre_process}->( $selection ) if exists
+        $self->properties->{$id}->{pre_process};    
+
+    if( exists $self->properties->{$id}->{value} ){
+        $value = $self->properties->{$id}->{value}->(
+            $value,
+            $selection,
+        );
+        # the item selected in the list is not the real value
+        # we place here the actual value
+        # to use in EVT_IDLE event, and overwrite the text field with it
+        $ctrl->{_value} = $value;
+    }
+
+    # exec the callback
+    $self->properties->{$id}->{frame_callback}->($self, $ctrl, $event) if exists
+        $self->properties->{$id}->{frame_callback};    
+}
+
 
 sub OnDatePicker {
@@ -196 +251 @@
                                   $ctrl->SetValue($date);
                             },
+    'Wx::ComboBox' => sub { 
+                          my ($ctrl, $value ) = @_; 
+                          $ctrl->SetValue($value) ; 
+                      },
 };
 
@@ -210 +269 @@
         my $ctrl =$self->FindWindow($_);
         if(defined $ctrl){
+            #printf("%s\n", $ctrl);
             # checkbox, static text
             $change_value->{ref $ctrl}->(
@@ -269 +329 @@
     my ( $self ) = @_;
 
-        map {
+    map {
         my $ctrl =$self->FindWindow($_);
         #printf("ctrl %s : %s\n", $_, $ctrl);