Changeset 3284 for extras/pLoader/trunk/src/Uploader/GUI/wxFrameAUI.pm

Timestamp:

May 15, 2009, 8:41:14 AM (15 years ago)

Author:

ronosman

Message:

Feature 994 added : gui layout management. Use perspective to save/reload gui layout.

File:

• extras/pLoader/trunk/src/Uploader/GUI/wxFrameAUI.pm (modified) (24 diffs)

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

@@ -335 +335 @@
           preview_settings
           toolbar
+          branding
+          preview_w
+          preview_h
+          perspective
       /;
 __PACKAGE__->mk_accessors( @properties );
@@ -345 +349 @@
           EVT_LIST_END_LABEL_EDIT
           EVT_LIST_ITEM_SELECTED
+          EVT_LIST_ITEM_ACTIVATED
           EVT_TREE_ITEM_RIGHT_CLICK
           EVT_LIST_KEY_DOWN
@@ -374 +379 @@
                                       wxDEFAULT_FRAME_STYLE|wxMAXIMIZE
                                    );
+    $self->preview_w(
+        $params->{preview_w}||400
+    );
+
+    $self->preview_h(
+        $params->{preview_h}||300
+    );
+    
+    $self->perspective(
+        $params->{perspective}
+    );
+
     $self->pwg( $params->{pwg} );
     $self->imagelist( $params->{imagelist} );
@@ -426 +443 @@
     );
 
+
     $self->manager( Wx::AuiManager->new );
+    $self->manager->SetDockSizeConstraint(1, 1);
     $self->manager->SetManagedWindow( $self );
     $self->_set_setting_properties;
@@ -436 +455 @@
 }
 
+
 sub _initImgTypes {
     my ( $self ) = @_;
@@ -461 +481 @@
         [
             {
-                label => "Photo name :",
+                label => gettext("Photo caption :"),
                 value => sub { $self->imagelist->current_image->site_name(@_) },
             },
@@ -548 +568 @@
             },
             {
-                label     => gettext("Default photo name :"),
+                label     => gettext("Default photo caption :"),
                 type      => 'Choice',
                 value   => sub { $self->imagelist->default_photo_name(@_) },
@@ -563 +583 @@
             },
             {
-                label     => gettext("Photo name  prefix :"),
+                label     => gettext("Photo caption  prefix :"),
                 value   => sub { $self->imagelist->default_name_prefix(@_) },
             },
@@ -581 +601 @@
                 value   => sub { $self->imagelist->upload_high(@_) },
             },
+#            {
+#                label     => gettext("Remove uploaded photo from selection :"),
+#                type      => 'Bool',
+#                value  => sub { $self->imagelist->remove_uploaded_from_selection(@_) },
+#            },
         ]    
     );
@@ -822 +847 @@
         )    
     );    
-
     
     $self->general_settings_panel->Show(0);
@@ -830 +854 @@
             $self,
             -1,
-            wxNullBitmap
+            wxNullBitmap,
+            wxDefaultPosition,
+            [$self->preview_w, $self->preview_h]
         )
     );
 
-
-
     $self->image_prop_piwigo->Show(0);
-
-        
     
     $self->image_prop_exif->Show(0);
@@ -890 +912 @@
 sub init_aui {
     my ( $self ) = @_;
-    
+
     my $url = wxTheApp->site_url;
     
@@ -901 +923 @@
     $self->manager->AddPane
       ( $self->create_tree, Wx::AuiPaneInfo->new->Name( "categories" )->Caption(
-          sprintf("%s - %s", gettext("Piwigo categories"), $url )
+          sprintf("%s - %s", sprintf("Piwigo %s", wxTheApp->branding->{categories}), $url )
       )
         ->Right->Position( 0 )->Resizable->CloseButton(0) );
@@ -920 +942 @@
         ->ToolbarPane->Top->Row( 1 )->LeftDockable( 0 )->RightDockable( 0 ) ) if defined $self->toolbar;
 
+    if( $self->perspective){
+        $self->manager->LoadPerspective($self->perspective);
+    }
+    
     $self->manager->Update;
 
@@ -929 +955 @@
     $self->manager->AddPane
       ( $self->create_notebook_image_properties, Wx::AuiPaneInfo->new->Name( "photo_properties" )->Caption(gettext("Photo properties"))
-        ->Right->Position( 1 )->Resizable->CloseButton(0) );
+        ->Floatable(1)->Resizable->CloseButton(1) );
 
     $self->manager->AddPane
       ( $self->create_notebook_global_settings, Wx::AuiPaneInfo->new->Name( "global_settings" )->Caption(gettext("Global settings"))
-        ->Right->Position( 2 )->Resizable->CloseButton(1) );
-
+        ->Floatable(1)->Resizable->CloseButton(1) );
+
+    $self->manager->GetPane("photo_properties")->Show(0);
     $self->manager->GetPane("global_settings")->Show(0);
         
 }
 
