diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-03-03 17:00:27 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-03-03 17:00:27 +0000 |
commit | bc52586d98e8e7bdccd77a1ea7e43ecc28a53e36 (patch) | |
tree | c8d13c165c7a16eba51c71840f785843804e54c4 /perl-install | |
parent | 2488276daf55f561f22f9bc526058e63f10ef580 (diff) | |
download | drakx-backup-do-not-use-bc52586d98e8e7bdccd77a1ea7e43ecc28a53e36.tar drakx-backup-do-not-use-bc52586d98e8e7bdccd77a1ea7e43ecc28a53e36.tar.gz drakx-backup-do-not-use-bc52586d98e8e7bdccd77a1ea7e43ecc28a53e36.tar.bz2 drakx-backup-do-not-use-bc52586d98e8e7bdccd77a1ea7e43ecc28a53e36.tar.xz drakx-backup-do-not-use-bc52586d98e8e7bdccd77a1ea7e43ecc28a53e36.zip |
(gtkicons_labels_widget): pass the style instead of directly passing the font
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/my_gtk.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 94c42f56e..da721b9af 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -504,7 +504,7 @@ sub fill_tiled { } sub gtkicons_labels_widget { - my ($args, $w, $color_text, $font, $background, $x_back, $y_back, $x_round, + my ($args, $w, $color_text, $style, $background, $x_back, $y_back, $x_round, $y_round, $x_back2, $y_back2, $icon_width, $icon_height, $exec_func, $exec_hash) = @_; my @tab; @@ -522,7 +522,7 @@ sub gtkicons_labels_widget { my ($dx, $dy) = ($darea->allocation->[2], $darea->allocation->[3]); if (!defined($dbl_area) || $darea->{state} != $dbl_area->{state}) { my $state = $darea->{state}; - my ($pix, $width, $height) = create_pix_text($darea, $label, $color_text, $font, $x_round, 1, + my ($pix, $width, $height) = create_pix_text($darea, $label, $color_text, $style->font, $x_round, 1, 1, 0, $background, $x_back2, $y_back2, 1, 0, $state); ($dx, $dy) = (max($width, $x_round), $y_round + $height); $darea->set_usize($dx, $dy); |