summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-04-18 14:38:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-04-18 14:38:41 +0000
commit55d44a1b5c6e4d2f45d365fe7680aa619c831506 (patch)
tree79acc6af53dc612896b99f3e218569c5ca9892f6 /perl-install/my_gtk.pm
parent9e8dbe6e3b60bfd65346d5fa6c11b4723599aebb (diff)
downloaddrakx-55d44a1b5c6e4d2f45d365fe7680aa619c831506.tar
drakx-55d44a1b5c6e4d2f45d365fe7680aa619c831506.tar.gz
drakx-55d44a1b5c6e4d2f45d365fe7680aa619c831506.tar.bz2
drakx-55d44a1b5c6e4d2f45d365fe7680aa619c831506.tar.xz
drakx-55d44a1b5c6e4d2f45d365fe7680aa619c831506.zip
no_comment
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 72dab6b11..65517c8a0 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -203,9 +203,10 @@ sub create_okcancel($;$$) {
sub create_box_with_title($@) {
my $o = shift;
- $o->{box} = (@_ <= 2 && (map { split "\n" } @_) > 6) ?
+ my $nb_lines = map { split "\n" } @_;
+ $o->{box} = (@_ <= 2 && $nb_lines > 3) ?
gtkpack(new Gtk::VBox(0,0),
- gtkset_usize(createScrolledWindow(gtktext_insert(new Gtk::Text, join "\n", @_)), 400, 250)) :
+ gtkset_usize(createScrolledWindow(gtktext_insert(new Gtk::Text, join "\n", @_)), 400, min(250, $nb_lines * 20))) :
gtkpack_(new Gtk::VBox(0,0),
(map {
my $w = ref $_ ? $_ : new Gtk::Label($_);