From e5d2e80a09845619e90d736ac9c0f5fb3665574d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 1 Aug 2012 18:56:16 +0200
Subject: perlish ->window => ->get_window

---
 perl-install/standalone/draksec | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/standalone/draksec')

diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index c65e69a76..cda3a8705 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -69,7 +69,7 @@ sub wait_msg {
     my $mainw = ugtk3->new(N("Please wait"), (modal => 1, transient => $w->{real_window}));
     $mainw->{window}->add(gtknew('WrappedLabel', text => $_[0]));
     $mainw->{rwindow}->show_all;
-    gtkset_mousecursor_wait($mainw->{rwindow}->window);
+    gtkset_mousecursor_wait($mainw->{rwindow}->get_window);
     # ugly workaround for gtk+ not displaying subdialog contents:
     Glib::Timeout->add(300, sub { Gtk3->main_quit; 0 });
     Gtk3->main;
-- 
cgit v1.2.1