summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-01-27 14:03:35 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-01-27 14:03:35 +0000
commitede63b3b0df1883f368711a6ca6746455d2a4076 (patch)
treed92b70d43c6a124e7f108a03f7de527ef0b83e0a /perl-install/install_steps_gtk.pm
parent28ef5814f5973e134faec194e952bbbe297a732b (diff)
downloaddrakx-ede63b3b0df1883f368711a6ca6746455d2a4076.tar
drakx-ede63b3b0df1883f368711a6ca6746455d2a4076.tar.gz
drakx-ede63b3b0df1883f368711a6ca6746455d2a4076.tar.bz2
drakx-ede63b3b0df1883f368711a6ca6746455d2a4076.tar.xz
drakx-ede63b3b0df1883f368711a6ca6746455d2a4076.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm34
1 files changed, 17 insertions, 17 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 86101f814..d82ea688a 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -181,7 +181,7 @@ sub new($$) {
my $ok = 1;
local $SIG{CHLD} = sub { $ok = 0 };
unless (fork) {
- exec $_[0], (arch() =~ /^sparc/ ? () : ("-kb")), "-dpms","-s" ,"240", "-allowMouseOpenFail", "-xf86config", $f or exit 1;
+ exec $_[0], "-dpms","-s" ,"240", "-allowMouseOpenFail", "-xf86config", $f or exit 1;
}
foreach (1..15) {
sleep 1;
@@ -190,7 +190,7 @@ sub new($$) {
}
0;
};
- my @servers = qw(FBDev VGA16);
+ my @servers = qw(FBDev VGA16); #-)
@servers = qw(FBDev 3DLabs TGA) if arch() eq "alpha";
@servers = qw(Mach64) if arch() =~ /^sparc/;
@@ -222,8 +222,6 @@ sub new($$) {
install_theme($o);
create_logo_window($o);
-# eval { sleep 10; run_command::run('xhost+') }; #- for testing
-
$my_gtk::force_center = [ $width - $windowwidth, $logoheight, $windowwidth, $windowheight ];
(bless {}, ref $type || $type)->SUPER::new($o);
@@ -373,7 +371,7 @@ sub choosePackagesTree {
$size += $_->{size} - ($_->{installedCumulSize} || 0) if $_->{selected}; #- on upgrade, installed packages will be removed.
}
- $w_size->set(_("Total size: ") . int (pkgs::correctSize($size / sqr(1024))) . " / $availableSpace " . _("MB") );
+ $w_size->set(_("Total size: ") . int (pkgs::correctSize($size / sqr(1024))) . " / $availableSpace " . _("KB") );
};
my $new_item = sub {
my ($p, $name, $parent) = @_;
@@ -807,7 +805,7 @@ END
local *F;
open F, ">$file" or die "can't create X configuration file $file";
- print F <<END_KEYB;
+ print F <<END;
Section "Files"
FontPath "/usr/X11R6/lib/X11/fonts:unscaled,/usr/X11R6/lib/X11/fonts"
EndSection
@@ -820,19 +818,21 @@ Section "Keyboard"
RightAlt Meta
ScrollLock Compose
RightCtl Control
-END_KEYB
+END
if (arch() =~ /^sparc/) {
- print F <<END_KEYB_SPARC;
- XkbRules "sun"
- XkbModel "sun"
- XkbLayout "us"
- XkbCompat "compat/complete"
- XkbTypes "types/complete"
- XkbKeycodes "sun(type5)"
- XkbGeometry "sun(type5)"
- XkbSymbols "sun/us(sun5)"
-END_KEYB_SPARC
+ print F <<END;
+ XkbRules "sun"
+ XkbModel "sun"
+ XkbLayout "us"
+ XkbCompat "compat/complete"
+ XkbTypes "types/complete"
+ XkbKeycodes "sun(type5)"
+ XkbGeometry "sun(type5)"
+ XkbSymbols "sun/us(sun5)"
+END
+ } else {
+ print F " XkbDisable\n";
}
print F <<END;