- Timestamp:
- Jan 21, 2010, 11:36:13 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
extensions/pLoader/trunk/src/Uploader/GUI/wxGlobalSettings.pm
r4616 r4718 30 30 wxVERTICAL 31 31 wxFULL_REPAINT_ON_RESIZE 32 wxCLIP_CHILDREN 33 wxDEFAULT_DIALOG_STYLE 34 wxCAPTION 35 wxCLOSE_BOX 36 wxMAXIMIZE_BOX 37 wxMINIMIZE_BOX 38 wxRESIZE_BORDER 39 wxSTAY_ON_TOP 32 40 /; 33 use base qw/Wx:: PanelUploader::GUI::DlgCommon/;41 use base qw/Wx::Dialog Uploader::GUI::DlgCommon/; 34 42 use Wx::Event qw/ 35 43 EVT_CLOSE … … 45 53 46 54 47 my $self = $class->SUPER::new( $params->{parentwnd}, -1, wxDefaultPosition, wxDefaultSize, wxFULL_REPAINT_ON_RESIZE ); 55 my $self = $class->SUPER::new( 56 undef, 57 -1, 58 $params->{caption}, 59 wxDefaultPosition, 60 wxDefaultSize, 61 wxCAPTION| 62 wxCLOSE_BOX| 63 wxMAXIMIZE_BOX| 64 wxMINIMIZE_BOX| 65 wxRESIZE_BORDER| 66 wxDEFAULT_DIALOG_STYLE| 67 wxSTAY_ON_TOP 68 ); 69 70 71 72 48 73 $self->{tags} = $params->{tags}; 49 74 $self->{orientation} = $params->{orientation}||wxVERTICAL; … … 68 93 $self->{cpane_transfert_advanced} = $self->FindWindow($main::CPANE_TRANSFERT_ADVANCED); 69 94 95 $self->{gs_close} = $self->FindWindow($main::GS_CLOSE); 96 70 97 $self->InitLabels(); 71 98 $self->InitChoices(); … … 90 117 my ( $self ) = @_; 91 118 92 EVT_CLOSE( $self, \&OnClose );119 Wx::Event::EVT_BUTTON( $self, $self->{gs_close}, \&OnClose ); 93 120 Wx::Event::EVT_COLLAPSIBLEPANE_CHANGED( $self, $self->{cpane_thumbnail}, \&OnPaneChanged ); 94 121 Wx::Event::EVT_COLLAPSIBLEPANE_CHANGED( $self, $self->{cpane_resize}, \&OnPaneChanged ); … … 112 139 113 140 114 $self-> Destroy;141 $self->Hide; 115 142 } 116 143 … … 118 145 my( $self, $event ) = @_; 119 146 120 $self->_layout;147 #$self->_layout; 121 148 $event->Skip; 122 149 } … … 173 200 174 201 $self->{cpane_resize}->Collapse($b); 175 $self->_layout;202 #$self->_layout; 176 203 $event->Skip; 177 204 … … 192 219 } 193 220 $self->{cpane_hd}->Collapse($b); 194 $self->_layout;221 #$self->_layout; 195 222 $event->Skip; 196 223 } … … 206 233 207 234 $self->{cpane_watermark}->Collapse($b); 208 $self->_layout;235 #$self->_layout; 209 236 $event->Skip; 210 237 }
Note: See TracChangeset
for help on using the changeset viewer.