1 | #----------------------------------------------------------------------------- |
---|
2 | # Perl source generated by wxDesigner from file: photo_properties_with_categories_tags.wdr |
---|
3 | # Do not modify this file, all changes will be lost! |
---|
4 | #----------------------------------------------------------------------------- |
---|
5 | |
---|
6 | use Wx; |
---|
7 | use Wx::Calendar; |
---|
8 | use Wx::DateTime; |
---|
9 | use Wx::Grid; |
---|
10 | use strict; |
---|
11 | |
---|
12 | # Custom source |
---|
13 | use Uploader::GUI::wxChoiceFilteredPanel; |
---|
14 | |
---|
15 | use Wx qw( wxDefaultSize wxDefaultPosition wxNullAnimation wxNullFont wxBLACK ); |
---|
16 | use Wx qw( wxID_OK wxID_APPLY wxID_SAVE wxID_SAVEAS wxID_CANCEL wxID_YES wxID_NO wxID_EXIT wxID_ABOUT wxID_HELP ); |
---|
17 | use Wx qw( wxVERTICAL wxHORIZONTAL wxALL wxLEFT wxRIGHT wxTOP wxBOTTOM wxCENTRE wxGROW ); |
---|
18 | use Wx qw( wxALIGN_RIGHT wxALIGN_BOTTOM wxALIGN_CENTER wxALIGN_CENTER_VERTICAL wxALIGN_CENTER_HORIZONTAL ); |
---|
19 | use Wx qw( wxTR_HAS_BUTTONS wxTR_LINES_AT_ROOT wxSUNKEN_BORDER wxLI_HORIZONTAL wxTE_MULTILINE ); |
---|
20 | use Wx qw( wxDP_DROPDOWN ); |
---|
21 | |
---|
22 | # Bitmap functions |
---|
23 | |
---|
24 | use Wx qw( wxNullBitmap wxBITMAP_TYPE_PNG ); |
---|
25 | |
---|
26 | # Window functions |
---|
27 | |
---|
28 | use vars qw($PHOTO_PROPERTIES_NB); $PHOTO_PROPERTIES_NB = 10000; |
---|
29 | use vars qw($PHOTO_PROPERTIES_CATEGORIES); $PHOTO_PROPERTIES_CATEGORIES = 10001; |
---|
30 | use vars qw($ID_LINE); $ID_LINE = 10002; |
---|
31 | use vars qw($PHOTO_PROPERTIES_UPLOAD); $PHOTO_PROPERTIES_UPLOAD = 10003; |
---|
32 | |
---|
33 | sub PhotoPropertiesCategoriesTags { |
---|
34 | my( $parent ) = $_[0]; |
---|
35 | my( $item0 ) = Wx::BoxSizer->new( wxVERTICAL ); |
---|
36 | |
---|
37 | my( $item2 ) = Wx::Notebook->new( $parent, $main::PHOTO_PROPERTIES_NB, wxDefaultPosition, [400,160], 0 ); |
---|
38 | my( $item1 ) = $item2; |
---|
39 | if( Wx->VERSION < 0.21 ) { |
---|
40 | $item1 = Wx::NotebookSizer->new( $item2 ); |
---|
41 | } |
---|
42 | |
---|
43 | $item0->Add( $item1, 2, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
---|
44 | |
---|
45 | my( $item3 ) = Wx::TreeCtrl->new( $parent, $main::PHOTO_PROPERTIES_CATEGORIES, wxDefaultPosition, [120,160], wxTR_HAS_BUTTONS|wxTR_LINES_AT_ROOT|wxSUNKEN_BORDER ); |
---|
46 | $item0->AddWindow( $item3, 1, wxGROW|wxALL, 5 ); |
---|
47 | |
---|
48 | my( $item4 ) = Wx::StaticLine->new( $parent, $main::ID_LINE, wxDefaultPosition, [20,-1], wxLI_HORIZONTAL ); |
---|
49 | $item0->AddWindow( $item4, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
---|
50 | |
---|
51 | my( $item5 ) = Wx::Button->new( $parent, $main::PHOTO_PROPERTIES_UPLOAD, "", wxDefaultPosition, [-1,40], 0 ); |
---|
52 | $item0->AddWindow( $item5, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
---|
53 | |
---|
54 | my( $set_size ) = @_ >= 3 ? $_[2] : 1; |
---|
55 | my( $call_fit ) = @_ >= 2 ? $_[1] : 1; |
---|
56 | if( $set_size == 1 ) { |
---|
57 | $_[0]->SetSizer( $item0 ); |
---|
58 | |
---|
59 | if( $call_fit == 1 ) { |
---|
60 | $item0->SetSizeHints( $_[0] ); |
---|
61 | } |
---|
62 | } |
---|
63 | |
---|
64 | $item0; |
---|
65 | } |
---|
66 | |
---|
67 | use vars qw($TAGS); $TAGS = 10004; |
---|
68 | use vars qw($PHOTO_PROPERTIES_TAG); $PHOTO_PROPERTIES_TAG = 10005; |
---|
69 | |
---|
70 | sub photo_properties_tags { |
---|
71 | my( $parent ) = $_[0]; |
---|
72 | my( $item0 ) = Wx::BoxSizer->new( wxVERTICAL ); |
---|
73 | |
---|
74 | my( $item1 ) = Wx::StaticText->new( $parent, $main::TAGS, "text", wxDefaultPosition, wxDefaultSize, 0 ); |
---|
75 | $item0->AddWindow( $item1, 0, wxALIGN_CENTER_VERTICAL|wxBOTTOM, 5 ); |
---|
76 | |
---|
77 | my $tags = $_[1]; |
---|
78 | $tags->{parentwnd}=$parent; |
---|
79 | my( $item2 ) = Uploader::GUI::wxChoiceFilteredPanel->new($tags); |
---|
80 | $item0->AddWindow( $item2, 0, wxALIGN_CENTER_VERTICAL, 5 ); |
---|
81 | |
---|
82 | my( $set_size ) = @_ >= 3 ? $_[2] : 1; |
---|
83 | my( $call_fit ) = @_ >= 2 ? $_[1] : 1; |
---|
84 | if( $set_size == 1 ) { |
---|
85 | $_[0]->SetSizer( $item0 ); |
---|
86 | |
---|
87 | if( $call_fit == 1 ) { |
---|
88 | $item0->SetSizeHints( $_[0] ); |
---|
89 | } |
---|
90 | } |
---|
91 | |
---|
92 | $item0; |
---|
93 | } |
---|
94 | |
---|
95 | use vars qw($CAPTION); $CAPTION = 10006; |
---|
96 | use vars qw($PHOTO_PROPERTIES_CAPTION); $PHOTO_PROPERTIES_CAPTION = 10007; |
---|
97 | use vars qw($AUTHOR); $AUTHOR = 10008; |
---|
98 | use vars qw($PHOTO_PROPERTIES_AUTHOR); $PHOTO_PROPERTIES_AUTHOR = 10009; |
---|
99 | use vars qw($COMMENT); $COMMENT = 10010; |
---|
100 | use vars qw($PHOTO_PROPERTIES_COMMENT); $PHOTO_PROPERTIES_COMMENT = 10011; |
---|
101 | use vars qw($CREATE_DATE); $CREATE_DATE = 10012; |
---|
102 | use vars qw($PHOTO_PROPERTIES_CREATE_DATE); $PHOTO_PROPERTIES_CREATE_DATE = 10013; |
---|
103 | use vars qw($PRIVACY_LEVEL); $PRIVACY_LEVEL = 10014; |
---|
104 | use vars qw($PHOTO_PROPERTIES_PRIVACY_LEVEL); $PHOTO_PROPERTIES_PRIVACY_LEVEL = 10015; |
---|
105 | |
---|
106 | sub photo_properties_caption_comments { |
---|
107 | my( $parent ) = $_[0]; |
---|
108 | my( $item0 ) = Wx::BoxSizer->new( wxVERTICAL ); |
---|
109 | |
---|
110 | my( $item1 ) = Wx::BoxSizer->new( wxVERTICAL ); |
---|
111 | |
---|
112 | my( $item2 ) = Wx::StaticText->new( $parent, $main::CAPTION, "text", wxDefaultPosition, wxDefaultSize, 0 ); |
---|
113 | $item1->AddWindow( $item2, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
---|
114 | |
---|
115 | my( $item3 ) = Wx::TextCtrl->new( $parent, $main::PHOTO_PROPERTIES_CAPTION, "", wxDefaultPosition, [300,-1], 0 ); |
---|
116 | $item1->AddWindow( $item3, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
---|
117 | |
---|
118 | $item0->Add( $item1, 0, 0, 5 ); |
---|
119 | |
---|
120 | my( $item4 ) = Wx::BoxSizer->new( wxVERTICAL ); |
---|
121 | |
---|
122 | my( $item5 ) = Wx::StaticText->new( $parent, $main::AUTHOR, "text", wxDefaultPosition, wxDefaultSize, 0 ); |
---|
123 | $item4->AddWindow( $item5, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
---|
124 | |
---|
125 | my( $item6 ) = Wx::TextCtrl->new( $parent, $main::PHOTO_PROPERTIES_AUTHOR, "", wxDefaultPosition, [300,-1], 0 ); |
---|
126 | $item4->AddWindow( $item6, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
---|
127 | |
---|
128 | my( $item7 ) = Wx::StaticText->new( $parent, $main::COMMENT, "text", wxDefaultPosition, wxDefaultSize, 0 ); |
---|
129 | $item4->AddWindow( $item7, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
---|
130 | |
---|
131 | my( $item8 ) = Wx::TextCtrl->new( $parent, $main::PHOTO_PROPERTIES_COMMENT, "", wxDefaultPosition, [300,50], wxTE_MULTILINE ); |
---|
132 | $item4->AddWindow( $item8, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
---|
133 | |
---|
134 | my( $item9 ) = Wx::StaticText->new( $parent, $main::CREATE_DATE, "text", wxDefaultPosition, wxDefaultSize, 0 ); |
---|
135 | $item4->AddWindow( $item9, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
---|
136 | |
---|
137 | my( $item10 ) = Wx::DatePickerCtrl->new( $parent, $main::PHOTO_PROPERTIES_CREATE_DATE, Wx::DateTime->new(), wxDefaultPosition, [200,-1], wxDP_DROPDOWN ); |
---|
138 | $item4->AddWindow( $item10, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
---|
139 | |
---|
140 | $item0->Add( $item4, 1, 0, 0 ); |
---|
141 | |
---|
142 | my( $item11 ) = Wx::BoxSizer->new( wxVERTICAL ); |
---|
143 | |
---|
144 | my( $item12 ) = Wx::StaticText->new( $parent, $main::PRIVACY_LEVEL, "text", wxDefaultPosition, wxDefaultSize, 0 ); |
---|
145 | $item11->AddWindow( $item12, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
---|
146 | |
---|
147 | my( $item13 ) = Wx::Choice->new( $parent, $main::PHOTO_PROPERTIES_PRIVACY_LEVEL, wxDefaultPosition, [300,-1], [], 0 ); |
---|
148 | $item11->AddWindow( $item13, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
---|
149 | |
---|
150 | $item0->Add( $item11, 0, 0, 5 ); |
---|
151 | |
---|
152 | my( $set_size ) = @_ >= 3 ? $_[2] : 1; |
---|
153 | my( $call_fit ) = @_ >= 2 ? $_[1] : 1; |
---|
154 | if( $set_size == 1 ) { |
---|
155 | $_[0]->SetSizer( $item0 ); |
---|
156 | |
---|
157 | if( $call_fit == 1 ) { |
---|
158 | $item0->SetSizeHints( $_[0] ); |
---|
159 | } |
---|
160 | } |
---|
161 | |
---|
162 | $item0; |
---|
163 | } |
---|
164 | |
---|
165 | # Menu bar functions |
---|
166 | |
---|
167 | |
---|
168 | # Toolbar functions |
---|
169 | |
---|
170 | use Wx qw( wxITEM_NORMAL wxITEM_RADIO wxITEM_CHECK ); |
---|
171 | |
---|
172 | |
---|
173 | # End of generated file |
---|