summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-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);