summaryrefslogtreecommitdiffstats
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
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
-rw-r--r--perl-install/common.pm8
-rw-r--r--perl-install/my_gtk.pm5
2 files changed, 11 insertions, 2 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index 3dcacfb49..282112275 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -130,6 +130,14 @@ sub expand_symlinks_but_simple {
sub sync { &MDK::Common::System::sync }
+# Group the list by n. Returns a reference of lists of length n
+sub group_n_lm {
+ my $n = shift;
+ my @l;
+ push @l, [ splice(@_, 0, $n) ] while (@_);
+ @l
+}
+
#-######################################################################################
#- Wonderful perl :(
#-######################################################################################
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);