From b5abe203ac1a7cabb419ad65cd0680d2f48767f3 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sun, 28 Sep 2008 21:24:17 +0000 Subject: (create_scale_table) better sizing --- perl-install/standalone/draksplash | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash index 9e5981afe..567581797 100755 --- a/perl-install/standalone/draksplash +++ b/perl-install/standalone/draksplash @@ -245,9 +245,9 @@ sub create_adj_widgets() { sub create_scale_table { my @settings = @_; gtknew('Table', col_spacings => 10, row_spacings => 5, children => [ map { - my $w = gtknew('HScale', adjustment => $adj{$_}); + my $w = gtknew('HScale', adjustment => $adj{$_}, width => 100); $w->set_digits(0); - [ gtknew('WrappedLabel', text => formatAlaTeX($scale_settings{$_}[1])), $w ]; + [ gtknew('WrappedLabel', width => ($global_width-200), text => formatAlaTeX($scale_settings{$_}[1])), $w ]; } @settings]); } -- cgit v1.2.1