summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-10-17 18:34:49 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-10-17 18:34:49 +0000
commitacdc26142db3112becc42fe2e5c67147ed8a9fa7 (patch)
treeeb30f32b12e11786e3a8c6d94db4dc92b42344d3 /perl-install/interactive
parent369fb96d664c7f80217611e52458cdfffc89af72 (diff)
downloaddrakx-backup-do-not-use-acdc26142db3112becc42fe2e5c67147ed8a9fa7.tar
drakx-backup-do-not-use-acdc26142db3112becc42fe2e5c67147ed8a9fa7.tar.gz
drakx-backup-do-not-use-acdc26142db3112becc42fe2e5c67147ed8a9fa7.tar.bz2
drakx-backup-do-not-use-acdc26142db3112becc42fe2e5c67147ed8a9fa7.tar.xz
drakx-backup-do-not-use-acdc26142db3112becc42fe2e5c67147ed8a9fa7.zip
make new perl_checker happy: replacing PKG::f by PKG::f()
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/gtk.pm2
-rw-r--r--perl-install/interactive/newt.pm26
2 files changed, 14 insertions, 14 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 3fb7fd02a..32e42b496 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -19,7 +19,7 @@ sub new {
sub enter_console { my ($o) = @_; $o->{suspended} = common::setVirtual(1) }
sub leave_console { my ($o) = @_; common::setVirtual(delete $o->{suspended}) }
-sub exit { my_gtk::exit @_ }
+sub exit { my_gtk::exit(@_) }
sub ask_warn {
local $my_gtk::pop_it = 1;
diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm
index 91372df37..9493910e9 100644
--- a/perl-install/interactive/newt.pm
+++ b/perl-install/interactive/newt.pm
@@ -15,19 +15,19 @@ my ($width, $height) = (80, 25);
my @wait_messages;
sub new() {
- Newt::Init;
- Newt::Cls;
- Newt::SetSuspendCallback;
- ($width, $height) = Newt::GetScreenSize;
+ Newt::Init();
+ Newt::Cls();
+ Newt::SetSuspendCallback();
+ ($width, $height) = Newt::GetScreenSize();
open STDERR,">/dev/null" if $::isStandalone && !$::testing;
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 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($_[1]) }
END { end() }
@@ -231,13 +231,13 @@ sub ask_fromW_real {
$button->{e}{clicked_may_quit}();
};
$form->FormDestroy;
- Newt::PopWindow;
+ Newt::PopWindow();
return $v || &ask_fromW;
}
} until ($check->($common->{callbacks}{$canceled ? 'canceled' : 'complete'}));
$form->FormDestroy;
- Newt::PopWindow;
+ Newt::PopWindow();
!$canceled;
}
@@ -249,7 +249,7 @@ sub waitbox {
Newt::CenteredWindow($w, $h, $title);
$f->FormAddComponent($t);
$f->DrawForm;
- Newt::Refresh;
+ Newt::Refresh();
$f->FormDestroy;
push @wait_messages, $f;
$f;
@@ -270,7 +270,7 @@ sub wait_message_endW {
my ($o, $w) = @_;
my $wait = pop @wait_messages;
# log::l("interactive_newt does not handle none stacked wait-messages") if $w->{form} != $wait;
- Newt::PopWindow;
+ Newt::PopWindow();
}
sub simplify_string {