From d4c6ac5efaa281abef534fd4e814c4ded7a78d79 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 18 Mar 2008 19:12:40 +0000
Subject: - handle position for paned widgets (needed for rpmdrake, #38762)

---
 perl-install/NEWS      | 2 ++
 perl-install/mygtk2.pm | 1 +
 2 files changed, 3 insertions(+)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 44c5f4c63..edf24ae20 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+- handle position for paned widgets (needed for rpmdrake, #38762)
+
 Version 10.15 - 18 March 2008
 
 - adduserdrake:
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index f78347977..437112054 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -767,6 +767,7 @@ sub _gtk_any_Paned {
     if (!$w) {
 	$w = "Gtk2::$class"->new;
 	$w->set_border_width(delete $opts->{border_width}) if exists $opts->{border_width};
+        $w->set_position(delete $opts->{position}) if exists $opts->{position};
     } elsif ($action eq 'gtkset') {
 	$_->destroy foreach $w->get_children;
     }
-- 
cgit v1.2.1