+sub OnPhotoProperties {
+    my ( $self ) = @_;
+
+    $self->manager->GetPane("photo_properties")->Float;
+    $self->manager->GetPane("photo_properties")->Show(1);
+    $self->manager->Update();    
+        
+}
+
 sub OnGlobalSettings {
     my ( $self ) = @_;
 
     $self->toolbar->EnableTool(104, 0 );
+    $self->manager->GetPane("global_settings")->Float;
     $self->manager->GetPane("global_settings")->Show(1);
     $self->manager->Update();    
@@ -1115 +1152 @@
 }
 
-#$tree_items is a list of anonymous arrays
-# [ itemLabel, undef, rootInfo, ImageIndex, SelImageIndex ] for the root
-
-# [ itemLabel, 
-#       [ childItemLabel, 
-#           [...], 
-#           childItemdata, 
-#           childImageIndex, 
-#           childSelImageIndex
-#       ], 
-#    Itemdata, 
-#    ImageIndex, 
-#    SelImageIndex 
-# ]
 
 # returns a valid itemData
@@ -1217 +1240 @@
     EVT_TREE_ITEM_RIGHT_CLICK( $self->tree, $self->tree, \&OnTreeItemRightClick );
     EVT_LIST_END_LABEL_EDIT( $self, $self->imageviewer, \&OnImageViewerEndLabelEdit );
+    EVT_LIST_ITEM_ACTIVATED( $self, $self->imageviewer, \&OnImageViewerItemActivated );
     EVT_LIST_ITEM_SELECTED($self, $self->imageviewer, \&OnImageViewerItemSelected) ;
     EVT_LIST_KEY_DOWN($self, $self->imageviewer, \&OnImageViewerKeyDown) ;
@@ -1234 +1258 @@
     my( $self, $event ) = @_;
     my $dialog = Wx::FileDialog->new
-      ( $self, "Select photos to send", $prevfile, $prevdir,
-        "JPEG files (*.jpg)|*.jpg|All(*.*)|*.*",
+      ( $self, gettext("Select photos for upload"), $prevfile, $prevdir,
+        sprintf("%s (*.jpg)|*.jpg|All(*.*)|*.*", gettext("JPEG files")),
         wxFD_OPEN|wxFD_MULTIPLE );
 
@@ -1332 +1356 @@
     }
     (
-        [1+$ID_TREE_CTX_MENU, "Add new category","Add a new category to the current selected category."],
-        [2+$ID_TREE_CTX_MENU, "Refresh","Refresh category list."],
+        [
+            1+$ID_TREE_CTX_MENU, 
+            wxTheApp->branding->{'Add new category'},
+            sprintf(
+                "%s %s %s %s", 
+                gettext("Add a new"), 
+                wxTheApp->branding->{category},
+                gettext("to the currently selected"),
+                wxTheApp->branding->{category},
+            )
+        ],
+        [
+            2+$ID_TREE_CTX_MENU, 
+            "Refresh",
+            sprintf(
+                "Refresh %s list.",
+                wxTheApp->branding->{category},
+            )
+        ],
     );
     $self->PopupMenu($ctx_mnu, $point);
@@ -1351 +1392 @@
     my $dialog = Wx::TextEntryDialog->new( 
         $self, 
-        gettext("Category name :"), 
-        gettext("Add new category"),
-        gettext("New category"), 
+        sprintf("Category name :", wxTheApp->branding->{Category}), 
+        sprintf("Add new %s", wxTheApp->branding->{category}),
+        sprintf("New %s", wxTheApp->branding->{category}), 
     );
 
@@ -1390 +1431 @@
         
     $self->image_prop_piwigo->Refresh;
+}
+
+sub OnImageViewerItemActivated {
+    my( $self, $event ) = @_;
+
+    $self->OnPhotoProperties;
 }
 
@@ -1591 +1638 @@
         Wx::MessageBox( 
             sprintf(
-                gettext("Please select a valid target category"),
+                "%s %s", 
+                gettext("Please select a valid target"),
+                wxTheApp->branding->{category}
             ),
             gettext("Piwigo upload error"),
@@ -1632 +1681 @@
   my $self = shift;
 
+
     # Restaure previous log wnd
     Wx::Log::SetActiveTarget( $self->oldlogwnd );
@@ -1641 +1691 @@
     $self->imagelist->Store;
     wxTheApp->login_dlg->Destroy;       
+
+    my $params = {};
+
+    ( $params->{'X'}, $params->{'Y'} ) = $self->GetPositionXY ;
+    ( $params->{'Width'}, $params->{'Height'} ) = $self->GetSizeWH ;
+    ( $params->{'PreviewWidth'}, $params->{'PreviewHeight'} ) = $self->image_preview->GetSizeWH ;
+    $params->{Perspective} = $self->manager->SavePerspective;
+    
+
+    wxTheApp->SaveConfig( $params );
+
     $self->Destroy;
 }