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

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

Remove useless dependencies.

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