diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-09-09 11:57:18 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-09-09 11:57:18 +0000 |
| commit | c934605fb16b642d5952ebcc7be687f38b2dd104 (patch) | |
| tree | 91b150c2024dab77ab6034f5fd2004a370c542cc /perl-install/standalone | |
| parent | 5330d54014996ccfb3333b9f06e62e80500ee71c (diff) | |
| download | drakx-backup-do-not-use-c934605fb16b642d5952ebcc7be687f38b2dd104.tar drakx-backup-do-not-use-c934605fb16b642d5952ebcc7be687f38b2dd104.tar.gz drakx-backup-do-not-use-c934605fb16b642d5952ebcc7be687f38b2dd104.tar.bz2 drakx-backup-do-not-use-c934605fb16b642d5952ebcc7be687f38b2dd104.tar.xz drakx-backup-do-not-use-c934605fb16b642d5952ebcc7be687f38b2dd104.zip | |
fix adjustments creation (#18295)
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/draksplash | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash index f9d830aaa..3f3ed2957 100755 --- a/perl-install/standalone/draksplash +++ b/perl-install/standalone/draksplash @@ -44,7 +44,6 @@ my %scale_settings = ( my %adj; create_adj_widgets(); -create_simple_adj_widgets(); my %theme; set_theme('new_theme'); @@ -199,22 +198,18 @@ sub choose_color() { } -#- Adjustement widgets sub create_adj_widgets() { $adj{$_} = Gtk2::Adjustment->new(0, 0, 0, 1, 10, 0) foreach keys %scale_settings; - my %scale_links = (tb_x => 'tb_w', tb_y => 'tb_h', px => 'pw', py => 'ph', text_x => 'px', text_y => 'py', transp => 'transp', ptransp => 'ptransp', text_size => 'text_size' ); + my %scale_links = (tb_x => 'tb_w', tb_y => 'tb_h', px => 'pw', py => 'ph', text_x => 'px', text_y => 'py'); while (my ($n1, $n2) = each(%scale_links)) { $adj{$n1}{on_change} = $adj{$n1}->signal_connect(value_changed => sub { check_scale_value($n1, $n2); apply_scale($n1) }); $adj{$n2}{on_change} = $adj{$n2}->signal_connect(value_changed => sub { check_scale_value($n2, $n1); apply_scale($n2) }); } -} - -sub create_simple_adj_widgets() { - $adj{$_} = Gtk2::Adjustment->new(0, 0, 0, 1, 10, 0) foreach keys %scale_settings; - foreach my $n ('transp','ptransp', 'text_size') { + foreach my $n (qw(transp ptransp text_size)) { $adj{$n}{on_change} = $adj{$n}->signal_connect(value_changed => sub { apply_scale($n) }); } } + sub create_scale_table { my @settings = @_; create_packtable({ col_spacings => 10, row_spacings => 5 }, map { |