diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_gtk.pm | 136 |
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; |