summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-11-26 16:35:31 +0000
committerdamien <damien@mandriva.com>2001-11-26 16:35:31 +0000
commitf919742bfe11cea0b208686404d6a211c96f5aa3 (patch)
tree8341915ee7719f686585d0432e58f34463564ab7 /perl-install/my_gtk.pm
parent00aa18f86ba5bfa5b242f9e14eead5f061afa27f (diff)
downloaddrakx-f919742bfe11cea0b208686404d6a211c96f5aa3.tar
drakx-f919742bfe11cea0b208686404d6a211c96f5aa3.tar.gz
drakx-f919742bfe11cea0b208686404d6a211c96f5aa3.tar.bz2
drakx-f919742bfe11cea0b208686404d6a211c96f5aa3.tar.xz
drakx-f919742bfe11cea0b208686404d6a211c96f5aa3.zip
new features for new mcc
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index acdbe9977..6c4f51b35 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -462,9 +462,10 @@ sub create_box_with_title($@) {
}
sub createScrolledWindow {
- my ($W) = @_;
+ my ($W, $policy) = @_;
my $w = new Gtk::ScrolledWindow(undef, undef);
- $w->set_policy('automatic', 'automatic');
+ $policy ||= [ 'automatic', 'automatic'];
+ $w->set_policy(@{$policy});
member(ref $W, qw(Gtk::CList Gtk::CTree Gtk::Text)) ?
$w->add($W) :
$w->add_with_viewport($W);