diff options
| author | damien <damien@mandriva.com> | 2001-11-26 16:35:31 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-11-26 16:35:31 +0000 |
| commit | f919742bfe11cea0b208686404d6a211c96f5aa3 (patch) | |
| tree | 8341915ee7719f686585d0432e58f34463564ab7 /perl-install/my_gtk.pm | |
| parent | 00aa18f86ba5bfa5b242f9e14eead5f061afa27f (diff) | |
| download | drakx-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.pm | 5 |
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); |