From 044f268d6f6a2478865219900670370a00b4c58c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 27 Aug 2008 17:47:00 +0000
Subject: (get_label_width) introduce it in order to workaround infamous 6
 years old gnome bug #101968

---
 perl-install/mygtk2.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index d411fc2a2..ccd22522e 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -1198,6 +1198,10 @@ sub _allow_scroll_TextView_to_bottom {
     };
 }
 
+sub get_label_width() {
+    first(mygtk2::get_main_window_size()) - 50;
+}
+
 sub set_main_window_size {
     my ($window) = @_;
     my ($width, $height) = $::real_windowwidth ? ($::real_windowwidth, $::real_windowheight) : $::isWizard ? (540, 360) : (600, 400);
-- 
cgit v1.2.1