Changeset 3472 for extensions/pLoader/trunk/src/Uploader/GUI/wxFrameAUI.pm

Timestamp:

Jun 28, 2009, 7:58:18 PM (15 years ago)

Author:

ronosman

Message:

Feature 993 added : set Piwigo tags. Only existing tags are supported.

File:

• extensions/pLoader/trunk/src/Uploader/GUI/wxFrameAUI.pm (modified) (13 diffs)

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

@@ -324 +324 @@
           image_prop_piwigo
           image_prop_exif
+          image_prop_tags
           notebook_image_properties
           notebook_global_settings
@@ -346 +347 @@
           imageviewer_select_multi
           frameLayout
+          piwigo_tags
+          image_tags
       /;
 __PACKAGE__->mk_accessors( @properties );
@@ -366 +369 @@
 use Uploader::GUI::wxImageListCtrl;
 use Uploader::GUI::wxImageProcessingProgressDlg;
+use Uploader::GUI::wxChoiceGridPanel;
 use Wx::Html;
 use Uploader::GUI::wxHtmlWindow;
@@ -576 +580 @@
         ]
     );   
+
 
     $self->general_settings(
@@ -711 +716 @@
         ]    
     );
-        
+
+    $self->image_tags(
+        sub { $self->imagelist->current_image->site_tags(@_) }
+    );
+
+    $self->piwigo_tags(
+        wxTheApp->pwg->tags||[]
+    );  
 }
 
@@ -725 +737 @@
         $self->image_prop_piwigo,
         $self->image_prop_exif,
+        $self->image_prop_tags,
         $self->general_settings_panel,
         $self->resized_settings_panel,
@@ -806 +819 @@
         $self->advanced_settings,
     );    
+
         
 }
@@ -889 +903 @@
         )    
     );    
+
+    $self->image_prop_tags(
+        Uploader::GUI::wxChoiceGridPanel->new( 
+            { 
+                parentwnd    => $self,
+                choices      => $self->piwigo_tags,
+                selection    => $self->image_tags, 
+            }
+        )    
+    );    
+
     
     $self->general_settings_panel->Show(0);
@@ -952 +977 @@
         ) 
     );
-    #$self->htmlhome->SetDropTarget( 
-    #    DNDImageListDropTarget->new( 
-    #        $self->imageviewer 
-    #    ) 
-    #);
-
 
     $self->tree->SetDropTarget( 
@@ -1111 +1130 @@
 }
 
+sub OnDefaultPhotoNameChanged {
+    my ( $self ) = @_;
+    
+    Wx::LogMessage("New default_photo_name %s", $self->imagelist->default_photo_name);  
+}
+
 
 sub create_notebook_imagelist {
@@ -1139 +1164 @@
             $self->image_prop_piwigo, 
             "Piwigo",
+        ],
+        [
+            $self->image_prop_tags, 
+            "Tags",
         ],
         [
@@ -1746 +1775 @@
     $self->image_prop_piwigo->Refresh;
     $self->image_prop_exif->Refresh;
+    $self->image_prop_tags->Refresh;
 
 }
@@ -1869 +1899 @@
 
     if(!$self->imageviewer->IsShown){
-        #my $imglistpage = [
-        #    [
-        #        $self->imageviewer, 
-        #        gettext("Photo selection"),
-        #        '../res/images.png', 
-        #        wxBITMAP_TYPE_PNG,
-        #    ],
-        #];
-        #$self->notebook->DeletePage(0);
-    
         $self->imageviewer->Show(1);
-        #$self->_populate_notebook($self->notebook, $imglistpage, 0);
-        # load imagelist with loading.jpg
     }
-        
 }