diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-06 16:59:55 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 23:28:14 +0100 |
| commit | 71934d61b0508dc9abd16a29f8820d9aa317149d (patch) | |
| tree | 0e994b41f0934dfa81660daef96181d3dafc1e46 /perl-install/install | |
| parent | 453c92141b25585059d7d8d7925dbe880ab26c30 (diff) | |
| download | drakx-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/install')
| -rw-r--r-- | perl-install/install/gtk.pm | 2 |
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); |