Changeset 5472 for extensions/pLoader/trunk/src/Uploader/GUI/Frame.pm
- Timestamp:
- Mar 30, 2010, 2:29:37 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
extensions/pLoader/trunk/src/Uploader/GUI/Frame.pm
r5447 r5472 305 305 $self->imagelist->current_image->site_name; 306 306 }, 307 pre_process => sub { sub { $self->imagelist->GetCurrentImage DefaultName(@_); } },307 pre_process => sub { sub { $self->imagelist->GetCurrentImageCaption(@_); } }, 308 308 choices => 309 309 [ 310 map { gettext $_ } @{wxTheApp-> default_photo_names}310 map { gettext $_ } @{wxTheApp->caption_patterns} 311 311 ], 312 312 frame_callback => sub { $self->imageviewer_item_refresh(1); }, … … 361 361 $self->global_settings( 362 362 { 363 $main::DEFAULT_PHOTO_CAPTION => { label => gettext("Default photo caption") },363 $main::DEFAULT_PHOTO_CAPTION => { label => gettext("Default caption pattern") }, 364 364 $main::CPANE_RESIZE_ADVANCED => { label => gettext("Advanced") }, 365 365 $main::CPANE_HD_ADVANCED => { label => gettext("Advanced") }, … … 370 370 $main::GS_CLOSE => { label => gettext("Close")}, 371 371 $main::GS_DEFAULT_PHOTO_CAPTION => { 372 string_selection => sub { $self->imagelist->default_ photo_name(@_) },372 string_selection => sub { $self->imagelist->default_caption_pattern(@_) }, 373 373 choices => 374 374 [ 375 map { gettext $_ } @{wxTheApp-> default_photo_names}375 map { gettext $_ } @{wxTheApp->caption_patterns} 376 376 ], 377 pre_process => sub { my ( $value ) = @_; wxTheApp->eng_ default_photo_names->{$value} },377 pre_process => sub { my ( $value ) = @_; wxTheApp->eng_caption_patterns->{$value} }, 378 378 frame_callback => sub { 379 379 my( $self, $ctrl, $event ) = @_; … … 381 381 }, 382 382 }, 383 $main::PHOTO_CAPTION_PREFIX => { label => gettext(" Photo caption prefix") },383 $main::PHOTO_CAPTION_PREFIX => { label => gettext("Default caption") }, 384 384 $main::GS_PHOTO_CAPTION_PREFIX => { 385 value => sub { $self->imagelist->default_ name_prefix(@_) },385 value => sub { $self->imagelist->default_caption(@_) }, 386 386 }, 387 387 $main::GS_AUTO_ROTATE => { … … 895 895 896 896 897 sub OnDefaultPhotoNameChanged {898 my ( $self ) = @_;899 900 Wx::LogMessage("New default_photo_name %s", $self->imagelist->default_photo_name);901 }902 903 904 897 sub OnGeneralSettingsClose { 905 898 my ( $self, $event ) = @_; … … 1073 1066 Wx::Event::EVT_BUTTON( $self, $main::PHOTO_PROPERTIES_UPLOAD, \&OnUploadImages ); 1074 1067 Wx::Event::EVT_BUTTON( $self, $self->imageviewer->add_button->GetId, \&OnAddImages ); 1075 1068 Wx::Event::EVT_KEY_DOWN($self, \&OnKeyDown ); 1076 1069 1077 1070 # only refresh when calling event is finished … … 1513 1506 1514 1507 } 1508 1515 1509 1516 1510 sub OnUploadImages {
Note: See TracChangeset
for help on using the changeset viewer.