- Timestamp:
- Jan 30, 2010, 5:13:16 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
extensions/pLoader/trunk/res/photo_properties_with_categories_tags_wdr.pl
r4793 r4800 1 #-----------------------------------------------------------------------------2 # Perl source generated by wxDesigner from file: photo_properties_with_categories_tags.wdr3 # Do not modify this file, all changes will be lost!4 #-----------------------------------------------------------------------------5 6 1 use Wx; 7 2 use Wx::Calendar; 8 3 use Wx::DateTime; 9 use Wx::Grid;10 4 use strict; 11 5 … … 15 9 use Wx qw( wxDefaultSize wxDefaultPosition wxNullAnimation wxNullFont wxBLACK ); 16 10 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 );11 use Wx qw( wxVERTICAL wxHORIZONTAL wxALL wxLEFT wxRIGHT wxTOP wxBOTTOM wxCENTRE wxGROW wxEXPAND); 18 12 use Wx qw( wxALIGN_RIGHT wxALIGN_BOTTOM wxALIGN_CENTER wxALIGN_CENTER_VERTICAL wxALIGN_CENTER_HORIZONTAL ); 19 13 use Wx qw( wxTR_HAS_BUTTONS wxTR_LINES_AT_ROOT wxSUNKEN_BORDER wxLI_HORIZONTAL wxTE_MULTILINE ); … … 32 26 33 27 sub PhotoPropertiesCategoriesTags { 34 my( $parent ) = $_[0];35 my( $ item0) = Wx::BoxSizer->new( wxVERTICAL );28 my( $parent ) = @_; 29 my( $topsizer ) = Wx::BoxSizer->new( wxVERTICAL ); 36 30 37 31 my( $item2 ) = Wx::Notebook->new( $parent, $main::PHOTO_PROPERTIES_NB, wxDefaultPosition, [400,160], 0 ); … … 41 35 } 42 36 43 $item0->Add( $item1, 2, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 ); 37 # the notebook has adaptive size : stretch factor 2, wxEXPAND 38 $topsizer->Add( $item1, 2, wxEXPAND|wxALIGN_CENTER_VERTICAL|wxALL, 5 ); 44 39 45 40 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 ); 41 # the notebook has adaptive size : stretch factor 1, wxEXPAND 42 $topsizer->AddWindow( $item3, 1, wxGROW|wxALL, 5 ); 47 43 48 44 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 );45 $topsizer->AddWindow( $item4, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 ); 50 46 51 47 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 );48 $topsizer->AddWindow( $item5, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 ); 53 49 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; 50 $parent->SetSizer( $topsizer ); 51 $topsizer->SetSizeHints( $parent ); 52 53 $topsizer; 65 54 } 66 55 … … 69 58 70 59 sub photo_properties_tags { 71 my( $parent ) = $_[0];72 my( $ item0) = Wx::BoxSizer->new( wxVERTICAL );60 my( $parent, $tags ) = @_; 61 my( $topsizer ) = Wx::BoxSizer->new( wxVERTICAL ); 73 62 74 63 my( $item1 ) = Wx::StaticText->new( $parent, $main::TAGS, "text", wxDefaultPosition, wxDefaultSize, 0 ); 75 $ item0->AddWindow( $item1, 0, wxALIGN_CENTER_VERTICAL|wxBOTTOM, 5 );64 $topsizer->AddWindow( $item1, 0, wxALIGN_CENTER_VERTICAL|wxBOTTOM, 5 ); 76 65 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 );66 $tags->{parentwnd}=$parent; 67 my( $panel ) = Uploader::GUI::wxChoiceFilteredPanel->new($tags); 68 # the panel has adaptive size : stretch factor 1, wxEXPAND 69 $topsizer->AddWindow( $panel, 1, wxEXPAND|wxALIGN_CENTER_VERTICAL|wxALL, 5 ); 81 70 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 } 71 $parent->SetSizer( $topsizer ); 72 $topsizer->SetSizeHints( $parent ); 91 73 92 $ item0;74 $topsizer; 93 75 } 94 76 … … 105 87 106 88 sub photo_properties_caption_comments { 107 my( $parent ) = $_[0];108 my( $ item0) = Wx::BoxSizer->new( wxVERTICAL );89 my( $parent ) = @_; 90 my( $topsizer ) = Wx::BoxSizer->new( wxVERTICAL ); 109 91 110 92 my( $item1 ) = Wx::BoxSizer->new( wxVERTICAL ); … … 113 95 $item1->AddWindow( $item2, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); 114 96 115 my( $item3 ) = Wx::TextCtrl->new( $parent, $main::PHOTO_PROPERTIES_CAPTION, "", wxDefaultPosition, [ 300,-1], 0 );116 $item1->AddWindow( $item3, 0, wx ALIGN_CENTER_VERTICAL|wxALL, 5 );97 my( $item3 ) = Wx::TextCtrl->new( $parent, $main::PHOTO_PROPERTIES_CAPTION, "", wxDefaultPosition, [-1,-1], 0 ); 98 $item1->AddWindow( $item3, 0, wxEXPAND|wxALIGN_CENTER_VERTICAL|wxALL, 5 ); 117 99 118 $ item0->Add( $item1, 0, 0, 5 );100 $topsizer->Add( $item1, 0, wxEXPAND, 5 ); 119 101 120 102 my( $item4 ) = Wx::BoxSizer->new( wxVERTICAL ); … … 123 105 $item4->AddWindow( $item5, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); 124 106 125 my( $item6 ) = Wx::TextCtrl->new( $parent, $main::PHOTO_PROPERTIES_AUTHOR, "", wxDefaultPosition, [ 300,-1], 0 );126 $item4->AddWindow( $item6, 0, wx ALIGN_CENTER_VERTICAL|wxALL, 5 );107 my( $item6 ) = Wx::TextCtrl->new( $parent, $main::PHOTO_PROPERTIES_AUTHOR, "", wxDefaultPosition, [-1,-1], 0 ); 108 $item4->AddWindow( $item6, 0, wxEXPAND|wxALIGN_CENTER_VERTICAL|wxALL, 5 ); 127 109 128 110 my( $item7 ) = Wx::StaticText->new( $parent, $main::COMMENT, "text", wxDefaultPosition, wxDefaultSize, 0 ); 129 111 $item4->AddWindow( $item7, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); 130 112 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 ); 113 # adaptive size : stretch factor 1 114 # the textctrl has a variable line number 115 my( $item8 ) = Wx::TextCtrl->new( $parent, $main::PHOTO_PROPERTIES_COMMENT, "", wxDefaultPosition, [-1,-1], wxTE_MULTILINE ); 116 $item4->AddWindow( $item8, 1, wxEXPAND|wxALIGN_CENTER_VERTICAL|wxALL, 5 ); 133 117 134 118 my( $item9 ) = Wx::StaticText->new( $parent, $main::CREATE_DATE, "text", wxDefaultPosition, wxDefaultSize, 0 ); … … 137 121 my( $item10 ) = Wx::DatePickerCtrl->new( $parent, $main::PHOTO_PROPERTIES_CREATE_DATE, Wx::DateTime->new(), wxDefaultPosition, [200,-1], wxDP_DROPDOWN ); 138 122 $item4->AddWindow( $item10, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); 139 140 $ item0->Add( $item4, 0, 0, 0);123 # adaptive size : stretch factor 3 124 $topsizer->Add( $item4, 3, wxEXPAND, 5 ); 141 125 142 126 my( $item11 ) = Wx::BoxSizer->new( wxVERTICAL ); … … 145 129 $item11->AddWindow( $item12, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); 146 130 147 my( $item13 ) = Wx::Choice->new( $parent, $main::PHOTO_PROPERTIES_PRIVACY_LEVEL, wxDefaultPosition, [ 300,-1], [], 0 );148 $item11->AddWindow( $item13, 0, wx ALIGN_CENTER_VERTICAL|wxALL, 5 );131 my( $item13 ) = Wx::Choice->new( $parent, $main::PHOTO_PROPERTIES_PRIVACY_LEVEL, wxDefaultPosition, [-1,-1], [], 0 ); 132 $item11->AddWindow( $item13, 0, wxEXPAND|wxALIGN_CENTER_VERTICAL|wxALL, 5 ); 149 133 150 $item0->Add( $item11, 1, Wx::wxALIGN_TOP, 5 ); 134 # adaptive size : stretch factor 1 135 $topsizer->Add( $item11, 1, wxEXPAND, 5 ); 151 136 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 } 137 $parent->SetSizer( $topsizer ); 138 $topsizer->SetSizeHints( $parent ); 161 139 162 $ item0;140 $topsizer; 163 141 } 164 165 # Menu bar functions166 167 168 # Toolbar functions169 142 170 143 use Wx qw( wxITEM_NORMAL wxITEM_RADIO wxITEM_CHECK ); 171 144 172 173 # End of generated file
Note: See TracChangeset
for help on using the changeset viewer.