summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/NEWS2
-rw-r--r--perl-install/mygtk2.pm1
2 files changed, 3 insertions, 0 deletions
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;
}