- Timestamp:
- Jan 26, 2010, 8:26:42 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
extensions/pLoader/trunk/src/Uploader/GUI/wxImageReuploadDlg.pm
r4475 r4750 26 26 wxID_OK 27 27 wxGREEN 28 wxSTAY_ON_TOP 28 29 /; 29 30 #use base qw/Wx::Dialog Class::Accessor::Fast Uploader::GUI::DlgCommon/; … … 32 33 EVT_UPDATE_UI 33 34 EVT_BUTTON 34 35 EVT_CLOSE 35 36 /; 36 37 … … 43 44 44 45 45 my $self = $class->SUPER::new( undef, -1, $params->{title}, wxDefaultPosition, wxDefaultSize );46 my $self = $class->SUPER::new( undef, -1, $params->{title}, wxDefaultPosition, wxDefaultSize, wxSTAY_ON_TOP); 46 47 # load controls 47 48 eval { 48 49 &main::Reupload($self, 1); 49 50 50 51 51 $self->properties( 52 $params->{properties} 52 53 ); 53 54 $self->InitLabels(); … … 55 56 $self->_initEventHandlers(); 56 57 57 58 59 60 58 if($@){ 59 Wx::LogMessage("Error during dialogbox initialization"); 60 } 61 }; 61 62 62 63 $self; … … 81 82 sub OnClose { 82 83 my ( $self, $event ) = @_; 83 84 84 85 $self->_close; 85 86 } 86 87 … … 89 90 90 91 $self->GetProperties(); 91 92 92 93 $self->Destroy; 93 94 }
Note: See TracChangeset
for help on using the changeset viewer.