diff options
Diffstat (limited to 'perl-install/Xconfig/xfree3.pm')
-rw-r--r-- | perl-install/Xconfig/xfree3.pm | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/perl-install/Xconfig/xfree3.pm b/perl-install/Xconfig/xfree3.pm index afb890d91..139b07d97 100644 --- a/perl-install/Xconfig/xfree3.pm +++ b/perl-install/Xconfig/xfree3.pm @@ -84,16 +84,6 @@ sub set_wacoms { } sub depths { 8, 15, 16, 24, 32 } -sub set_resolution { - my ($raw_X, $resolution, $Screen) = @_; - - $resolution = +{ %$resolution }; - if (my $Screen_ = $Screen || $raw_X->get_default_screen) { - #- use framebuffer if Screen is - $resolution->{fbdev} = 1 if val($Screen_->{Driver}) eq 'fbdev'; - } - $raw_X->SUPER::set_resolution($resolution, $Screen); -} sub get_device_section_fields { qw(VendorName BoardName Chipset VideoRam); #-); @@ -111,6 +101,14 @@ sub new_device_sections { @l; } +sub is_fbdev { + my ($raw_X, $Screen) = @_; + + my $Screen_ = $Screen || $raw_X->get_default_screen or return; + + val($Screen_->{Driver}) eq 'fbdev'; +} + sub set_Option {} |