From 3af428310c36de7529b6742a305f56b57caa4d70 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 30 Aug 2013 16:21:47 +0200
Subject: use new mygtk3::root_window_size()

---
 perl-install/interactive/gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/interactive/gtk.pm')

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index f5016d2a7..1886cfd45 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -15,7 +15,7 @@ my $forgetTime = 1000; #- in milli-seconds
 
 sub new {
     my $w = &interactive::new;
-    ($w->{windowwidth}, $w->{windowheight}) = gtkroot()->get_size if !$::isInstall;
+    ($w->{windowwidth}, $w->{windowheight}) = mygtk3::root_window_size() if !$::isInstall;
     $w;
 }
 sub enter_console { my ($o) = @_; $o->{suspended} = common::setVirtual(1) }
-- 
cgit v1.2.1