package interactive_newt; # $Id$ use diagnostics; use strict; use vars qw(@ISA); @ISA = qw(interactive); use interactive; use common qw(:common :functional); use log; use Newt::Newt; #- !! provides Newt and not Newt::Newt my ($width, $height) = (80, 25); my @wait_messages; sub new() { Newt::Init; Newt::Cls; Newt::SetSuspendCallback; ($width, $height) = Newt::GetScreenSize; open STDERR,">/dev/null" if $::isStandalone; bless {}, $_[0]; } sub enter_console { Newt::Suspend } sub leave_console { Newt::Resume } sub suspend { Newt::Suspend } sub resume { Newt::Resume } sub end() { Newt::Finished } sub exit() { end; exit($_[0]) } END { end() } sub myTextbox { my $allow_scroll = shift; my $width = $width - 9; my @l = map { /(.{1,$width})/g } map { split "\n" } @_; my $h = min($height - 13, int @l); my $flag = 1 << 6; if ($h < @l) { if ($allow_scroll) { $flag |= 1 << 2; #- NEWT_FLAG_SCROLL } else { # remove the text, no other way! @l = @l[0 .. $h-1]; } } my $mess = Newt::Component::Textbox(1, 0, my $w = max(map { length } @l) + 1, $h, $flag); $mess->TextboxSetText(join("\n", @_)); $mess, $w + 1, $h; } sub separator { my $blank = Newt::Component::Form(\undef, '', 0); $blank->FormSetWidth ($_[0]); $blank->FormSetHeight($_[1]); $blank; } sub checkval { $_[0] && $_[0] ne ' ' ? '*' : ' ' } sub ask_from_entries_refW { my ($o, $common, $l, $l2) = @_; my $ignore; #-to handle recursivity my $old_focus = -2; #-the widgets my (@widgets, $total_size); my $set_all = sub { $ignore = 1; $_->{set}->(${$_->{e}{val}}) foreach @widgets; # $_->{w}->set_sensitive(!$_->{e}{disabled}()) foreach @widgets; $ignore = 0; }; my $get_all = sub { ${$_->{e}{val}} = $_->{get}->() foreach @widgets; }; my $create_widget = sub { my ($e, $ind) = @_; $e->{type} = 'list' if $e->{type} =~ /(icon|tree)list/; #- combo doesn't exist, fallback to a sensible default $e->{type} = $e->{not_edit} ? 'list' : 'entry' if $e->{type} eq 'combo'; my $changed = sub { return if $ignore; return $old_focus++ if $old_focus == -2; #- handle special first case $get_all->(); #- TODO: this is very rough :( $common->{callbacks}{$old_focus == $ind ? 'changed' : 'focus_out'}->($ind); $set_all->(); $old_focus = $ind; }; my ($w, $real_w, $set, $get, $expand, $size); if ($e->{type} eq 'bool') { $w = Newt::Component::Checkbox(-1, -1, $e->{text} || '', checkval(${$e->{val}}), " *"); $set = sub { $w->CheckboxSetValue(checkval($_[0])) }; $get = sub { $w->CheckboxGetValue == ord '*' }; } elsif ($e->{type} eq 'button') { $w = Newt::Component::Button(-1, -1, may_apply($e->{format}, ${$e->{val}})); } elsif ($e->{type} =~ /list/) { my ($h, $wi) = (5, 20); my $scroll = @{$e->{list}} > $h ? 1 << 2 : 0; $size = min(int @{$e->{list}}, $h); $w = Newt::Component::Listbox(-1, -1, $h, $scroll); #- NEWT_FLAG_SCROLL foreach (@{$e->{list}}) { my $t = may_apply($e->{format}, $_); $w->ListboxAddEntry($t, $_); $wi = max($wi, length $t); } $w->ListboxSetWidth($wi + 3); # 3 added for the scrollbar (?) $get = sub { $w->ListboxGetCurrent }; $set = sub { my ($val) = @_; map_index { $w->ListboxSetCurrent($::i) if $val eq $_; } @{$e->{list}}; }; } else { $w = Newt::Component::Entry(-1, -1, '', 20, ($e->{hidden} && 1 << 11) | 1 << 2); $get = sub { $w->EntryGetValue }; $set = sub { $w->EntrySet($_[0], 1) }; } $total_size += $size || 1; #- !! callbacks must be kept otherwise perl will free them !! #- (better handling of addCallback needed) { e => $e, w => $w, real_w => $real_w || $w, expand => $expand, callback => $changed, get => $get || sub { ${$e->{val}} }, set => $set || sub {} }; }; @widgets = map_index { $create_widget->($_, $::i) } @$l; $_->{w}->addCallback($_->{callback}) foreach @widgets; $set_all->(); my $grid = Newt::Grid::CreateGrid(3, max(1, int @$l)); map_index { $grid->GridSetField(0, $::i, 1, ${Newt::Component::Label(-1, -1, $_->{e}{label})}, 0, 0, 1, 0, 1, 0); $grid->GridSetField(1, $::i, 1, ${$_->{real_w}}, 0, 0, 0, 0, 1, 0); } @widgets; my $listg = do { my $height = 18; #- use a scrolled window if there is a lot of checkboxes (aka ask_many_from_list) #- !! works badly together with list's :-( if ((grep { $_->{type} eq 'bool' } @$l) > 6 && $total_size > $height) { $grid->GridPlace(1, 1); #- Uh?? otherwise the size allocated is bad my $scroll = Newt::Component::VerticalScrollbar(-1, -1, $height, 9, 10); my $subf = $scroll->Form('', 0); $subf->FormSetHeight($height); $subf->FormAddGrid($grid, 0); Newt::Grid::HCloseStacked($subf, separator(1, $height), $scroll); } else { $grid; } }; my ($buttons, $ok, $cancel) = Newt::Grid::ButtonBar($common->{ok} || '', if_($common->{cancel}, $common->{cancel})); my $form = Newt::Component::Form(\undef, '', 0); my $window = Newt::Grid::GridBasicWindow(first(myTextbox(@widgets == 0, @{$common->{messages}})), $listg, $buttons); $window->GridWrappedWindow($common->{title} || ''); $form->FormAddGrid($window, 1); my $check = sub { my ($f) = @_; $get_all->(); my ($error, $focus) = $f->(); if ($error) { $set_all->(); } !$error; }; my $canceled; do { my $r = $form->RunForm; foreach (@widgets) { if ($$r == ${$_->{w}}) { $form->FormDestroy; Newt::PopWindow; $_->{e}{clicked}(); return ask_from_entries_refW($o, $common, $l, $l2); } } $canceled = $cancel && $$r == $$cancel; } until ($check->($common->{callbacks}{$canceled ? 'canceled' : 'complete'})); $form->FormDestroy; Newt::PopWindow; !$canceled; } sub waitbox { my ($title, $messages) = @_; my ($t, $w, $h) = myTextbox(1, 0, @$messages); my $f = Newt::Component::Form(\undef, '', 0); Newt::CenteredWindow($w, $h, $title); $f->FormAddComponent($t); $f->DrawForm; Newt::Refresh; $f->FormDestroy; push @wait_messages, $f; $f; } sub wait_messageW { my ($o, $title, $messages) = @_; { form => waitbox($title, $messages), title => $title }; } sub wait_message_nextW { my ($o, $messages, $w) = @_; $o->wait_message_endW($w); $o->wait_messageW($w->{title}, $messages); } sub wait_message_endW { my ($o, $w) = @_; log::l("interactive_newt does not handle none stacked wait-messages") if $w->{form} != pop @wait_messages; Newt::PopWindow; } sub kill { } 1; mit();'>
authorThierry Vignaud <tv@mandriva.org>2008-09-11 17:13:33 +0000
committerThierry Vignaud <tv@mandriva.org>2008-09-11 17:13:33 +0000
commitce2b4d83c4c55e102ef5446995a346299e640302 (patch)
tree06898dbc1930590074bbd5cb74adf24231ed191f
parentf6366923e6f5dadb5682a36c6f4139b9f045be92 (diff)
downloaddrakx-ce2b4d83c4c55e102ef5446995a346299e640302.tar
drakx-ce2b4d83c4c55e102ef5446995a346299e640302.tar.gz
drakx-ce2b4d83c4c55e102ef5446995a346299e640302.tar.bz2
drakx-ce2b4d83c4c55e102ef5446995a346299e640302.tar.xz
drakx-ce2b4d83c4c55e102ef5446995a346299e640302.zip
remove ending "!" from "Read carefully!"
Diffstat
-rw-r--r--perl-install/diskdrake/hd_gtk.pm2
-rw-r--r--perl-install/diskdrake/interactive.pm6
-rw-r--r--perl-install/share/po/af.po4
-rw-r--r--perl-install/share/po/am.po4
-rw-r--r--perl-install/share/po/ar.po4
-rw-r--r--perl-install/share/po/az.po4
-rw-r--r--perl-install/share/po/be.po4
-rw-r--r--perl-install/share/po/bg.po4
-rw-r--r--perl-install/share/po/bn.po4
-rw-r--r--perl-install/share/po/br.po4
-rw-r--r--perl-install/share/po/bs.po4
-rw-r--r--perl-install/share/po/ca.po4
-rw-r--r--perl-install/share/po/cs.po4
-rw-r--r--perl-install/share/po/cy.po4
-rw-r--r--perl-install/share/po/da.po4
-rw-r--r--perl-install/share/po/de.po4
-rw-r--r--perl-install/share/po/el.po4
-rw-r--r--perl-install/share/po/eo.po2
-rw-r--r--perl-install/share/po/es.po4
-rw-r--r--perl-install/share/po/et.po4
-rw-r--r--perl-install/share/po/eu.po4
-rw-r--r--perl-install/share/po/fa.po4
-rw-r--r--perl-install/share/po/fi.po4
-rw-r--r--perl-install/share/po/fr.po4
-rw-r--r--perl-install/share/po/fur.po4
-rw-r--r--perl-install/share/po/ga.po4
-rw-r--r--perl-install/share/po/gl.po4
-rw-r--r--perl-install/share/po/he.po4
-rw-r--r--perl-install/share/po/hi.po4
-rw-r--r--perl-install/share/po/hr.po4
-rw-r--r--perl-install/share/po/hu.po4
-rw-r--r--perl-install/share/po/id.po4
-rw-r--r--perl-install/share/po/is.po4
-rw-r--r--perl-install/share/po/it.po4
-rw-r--r--perl-install/share/po/ja.po2
-rw-r--r--perl-install/share/po/ko.po4
-rw-r--r--perl-install/share/po/ky.po4
-rw-r--r--perl-install/share/po/libDrakX.pot2
-rw-r--r--perl-install/share/po/lt.po4
-rw-r--r--perl-install/share/po/ltg.po4
-rw-r--r--perl-install/share/po/lv.po4
-rw-r--r--perl-install/share/po/mk.po4
-rw-r--r--perl-install/share/po/mn.po4
-rw-r--r--perl-install/share/po/ms.po4
-rw-r--r--perl-install/share/po/mt.po4
-rw-r--r--perl-install/share/po/nb.po4
-rw-r--r--perl-install/share/po/nl.po4
-rw-r--r--perl-install/share/po/nn.po4
-rw-r--r--perl-install/share/po/pa_IN.po4
-rw-r--r--perl-install/share/po/pl.po4
-rw-r--r--perl-install/share/po/pt.po4
-rw-r--r--perl-install/share/po/pt_BR.po4
-rw-r--r--perl-install/share/po/ro.po4
-rw-r--r--perl-install/share/po/ru.po4
-rw-r--r--perl-install/share/po/sc.po4
-rw-r--r--perl-install/share/po/sk.po4
-rw-r--r--perl-install/share/po/sl.po4
-rw-r--r--perl-install/share/po/sq.po4
-rw-r--r--perl-install/share/po/sr.po4
-rw-r--r--perl-install/share/po/sr@Latn.po4
-rw-r--r--perl-install/share/po/sv.po4
-rw-r--r--perl-install/share/po/ta.po2
-rw-r--r--perl-install/share/po/tg.po4
-rw-r--r--perl-install/share/po/th.po4
-rw-r--r--perl-install/share/po/tl.po4
-rw-r--r--perl-install/share/po/tr.po4
-rw-r--r--perl-install/share/po/uk.po4
-rw-r--r--perl-install/share/po/uz.po4
-rw-r--r--perl-install/share/po/uz@cyrillic.po4
-rw-r--r--perl-install/share/po/vi.po4
-rw-r--r--perl-install/share/po/wa.po4
-rw-r--r--perl-install/share/po/zh_CN.po2
-rw-r--r--perl-install/share/po/zh_TW.po2
73 files changed, 140 insertions, 140 deletions
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index 2e79cc473..dbccf5cdb 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -100,7 +100,7 @@ sub main {
$notebook_widget->signal_connect(realize => $update_all);
$w->sync;
$done_button->grab_focus;
- $in->ask_from_list_(N("Read carefully!"), N("Please make a backup of your data first"),
+ $in->ask_from_list_(N("Read carefully"), N("Please make a backup of your data first"),
[ N_("Exit"), N_("Continue") ], N_("Continue")) eq N_("Continue") or return
if $::isStandalone;
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index 7560f9dc6..468e14b7a 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -1007,7 +1007,7 @@ sub ask_alldatamaybelost {
#- here we may have a non-formatted or a formatted partition
#- -> doing as if it was formatted
- $in->ask_okcancel(N("Read carefully!"),
+ $in->ask_okcancel(N("Read carefully"),
[ N("Be careful: this operation is dangerous."), sprintf(translate($msg), $part->{device}) ], 1);
}
sub ask_alldatawillbelost {
@@ -1017,7 +1017,7 @@ sub ask_alldatawillbelost {
#- here we may have a non-formatted or a formatted partition
#- -> doing as if it was formatted
- $in->ask_okcancel(N("Read carefully!"), sprintf(translate($msg), $part->{device}), 1);
+ $in->ask_okcancel(N("Read carefully"), sprintf(translate($msg), $part->{device}), 1);
}
sub partitions_suggestions {
@@ -1070,7 +1070,7 @@ sub write_partitions {
$hd->{isDirty} or return 1;
isLVM($hd) and return 1;
- $in->ask_okcancel(N("Read carefully!"), N("Partition table of drive %s is going to be written to disk!", $hd->{device}), 1) or return;
+ $in->ask_okcancel(N("Read carefully"), N("Partition table of drive %s is going to be written to disk!", $hd->{device}), 1) or return;
partition_table::write($hd) if !$::testing;
check_rebootNeeded($in, $hd) if !$b_skip_check_rebootNeeded;
# fix resizing's failures due to udev's race when writing the partition table
diff --git a/perl-install/share/po/af.po b/perl-install/share/po/af.po
index 4fcf3b10c..a2b24c89c 100644
--- a/perl-install/share/po/af.po
+++ b/perl-install/share/po/af.po
@@ -1257,8 +1257,8 @@ msgstr ""
#: diskdrake/hd_gtk.pm:102 diskdrake/interactive.pm:1010
#: diskdrake/interactive.pm:1020 diskdrake/interactive.pm:1073
#, c-format
-msgid "Read carefully!"
-msgstr "Lees noukeurig!"
+msgid "Read carefully"
+msgstr "Lees noukeurig"
#: diskdrake/hd_gtk.pm:102
#, c-format
diff --git a/perl-install/share/po/am.po b/perl-install/share/po/am.po
index 28cdee41d..aa804dda5 100644
--- a/perl-install/share/po/am.po
+++ b/perl-install/share/po/am.po
@@ -1210,8 +1210,8 @@ msgstr ""
#: diskdrake/hd_gtk.pm:102 diskdrake/interactive.pm:1010
#: diskdrake/interactive.pm:1020 diskdrake/interactive.pm:1073
#, c-format
-msgid "Read carefully!"
-msgstr "በጥንቃቄ ያንብቡ!"
+msgid "Read carefully"
+msgstr "በጥንቃቄ ያንብቡ"
#: diskdrake/hd_gtk.pm:102
#, c-format
diff --git a/perl-install/share/po/ar.po b/perl-install/share/po/ar.po
index 52c50a4a0..43f04ff3f 100644
--- a/perl-install/share/po/ar.po
+++ b/perl-install/share/po/ar.po
@@ -1265,8 +1265,8 @@ msgstr ""
#: diskdrake/hd_gtk.pm:102 diskdrake/interactive.pm:1010
#: diskdrake/interactive.pm:1020 diskdrake/interactive.pm:1073
#, c-format
-msgid "Read carefully!"
-msgstr "اقرأ جيدا!"
+msgid "Read carefully"
+msgstr "اقرأ جيدا"
#: diskdrake/hd_gtk.pm:102
#, c-format
diff --git a/perl-install/share/po/az.po b/perl-install/share/po/az.po
index 55ee923e4..62028defc 100644
--- a/perl-install/share/po/az.po
+++ b/perl-install/share/po/az.po
@@ -1259,8 +1259,8 @@ msgstr ""
#: diskdrake/hd_gtk.pm:102 diskdrake/interactive.pm:1010
#: diskdrake/interactive.pm:1020 diskdrake/interactive.pm:1073
#, c-format
-msgid "Read carefully!"
-msgstr "Diqqətlə oxuyun!"
+msgid "Read carefully"
+msgstr "Diqqətlə oxuyun"
#: diskdrake/hd_gtk.pm:102
#, c-format
diff --git a/perl-install/share/po/be.po b/perl-install/share/po/be.po
index 02dfee5d8..6ffed6d49 100644
--- a/perl-install/share/po/be.po
+++ b/perl-install/share/po/be.po
@@ -1216,8 +1216,8 @@ msgstr ""
#: diskdrake/hd_gtk.pm:102 diskdrake/interactive.pm:1010
#: diskdrake/interactive.pm:1020 diskdrake/interactive.pm:1073
#, c-format
-msgid "Read carefully!"
-msgstr "Чытайце ўважліва!"
+msgid "Read carefully"
+msgstr "Чытайце ўважліва"
#: diskdrake/hd_gtk.pm:102
#, c-format
diff --git a/perl-install/share/po/bg.po b/perl-install/share/po/bg.po
index 4792b7096..6845a43a7 100644
--- a/perl-install/share/po/bg.po
+++ b/perl-install/share/po/bg.po