summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-06 19:12:37 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-06 19:12:37 +0000
commitb684ed467490ecc1eda1fdc3048e9dc6ab4a390f (patch)
treef88e4dd9ea39fd0cde97c7d82efbc143d1d98b08 /perl-install
parente5dbb1eb7abc4f0e63e4da24acbb605eb4a21338 (diff)
downloaddrakx-b684ed467490ecc1eda1fdc3048e9dc6ab4a390f.tar
drakx-b684ed467490ecc1eda1fdc3048e9dc6ab4a390f.tar.gz
drakx-b684ed467490ecc1eda1fdc3048e9dc6ab4a390f.tar.bz2
drakx-b684ed467490ecc1eda1fdc3048e9dc6ab4a390f.tar.xz
drakx-b684ed467490ecc1eda1fdc3048e9dc6ab4a390f.zip
cleanup, functions already defined in interactive
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive_gtk.pm3
-rw-r--r--perl-install/interactive_newt.pm3
2 files changed, 0 insertions, 6 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 21c296be4..67d8ddd68 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -19,9 +19,6 @@ sub new {
sub enter_console { my ($o) = @_; $o->{suspended} = common::setVirtual(1) }
sub leave_console { my ($o) = @_; common::setVirtual(delete $o->{suspended}) }
-sub suspend {}
-sub resume {}
-
sub exit {
gtkset_mousecursor_normal(); #- for restoring a normal in any case on standalone
my_gtk::flush();
diff --git a/perl-install/interactive_newt.pm b/perl-install/interactive_newt.pm
index 0662d9a4d..9def62960 100644
--- a/perl-install/interactive_newt.pm
+++ b/perl-install/interactive_newt.pm
@@ -234,8 +234,5 @@ sub wait_message_endW {
Newt::PopWindow;
}
-sub kill {
-}
-
1;