summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-06-06 06:21:55 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-06-06 06:21:55 +0000
commit621d75e8ff3e03c640b9bf7191d157de81a11817 (patch)
treeb46a6d1c7c46ee9d85431aa62572af4609f39c93 /perl-install/install_steps_gtk.pm
parentfb2c096a8cbec7a65700099b4b1b7d6050bdcd56 (diff)
downloaddrakx-621d75e8ff3e03c640b9bf7191d157de81a11817.tar
drakx-621d75e8ff3e03c640b9bf7191d157de81a11817.tar.gz
drakx-621d75e8ff3e03c640b9bf7191d157de81a11817.tar.bz2
drakx-621d75e8ff3e03c640b9bf7191d157de81a11817.tar.xz
drakx-621d75e8ff3e03c640b9bf7191d157de81a11817.zip
get rid of $clicked and $ent_number (obsolete)
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 59f50ccdb..bb3c50e7b 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -170,26 +170,26 @@ sub charsetChanged {
#- Steps Functions
#-######################################################################################
sub selectLanguage {
- my ($o, $first_time) = @_;
+ my ($o) = @_;
$o->SUPER::selectLanguage;
$o->ask_warn('',
formatAlaTeX(N("Your system is low on resources. You may have some problem installing
Mandriva Linux. If that occurs, you can try a text install instead. For this,
-press `F1' when booting on CDROM, then enter `text'."))) if $first_time && availableRamMB() < 70; # 70MB
+press `F1' when booting on CDROM, then enter `text'."))) if availableRamMB() < 70; # 70MB
}
#------------------------------------------------------------------------------
sub selectMouse {
- my ($o, $force) = @_;
+ my ($o) = @_;
my %old = %{$o->{mouse}};
- $o->SUPER::selectMouse($force) or return;
+ $o->SUPER::selectMouse or return;
my $mouse = $o->{mouse};
$mouse->{type} eq 'none' ||
$old{type} eq $mouse->{type} &&
$old{name} eq $mouse->{name} &&
- $old{device} eq $mouse->{device} && !$force and return;
+ $old{device} eq $mouse->{device} and return;
while (1) {
my $x_protocol_changed = mouse::change_mouse_live($mouse, \%old);