diff options
author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-07 16:56:16 +0100 |
---|---|---|
committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 21:30:34 +0100 |
commit | 24d07aa63eb77616a38ff178726d0f4a0908b7dc (patch) | |
tree | 4515b672c368248a956259800d6507c23d816e26 /lib/Xconfig/resolution_and_depth.pm | |
parent | c3e929c47cfbc38aae282eacbf757b14c7172590 (diff) | |
download | drakx-kbd-mouse-x11-24d07aa63eb77616a38ff178726d0f4a0908b7dc.tar drakx-kbd-mouse-x11-24d07aa63eb77616a38ff178726d0f4a0908b7dc.tar.gz drakx-kbd-mouse-x11-24d07aa63eb77616a38ff178726d0f4a0908b7dc.tar.bz2 drakx-kbd-mouse-x11-24d07aa63eb77616a38ff178726d0f4a0908b7dc.tar.xz drakx-kbd-mouse-x11-24d07aa63eb77616a38ff178726d0f4a0908b7dc.zip |
switch from gtk2 to gtk3
Diffstat (limited to 'lib/Xconfig/resolution_and_depth.pm')
-rw-r--r-- | lib/Xconfig/resolution_and_depth.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/Xconfig/resolution_and_depth.pm b/lib/Xconfig/resolution_and_depth.pm index 6b8ed66..06662ce 100644 --- a/lib/Xconfig/resolution_and_depth.pm +++ b/lib/Xconfig/resolution_and_depth.pm @@ -3,7 +3,7 @@ package Xconfig::resolution_and_depth; # $Id: resolution_and_depth.pm 250289 200 use diagnostics; use strict; # perl_checker: require MDK::Common -# perl_checker: require ugtk2 +# perl_checker: require ugtk3 use common; @@ -338,14 +338,14 @@ sub choose_gtk { #- $chosen_res must be one of @resolutions, so that it has a correct {ratio} field first($filter_on_res->(@resolutions)) || $resolutions[0]; - require ugtk2; - mygtk2->import; - ugtk2->import(qw(:create :helpers :wrappers)); - my $W = ugtk2->new(N("Resolution"), modal => 1); + require ugtk3; + mygtk3->import; + ugtk3->import(qw(:create :helpers :wrappers)); + my $W = ugtk3->new(N("Resolution"), modal => 1); my %monitor_images_x_res = do { my @l = qw(640 800 1024 1152 1280 1400 1600 1920 2048); - my %h = map { $_ => ugtk2::_find_imgfile("monitor-$_.png") } @l; + my %h = map { $_ => ugtk3::_find_imgfile("monitor-$_.png") } @l; #- for the other, use the biggest smaller foreach my $x_res (uniq map { $_->{X} } @resolutions) { |