summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_gtk.pm136
1 files changed, 42 insertions, 94 deletions
diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm
index 7dcc90931..0c895eda1 100644
--- a/perl-install/install_gtk.pm
+++ b/perl-install/install_gtk.pm
@@ -222,71 +222,56 @@ sub createXconf {
if (arch() =~ /^ia64/) {
require Xconfigurator;
- my ($card) = Xconfigurator::cardConfigurationAuto();
- Xconfigurator::updateCardAccordingName($card, $card->{type}) if $card && $card->{type};
- local *F;
- open F, ">$file" or die "can't create X configuration file $file";
- print F <<END;
+ my ($card) = Xconfigurator::probe_cards();
+ Xconfigurator::add_to_card__using_Cards($card, $card->{type}) if $card && $card->{type};
+ output($file, <<END);
Section "Files"
FontPath "/usr/X11R6/lib/X11/fonts:unscaled"
EndSection
Section "InputDevice"
- Identifier "Keyboard1"
- Driver "Keyboard"
- Option "AutoRepeat" "250 30"
+ Identifier "Keyboard"
+ Driver "Keyboard"
Option "XkbDisable"
-
- Option "XkbRules" "xfree86"
Option "XkbModel" "pc105"
Option "XkbLayout" ""
EndSection
Section "InputDevice"
- Identifier "Mouse1"
- Driver "mouse"
- Option "Protocol" "$mouse_type"
- Option "Device" "/dev/mouse"
+ Identifier "Mouse"
+ Driver "mouse"
+ Option "Protocol" "$mouse_type"
+ Option "Device" "/dev/mouse"
EndSection
Section "Monitor"
- Identifier "Generic|High Frequency SVGA, 1024x768 at 70 Hz"
- VendorName "Unknown"
- ModelName "Unknown"
- HorizSync 31.5-35.5
+ Identifier "monitor"
+ HorizSync 31.5-35.5
VertRefresh 50-70
EndSection
Section "Device"
- Identifier "Generic VGA"
- Driver "vga"
-EndSection
-
-Section "Device"
- Identifier "device1"
- VendorName "Unknown"
- BoardName "Unknown"
+ Identifier "device"
Driver "$card->{driver}"
EndSection
Section "Screen"
- Identifier "screen1"
- Device "device1"
- Monitor "Generic|High Frequency SVGA, 1024x768 at 70 Hz"
+ Identifier "screen"
+ Device "device"
+ Monitor "monitor"
DefaultColorDepth 16
Subsection "Display"
- Depth 16
- Modes "800x600" "640x480"
- ViewPort 0 0
+ Depth 16
+ Modes "800x600" "640x480"
EndSubsection
EndSection
Section "ServerLayout"
- Identifier "layout1"
- Screen "screen1"
- InputDevice "Mouse1" "CorePointer"
- InputDevice "Keyboard1" "CoreKeyboard"
+ Identifier "layout"
+ Screen "screen"
+ InputDevice "Mouse" "CorePointer"
+ InputDevice "Keyboard" "CoreKeyboard"
EndSection
END
@@ -296,10 +281,9 @@ END
else
{
-
my $wacom;
if ($wacom_dev) {
- $wacom_dev = devices::make($wacom_dev);
+ my $dev = devices::make($wacom_dev);
$wacom = <<END;
Section "Module"
Load "xf86Wacom.so"
@@ -307,54 +291,29 @@ EndSection
Section "XInput"
SubSection "WacomStylus"
- Port "$wacom_dev"
+ Port "$dev"
AlwaysCore
EndSubSection
SubSection "WacomCursor"
- Port "$wacom_dev"
+ Port "$dev"
AlwaysCore
EndSubSection
SubSection "WacomEraser"
- Port "$wacom_dev"
+ Port "$dev"
AlwaysCore
EndSubSection
EndSection
END
}
- local *F;
- open F, ">$file" or die "can't create X configuration file $file";
- print F <<END;
+ output($file, <<END);
Section "Files"
FontPath "/usr/X11R6/lib/X11/fonts:unscaled"
EndSection
Section "Keyboard"
Protocol "Standard"
- AutoRepeat 0 0
-
- LeftAlt Meta
- RightAlt Meta
- ScrollLock Compose
- RightCtl Control
-END
-
- if (arch() =~ /^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;
+ XkbDisable
EndSection
Section "Pointer"
@@ -366,9 +325,7 @@ EndSection
$wacom
Section "Monitor"
- Identifier "My Monitor"
- VendorName "Unknown"
- ModelName "Unknown"
+ Identifier "monitor"
HorizSync 31.5-35.5
VertRefresh 50-70
ModeLine "640x480" 25.175 640 664 760 800 480 491 493 525
@@ -379,62 +336,53 @@ EndSection
Section "Device"
Identifier "Generic VGA"
- VendorName "Unknown"
- BoardName "Unknown"
Chipset "generic"
EndSection
Section "Device"
Identifier "svga"
- VendorName "Unknown"
- BoardName "Unknown"
EndSection
Section "Screen"
Driver "vga16"
Device "Generic VGA"
- Monitor "My Monitor"
+ Monitor "monitor"
Subsection "Display"
- Modes "640x480"
- ViewPort 0 0
+ Modes "640x480"
EndSubsection
EndSection
Section "Screen"
Driver "fbdev"
Device "Generic VGA"
- Monitor "My Monitor"
+ Monitor "monitor"
Subsection "Display"
- Depth 16
- Modes "default"
- ViewPort 0 0
+ Depth 16
+ Modes "default"
EndSubsection
EndSection
Section "Screen"
Driver "svga"
- Device "svga"
- Monitor "My Monitor"
+ Device "svga"
+ Monitor "monitor"
Subsection "Display"
- Depth 16
- Modes "800x600" "640x480"
- ViewPort 0 0
+ Depth 16
+ Modes "800x600" "640x480"
EndSubsection
EndSection
Section "Screen"
- Driver "accel"
- Device "svga"
- Monitor "My Monitor"
+ Driver "accel"
+ Device "svga"
+ Monitor "monitor"
Subsection "Display"
- Depth 16
- Modes "800x600" "640x480"
- ViewPort 0 0
+ Depth 16
+ Modes "800x600" "640x480"
EndSubsection
EndSection
END
}
}
-#- ModeLine "640x480" 28 640 672 768 800 480 490 492 525
1;