Changeset 4784 for extensions/pLoader/trunk/src/Uploader/GUI/wxPhotoProperties.pm

Timestamp:

Jan 28, 2010, 10:46:57 PM (14 years ago)

Author:

ronosman

Message:

Feature 1414 added : new improved layout for photo properties panel.

File:

• extensions/pLoader/trunk/src/Uploader/GUI/wxPhotoProperties.pm (modified) (3 diffs)

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

@@ -30 +30 @@
 use base qw/Wx::Panel Uploader::GUI::DlgCommon/;
 use Wx::Event qw/
-                    EVT_UPDATE_UI
                     EVT_BUTTON
                     EVT_CLOSE
@@ -46 +45 @@
     # load controls
     eval {
-      &main::PhotoProperties($self, $params->{tags});
+        &main::PhotoPropertiesCategoriesTags($self, $params->{tags});
 
-            $self->properties(
-            $params->{properties}
+        $self->_initNotebook($params->{tags});
+
+
+        $self->properties(
+            $params->{properties}
         );
 
         $self->InitLabels();
-                $self->InitChoices();
+        $self->InitChoices();
         $self->SetProperties();
-                $self->InitHandler();
+        $self->InitHandler();
         $self->_initEventHandlers();
 
-                if($@){
-                        Wx::LogMessage("Error during dialogbox initialization");
-                }
-        };
+        if($@){
+            Wx::LogMessage("Error during dialogbox initialization");
+        }
+    };
+
 
     $self;    
@@ -74 +77 @@
     EVT_CLOSE( $self, \&OnClose );
     
-        
+}
+
+
+sub _initNotebook{
+    my ( $self, $tags ) = @_;
+
+    my $nb = $self->FindWindow(
+        $main::PHOTO_PROPERTIES_NB
+    );
+
+    my( $page1 ) = Wx::Panel->new( $nb, -1 );
+    &main::photo_properties_caption_comments( $page1, 0 );
+    $nb->AddPage( $page1, "Photo informations" );
+
+    my( $page2 ) = Wx::Panel->new( $nb, -1 );
+    &main::photo_properties_tags( $page2, $tags );
+    $nb->AddPage( $page2, "Tags" );
+
 }