summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-11-06 16:59:55 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 23:28:14 +0100
commit71934d61b0508dc9abd16a29f8820d9aa317149d (patch)
tree0e994b41f0934dfa81660daef96181d3dafc1e46 /perl-install
parent453c92141b25585059d7d8d7925dbe880ab26c30 (diff)
downloaddrakx-71934d61b0508dc9abd16a29f8820d9aa317149d.tar
drakx-71934d61b0508dc9abd16a29f8820d9aa317149d.tar.gz
drakx-71934d61b0508dc9abd16a29f8820d9aa317149d.tar.bz2
drakx-71934d61b0508dc9abd16a29f8820d9aa317149d.tar.xz
drakx-71934d61b0508dc9abd16a29f8820d9aa317149d.zip
(init_sizes) fix retrieving screen size with Gtk3
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/gtk.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm
index ee0899b2e..ba16a56e1 100644
--- a/perl-install/install/gtk.pm
+++ b/perl-install/install/gtk.pm
@@ -208,7 +208,7 @@ q(<fontconfig>
#------------------------------------------------------------------------------
sub init_sizes {
my ($o) = @_;
- ($::rootwidth, $::rootheight) = (Gtk3::Gdk->screen_width, Gtk3::Gdk->screen_height);
+ ($::rootwidth, $::rootheight) = (Gtk3::Gdk::Screen::width, Gtk3::Gdk::Screen::height);
$::stepswidth = $::rootwidth <= 640 ? 0 : 196;
($::logowidth, $::logoheight) = $::rootwidth <= 640 ? (0, 0) : (800, 75);
($o->{windowwidth}, $o->{windowheight}) = ($::rootwidth - $::stepswidth, $::rootheight);