diff options
| author | Mystery Man <unknown@mandriva.org> | 2003-04-24 07:15:38 +0000 |
|---|---|---|
| committer | Mystery Man <unknown@mandriva.org> | 2003-04-24 07:15:38 +0000 |
| commit | 87ef78ed082f9dec4e83a6120b32617b7f7a86b9 (patch) | |
| tree | b96ceedd4f1c29745a0651880e71daab8cdb686c /perl-install/install_gtk.pm | |
| parent | 327bd24f8e4291bd1882de1990dd7339f781a9cb (diff) | |
| download | drakx-backup-do-not-use-87ef78ed082f9dec4e83a6120b32617b7f7a86b9.tar drakx-backup-do-not-use-87ef78ed082f9dec4e83a6120b32617b7f7a86b9.tar.gz drakx-backup-do-not-use-87ef78ed082f9dec4e83a6120b32617b7f7a86b9.tar.bz2 drakx-backup-do-not-use-87ef78ed082f9dec4e83a6120b32617b7f7a86b9.tar.xz drakx-backup-do-not-use-87ef78ed082f9dec4e83a6120b32617b7f7a86b9.zip | |
This commit was manufactured by cvs2svn to create tag 'V1_1_9_56mdk'.V1_1_9_56mdk
Diffstat (limited to 'perl-install/install_gtk.pm')
| -rw-r--r-- | perl-install/install_gtk.pm | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm index 89517dffb..fe8ae2fe9 100644 --- a/perl-install/install_gtk.pm +++ b/perl-install/install_gtk.pm @@ -7,6 +7,7 @@ use my_gtk qw(:helpers :wrappers); use common; use lang; use devices; +use log; #-##################################################################################### #-INTERN CONSTANT @@ -188,21 +189,18 @@ sub init_sizes() { #------------------------------------------------------------------------------ sub createXconf { - my ($file, $mouse_type, $mouse_dev, $wacom_dev) = @_; + my ($file, $mouse_type, $mouse_dev, $wacom_dev, $Driver) = @_; $mouse_type = 'IMPS/2' if $mouse_type eq 'ExplorerPS/2'; - devices::make("/dev/kbd") if arch() =~ /^sparc/; #- used by Xsun style server. symlinkf(devices::make($mouse_dev), "/dev/mouse"); #- needed for imlib to start on 8-bit depth visual. symlink("/tmp/stage2/etc/imrc", "/etc/imrc"); symlink("/tmp/stage2/etc/im_palette.pal", "etc/im_palette.pal"); -if (arch() =~ /^ia64/) { - require Xconfig::card; - my ($card) = Xconfig::card::probe(); - Xconfig::card::add_to_card__using_Cards($card, $card->{type}) if $card && $card->{type}; - output($file, sprintf(<<'END', $mouse_type, $card->{driver})); +if ($Driver) { + log::l("Mouse type is $mouse_type and Card driver is " . $card->{Driver}); + output($file, sprintf(<<'END', $mouse_type, $Driver)); Section "Files" FontPath "/usr/X11R6/lib/X11/fonts:unscaled" |