Locale-VersionedMessages
view release on metacpan or search on metacpan
219421952196219721982199220022012202220322042205220622072208220922102211221222132214
if
(
$frame
eq
'select_operation'
) {
select_operation_pack(
$err
);
}
elsif
(
$frame
eq
'create_set'
) {
create_set_pack(
$err
);
}
elsif
(
$frame
eq
'manage_set'
) {
manage_set_pack(
$err
);
}
}
sub
update_window {
my
$geometry
;
$geometry
.=
"$data{x}$data{y}"
;
$main_window
->geometry(
$geometry
);
$main_window
->update;
$main_window
->deiconify;
$main_window
->raise;
}
# Local Variables:
# mode: cperl
internal/lm_admin view on Meta::CPAN
360361362363364365366367368369370371372373374375376377378379380
$loc_messages
,
$msgid
,
$noupdate
);
if
(
$op
eq
'add_def'
||
$op
eq
'upd_def'
) {
Locale::VersionedMessages::lm::_lexicon_write(
$set
,
$dir
,
$def_locale
,
$def_messages
);
}
elsif
(
$op
eq
'add_loc'
||
$op
eq
'upd_loc'
) {
Locale::VersionedMessages::lm::_lexicon_write(
$set
,
$dir
,
$locale
,
$loc_messages
);
}
}
}
sub
update {
my
(
$set
,
$dir
,
$locale
,
$noupdate
) =
@_
;
# Get the default locale info, and the locale you're working
# with (which must not be the default locale).
my
(
$set_messages
,
$def_locale
,
@oth_locale
) =
Locale::VersionedMessages::lm::_set_read(
$set
,
$dir
);
if
(
$locale
eq
$def_locale
) {
"INFO: the --update option only applies to locales other\n"
.
" than the default locale.\n"
;
( run in 0.330 second using v1.01-cache-2.11-cpan-4e96b696675 )