diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-08-22 13:14:24 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-08-22 13:14:24 +0000 |
| commit | b19b34a08590f33973ffc9449accc21cdb1adbba (patch) | |
| tree | c9f1ba71ae1588e87ab4b3b430aa2e4528c47aa8 /perl-install/Xconfigurator.pm | |
| parent | ae35def9865df3f82303a8c72c41d0b966651f5a (diff) | |
| download | drakx-backup-do-not-use-b19b34a08590f33973ffc9449accc21cdb1adbba.tar drakx-backup-do-not-use-b19b34a08590f33973ffc9449accc21cdb1adbba.tar.gz drakx-backup-do-not-use-b19b34a08590f33973ffc9449accc21cdb1adbba.tar.bz2 drakx-backup-do-not-use-b19b34a08590f33973ffc9449accc21cdb1adbba.tar.xz drakx-backup-do-not-use-b19b34a08590f33973ffc9449accc21cdb1adbba.zip | |
no_comment
Diffstat (limited to 'perl-install/Xconfigurator.pm')
| -rw-r--r-- | perl-install/Xconfigurator.pm | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/perl-install/Xconfigurator.pm b/perl-install/Xconfigurator.pm index c1dcefcfa..755678dcd 100644 --- a/perl-install/Xconfigurator.pm +++ b/perl-install/Xconfigurator.pm @@ -225,7 +225,8 @@ Do You want to use XFree 3.3 instead of XFree 4.0?"), 1) and $card->{driver} = ' unless ($card->{type}) { $card->{flags}{noclockprobe} = member($card->{server}, qw(I128 S3 S3V Mach64)); } - $card->{options}{DPMS} = 1; + $card->{options_xf3}{power_saver} = 1; + $card->{options_xf4}{DPMS} = 1; $card->{flags}{needVideoRam} and $card->{memory} ||= @@ -411,7 +412,7 @@ sub testFinalConfig($;$$) { $ENV{DISPLAY} = ":9"; - gtkset_mousecursor(68); + gtkset_mousecursor_normal(); gtkset_background(200 * 257, 210 * 257, 210 * 257); my ($h, $w) = Gtk::Gdk::Window->new_foreign(Gtk::Gdk->ROOT_WINDOW)->get_size; $my_gtk::force_position = [ $w / 3, $h / 2.4 ]; @@ -885,8 +886,14 @@ EndSection # Option "sw_cursor" ); - print F map { (!$O->{options}{$_} && '#') . qq( Option "$_"\n) } keys %{$O->{options} || {}}; - print G map { (!$O->{options}{$_} && '#') . qq( Option "$_"\n) } keys %{$O->{options} || {}}; + my $p = sub { + my ($l) = @_; + map { (!$l->{$_} && '#') . qq( Option "$_"\n) } keys %{$l || {}}; + }; + print F $p->('options'); + print F $p->('options_xf3'); + print G $p->('options'); + print G $p->('options_xf4'); print F "EndSection\n\n\n"; print G "EndSection\n\n\n"; |