From b684ed467490ecc1eda1fdc3048e9dc6ab4a390f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 6 Aug 2001 19:12:37 +0000 Subject: cleanup, functions already defined in interactive --- perl-install/interactive_gtk.pm | 3 --- perl-install/interactive_newt.pm | 3 --- 2 files changed, 6 deletions(-) (limited to 'perl-install') 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; -- cgit v1.2.1