From 16e641d378c67bcfa21758b981cd1072353c531a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 23 Mar 2012 20:50:54 +0000
Subject: help perl_checker

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

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 364bea2c9..65f07cc0d 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1310,7 +1310,7 @@ sub toggle_expansion {
 # compatible with Combo since its API is quite nice.
 
 package Gtk2::OptionMenu;
-use common;
+use MDK::Common;
 
 # try to get combox <==> option menu mapping
 sub set_popdown_strings {
@@ -1356,7 +1356,7 @@ sub set_text {
 
 
 package Gtk2::ComboBox;
-use common;
+use MDK::Common;
 
 # try to get combox <==> option menu mapping
 sub set_popdown_strings {
@@ -1516,7 +1516,7 @@ sub calc_size {
 sub GET_SIZE {
   my ($cell, $widget, $_cell_area) = @_;
 
-  my $layout = $cell->get_layout($widget);
+  my $layout = get_layout($cell, $widget);
   $layout->set_text($cell->get('label'));
 
   return calc_size($cell, $layout);
@@ -1540,7 +1540,7 @@ sub RENDER { # not that efficient...
       : 'normal';
   }
 
-  my $layout = $cell->get_layout($widget);
+  my $layout = get_layout($cell, $widget);
   $layout->set_text($cell->get('label'));
 
   my $is_rtl = lang::text_direction_rtl();
-- 
cgit v1.2.1