| 1 | use Wx; |
|---|
| 2 | use strict; |
|---|
| 3 | |
|---|
| 4 | use Wx qw( wxDefaultSize wxDefaultPosition wxNullAnimation wxNullFont wxBLACK ); |
|---|
| 5 | use Wx qw( wxID_OK wxID_APPLY wxID_SAVE wxID_SAVEAS wxID_CANCEL wxID_YES wxID_NO wxID_EXIT wxID_ABOUT wxID_HELP ); |
|---|
| 6 | use Wx qw( wxVERTICAL wxHORIZONTAL wxALL wxLEFT wxRIGHT wxTOP wxBOTTOM wxCENTRE wxGROW ); |
|---|
| 7 | use Wx qw( wxALIGN_RIGHT wxALIGN_BOTTOM wxALIGN_CENTER wxALIGN_CENTER_VERTICAL wxALIGN_CENTER_HORIZONTAL ); |
|---|
| 8 | use Wx qw( wxRA_SPECIFY_COLS ); |
|---|
| 9 | |
|---|
| 10 | # Bitmap functions |
|---|
| 11 | |
|---|
| 12 | use Wx qw( wxNullBitmap wxBITMAP_TYPE_PNG ); |
|---|
| 13 | |
|---|
| 14 | # Window functions |
|---|
| 15 | |
|---|
| 16 | use vars qw($ID_REUPLOAD_TEXT); $ID_REUPLOAD_TEXT = 10000; |
|---|
| 17 | use vars qw($ID_REUPLOAD_ACTION_FILES); $ID_REUPLOAD_ACTION_FILES = 10001; |
|---|
| 18 | use vars qw($ID_REUPLOAD_ACTION_PROPERTIES); $ID_REUPLOAD_ACTION_PROPERTIES = 10002; |
|---|
| 19 | use vars qw($ID_REUPLOAD_ACTION_PROPERTIES_M); $ID_REUPLOAD_ACTION_PROPERTIES_M = 10003; |
|---|
| 20 | use vars qw($ID_REUPLOAD_NOT_ASK); $ID_REUPLOAD_NOT_ASK = 10004; |
|---|
| 21 | use vars qw($ID_REUPLOAD_OK); $ID_REUPLOAD_OK = 10005; |
|---|
| 22 | |
|---|
| 23 | sub Reupload { |
|---|
| 24 | my( $parent ) = $_[0]; |
|---|
| 25 | my( $item0 ) = Wx::BoxSizer->new( wxVERTICAL ); |
|---|
| 26 | |
|---|
| 27 | my( $item1 ) = Wx::StaticText->new( $parent, $main::ID_REUPLOAD_TEXT, "Some photos in the selection have already been uploaded. What do you want to do ?", wxDefaultPosition, wxDefaultSize, 0 ); |
|---|
| 28 | $item0->AddWindow( $item1, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
|---|
| 29 | |
|---|
| 30 | my( $item2 ) = Wx::RadioBox->new( $parent, $main::ID_REUPLOAD_ACTION_FILES, "Thumbnail, web size, high definition files", wxDefaultPosition, [600,-1], |
|---|
| 31 | ["nothing","replace"] , 1, wxRA_SPECIFY_COLS ); |
|---|
| 32 | $item0->AddWindow( $item2, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
|---|
| 33 | |
|---|
| 34 | my( $item3 ) = Wx::RadioBox->new( $parent, $main::ID_REUPLOAD_ACTION_PROPERTIES, "Title, description, author, created date )", wxDefaultPosition, [600,-1], |
|---|
| 35 | ["nothing","append ( keep existing and set if not defined in Piwigo )","replace"] , 1, wxRA_SPECIFY_COLS ); |
|---|
| 36 | $item0->AddWindow( $item3, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
|---|
| 37 | |
|---|
| 38 | my( $item4 ) = Wx::RadioBox->new( $parent, $main::ID_REUPLOAD_ACTION_PROPERTIES_M, "Categories, tags", wxDefaultPosition, [600,-1], |
|---|
| 39 | ["nothing","append ( keep existing and add new )","replace"] , 1, wxRA_SPECIFY_COLS ); |
|---|
| 40 | $item0->AddWindow( $item4, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
|---|
| 41 | |
|---|
| 42 | my( $item5 ) = Wx::CheckBox->new( $parent, $main::ID_REUPLOAD_NOT_ASK, "Do not ask me again", wxDefaultPosition, wxDefaultSize, 0 ); |
|---|
| 43 | $item0->AddWindow( $item5, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 ); |
|---|
| 44 | |
|---|
| 45 | my( $item6 ) = Wx::Button->new( $parent, $main::ID_REUPLOAD_OK, "OK", wxDefaultPosition, wxDefaultSize, 0 ); |
|---|
| 46 | $item0->AddWindow( $item6, 0, wxALIGN_CENTER|wxALL, 5 ); |
|---|
| 47 | |
|---|
| 48 | $_[0]->SetSizer( $item0 ); |
|---|
| 49 | $item0->SetSizeHints( $_[0] ); |
|---|
| 50 | |
|---|
| 51 | $item0; |
|---|
| 52 | } |
|---|
| 53 | |
|---|
| 54 | use Wx qw( wxITEM_NORMAL wxITEM_RADIO wxITEM_CHECK ); |
|---|
| 55 | |
|---|
| 56 | |
|---|
