source: extensions/pLoader/trunk/res/photo_properties_wdr.pl @ 4475

Last change on this file since 4475 was 4475, checked in by ronosman, 14 years ago

Feature 1318 added : new photo properties panel with Piwigo metadata and tags.

File size: 5.0 KB
Line 
1#-----------------------------------------------------------------------------
2# Perl source generated by wxDesigner from file: photo_properties.wdr
3# Do not modify this file, all changes will be lost!
4#-----------------------------------------------------------------------------
5
6use Wx;
7use Wx::Calendar;
8use Wx::DateTime;
9use Wx::Grid;
10use strict;
11
12# Custom source
13use Uploader::GUI::wxChoiceFilteredPanel;
14
15use Wx qw( wxDefaultSize wxDefaultPosition wxNullAnimation wxNullFont wxBLACK );
16use Wx qw( wxID_OK wxID_APPLY wxID_SAVE wxID_SAVEAS wxID_CANCEL wxID_YES wxID_NO wxID_EXIT wxID_ABOUT wxID_HELP );
17use Wx qw( wxVERTICAL wxHORIZONTAL wxALL wxLEFT wxRIGHT wxTOP wxBOTTOM wxCENTRE wxGROW );
18use Wx qw( wxALIGN_RIGHT wxALIGN_BOTTOM wxALIGN_CENTER wxALIGN_CENTER_VERTICAL wxALIGN_CENTER_HORIZONTAL );
19use Wx qw( wxTE_MULTILINE );
20
21# Bitmap functions
22
23use Wx qw( wxNullBitmap wxBITMAP_TYPE_PNG );
24
25# Window functions
26
27use vars qw($CAPTION); $CAPTION = 10000;
28use vars qw($PHOTO_PROPERTIES_CAPTION); $PHOTO_PROPERTIES_CAPTION = 10001;
29use vars qw($COMMENT); $COMMENT = 10002;
30use vars qw($PHOTO_PROPERTIES_COMMENT); $PHOTO_PROPERTIES_COMMENT = 10003;
31use vars qw($AUTHOR); $AUTHOR = 10004;
32use vars qw($PHOTO_PROPERTIES_AUTHOR); $PHOTO_PROPERTIES_AUTHOR = 10005;
33use vars qw($CREATE_DATE); $CREATE_DATE = 10006;
34use vars qw($PHOTO_PROPERTIES_CREATE_DATE); $PHOTO_PROPERTIES_CREATE_DATE = 10007;
35use vars qw($TAGS); $TAGS = 10008;
36use vars qw($PHOTO_PROPERTIES_TAG); $PHOTO_PROPERTIES_TAG = 10009;
37
38sub PhotoProperties {
39    my( $parent ) = $_[0];
40    my( $item0 ) = Wx::BoxSizer->new( wxHORIZONTAL );
41   
42    my( $item1 ) = Wx::BoxSizer->new( wxVERTICAL );
43   
44    my( $item2 ) = Wx::BoxSizer->new( wxVERTICAL );
45   
46    my( $item3 ) = Wx::BoxSizer->new( wxVERTICAL );
47   
48    my( $item4 ) = Wx::StaticText->new( $parent, $main::CAPTION, "text", wxDefaultPosition, wxDefaultSize, 0 );
49    $item3->AddWindow( $item4, 0, wxALIGN_CENTER_VERTICAL|wxRIGHT, 5 );
50
51    my( $item5 ) = Wx::TextCtrl->new( $parent, $main::PHOTO_PROPERTIES_CAPTION, "", wxDefaultPosition, [200,-1], 0 );
52    $item3->AddWindow( $item5, 0, wxALIGN_CENTER_VERTICAL|wxRIGHT|wxTOP, 5 );
53
54    $item2->Add( $item3, 0, wxALIGN_CENTER|wxALL, 5 );
55
56    my( $item6 ) = Wx::BoxSizer->new( wxVERTICAL );
57   
58    my( $item7 ) = Wx::StaticText->new( $parent, $main::COMMENT, "text", wxDefaultPosition, wxDefaultSize, 0 );
59    $item6->AddWindow( $item7, 0, wxALIGN_CENTER_VERTICAL|wxLEFT|wxRIGHT, 5 );
60
61    my( $item8 ) = Wx::TextCtrl->new( $parent, $main::PHOTO_PROPERTIES_COMMENT, "", wxDefaultPosition, [200,100], wxTE_MULTILINE );
62    $item6->AddWindow( $item8, 0, wxALIGN_CENTER_VERTICAL|wxLEFT|wxRIGHT|wxTOP, 5 );
63
64    $item2->Add( $item6, 0, wxALIGN_CENTER_VERTICAL, 5 );
65
66    my( $item9 ) = Wx::BoxSizer->new( wxVERTICAL );
67   
68    my( $item10 ) = Wx::StaticText->new( $parent, $main::AUTHOR, "text", wxDefaultPosition, wxDefaultSize, 0 );
69    $item9->AddWindow( $item10, 0, wxALIGN_CENTER_VERTICAL|wxRIGHT, 5 );
70
71    my( $item11 ) = Wx::TextCtrl->new( $parent, $main::PHOTO_PROPERTIES_AUTHOR, "", wxDefaultPosition, [200,-1], 0 );
72    $item9->AddWindow( $item11, 0, wxALIGN_CENTER|wxRIGHT|wxTOP, 5 );
73
74    $item2->Add( $item9, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
75
76    my( $item12 ) = Wx::BoxSizer->new( wxVERTICAL );
77   
78    my( $item13 ) = Wx::StaticText->new( $parent, $main::CREATE_DATE, "text", wxDefaultPosition, wxDefaultSize, 0 );
79    $item12->AddWindow( $item13, 0, wxALIGN_CENTER_VERTICAL|wxRIGHT, 5 );
80
81    my( $item14 ) = Wx::TextCtrl->new( $parent, $main::PHOTO_PROPERTIES_CREATE_DATE, "", wxDefaultPosition, [200,-1], 0 );
82    $item12->AddWindow( $item14, 0, wxALIGN_CENTER_VERTICAL|wxRIGHT|wxTOP|wxBOTTOM, 5 );
83
84    $item2->Add( $item12, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
85
86    $item1->Add( $item2, 0, wxALIGN_CENTER|wxALL, 5 );
87
88    my( $item15 ) = Wx::BoxSizer->new( wxVERTICAL );
89   
90    $item1->Add( $item15, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
91
92    my( $item16 ) = Wx::BoxSizer->new( wxVERTICAL );
93   
94    $item1->Add( $item16, 0, wxALIGN_CENTER|wxALL, 5 );
95
96    $item0->Add( $item1, 0, wxALL, 5 );
97
98    my( $item17 ) = Wx::BoxSizer->new( wxVERTICAL );
99   
100    my( $item18 ) = Wx::StaticText->new( $parent, $main::TAGS, "text", wxDefaultPosition, wxDefaultSize, 0 );
101    $item17->AddWindow( $item18, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
102
103    my $tags = $_[1];
104$tags->{parentwnd}=$parent;
105my( $item19 ) = Uploader::GUI::wxChoiceFilteredPanel->new($tags);
106    $item17->AddWindow( $item19, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
107
108    $item0->Add( $item17, 0, wxALIGN_CENTER_HORIZONTAL|wxALL, 5 );
109
110    my( $set_size ) = @_ >= 3 ? $_[2] : 1;
111    my( $call_fit ) = @_ >= 2 ? $_[1] : 1;
112    if( $set_size == 1 ) {
113         $_[0]->SetSizer( $item0 );
114         
115         if( $call_fit == 1 ) {
116             $item0->SetSizeHints( $_[0] );
117         }
118    }
119   
120    $item0;
121}
122
123# Menu bar functions
124
125
126# Toolbar functions
127
128use Wx qw( wxITEM_NORMAL wxITEM_RADIO wxITEM_CHECK );
129
130
131# End of generated file
Note: See TracBrowser for help on using the repository browser.