diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2000-01-27 14:03:35 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2000-01-27 14:03:35 +0000 |
commit | ede63b3b0df1883f368711a6ca6746455d2a4076 (patch) | |
tree | d92b70d43c6a124e7f108a03f7de527ef0b83e0a /perl-install/install_steps_gtk.pm | |
parent | 28ef5814f5973e134faec194e952bbbe297a732b (diff) | |
download | drakx-backup-do-not-use-ede63b3b0df1883f368711a6ca6746455d2a4076.tar drakx-backup-do-not-use-ede63b3b0df1883f368711a6ca6746455d2a4076.tar.gz drakx-backup-do-not-use-ede63b3b0df1883f368711a6ca6746455d2a4076.tar.bz2 drakx-backup-do-not-use-ede63b3b0df1883f368711a6ca6746455d2a4076.tar.xz drakx-backup-do-not-use-ede63b3b0df1883f368711a6ca6746455d2a4076.zip |
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r-- | perl-install/install_steps_gtk.pm | 34 |
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; |