From 45338bd2f691b8fc61665daefd2bd30767bf742d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 30 Aug 2013 16:20:40 +0200
Subject: (root_window_size) introduce it

---
 perl-install/mygtk3.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'perl-install/mygtk3.pm')

diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm
index 6d75baec7..ccbd23e27 100644
--- a/perl-install/mygtk3.pm
+++ b/perl-install/mygtk3.pm
@@ -1491,6 +1491,12 @@ sub root_window() {
     $root ||= Gtk3::Gdk::get_default_root_window();
 }
 
+sub root_window_size() {
+    state $root;
+    $root ||= [Gtk3::Gdk::Screen::width, Gtk3::Gdk::Screen::height];
+    @$root;
+}
+
 sub rgb2color {
     my ($r, $g, $b) = @_;
     my $color = Gtk3::Gdk::Color->new($r, $g, $b);
-- 
cgit v1.2.1