Changeset 5184 for extensions/pLoader/trunk/src/Uploader/GUI/Layout/PhotoPropertiesCategoriesTags.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/Layout/PhotoPropertiesCategoriesTags.pm (modified) (4 diffs)

extensions/pLoader/trunk/src/Uploader/GUI/Layout/PhotoPropertiesCategoriesTags.pm

@@ -12 +12 @@
 use Wx qw( wxALIGN_RIGHT wxALIGN_BOTTOM wxALIGN_CENTER wxALIGN_CENTER_VERTICAL wxALIGN_CENTER_HORIZONTAL );
 use Wx qw( wxTR_HAS_BUTTONS wxTR_LINES_AT_ROOT wxSUNKEN_BORDER wxLI_HORIZONTAL wxTE_MULTILINE );
-use Wx qw( wxDP_DROPDOWN );
+use Wx qw( wxDP_DROPDOWN wxCB_READONLY);
 
 # Bitmap functions
@@ -117 +117 @@
     my $topsizer = Wx::BoxSizer->new( wxVERTICAL );
 
-    $topsizer->Add( 
-        TextField(
+    $topsizer->Add(
+        ComboField(
             $parent,
             $main::CAPTION,
@@ -314 +314 @@
 }
 
+
+sub ComboField {
+    my ( $parent, $id_label, $id_ctrl, $expand ) = @_;
+
+    $expand ||=0;
+
+    my( $sizer ) = Wx::BoxSizer->new( wxVERTICAL );
+
+    $expand||=0;
+    
+    $sizer->Add( 
+        Wx::StaticText->new(
+            $parent,
+            $id_label,
+            "text",
+            wxDefaultPosition,
+            wxDefaultSize,
+            0
+        ),
+        0,
+        wxALL,
+        1 
+    );
+
+    my $ctrl = Wx::ComboBox->new(
+        $parent,
+        $id_ctrl,
+        "",
+        wxDefaultPosition,
+        [-1,-1],
+        [],
+        
+    );
+
+    # the EVT_COMBOBOX has set _value if we need to overwrite the default
+    # text. The list contains function names. We want to have the value returned by the function
+    # in the text field
+    Wx::Event::EVT_IDLE(
+        $ctrl,
+        sub { 
+            my ( $ctrl, $event ) = @_;
+            if(exists $ctrl->{_value}){
+                $ctrl->SetValue($ctrl->{_value}) if !$ctrl->{_multi_selection_mode};
+                delete $ctrl->{_value};
+                delete $ctrl->{_multi_selection_mode};
+            }
+        } 
+    );
+
+
+    $sizer->Add(
+        $ctrl,
+        $expand,
+        wxEXPAND|wxALL,
+        1 
+    );
+
+
+
+    $sizer;
+}
+
+
 sub _multi_selection_mode_panel_layout{
     my ( $panel ) = @_;
@@ -335 +398 @@
 
 }
+
+1;
+