summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-03-03 20:52:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-03-03 20:52:41 +0000
commit9477387f636496a61b64c25b7a37a177ff9186a8 (patch)
treebc5d75d82f35bee28bdb2115679f29e42fd7d0d6 /perl-install/my_gtk.pm
parent1554214e4157d6018d7201182111f0f16c8b8595 (diff)
downloaddrakx-9477387f636496a61b64c25b7a37a177ff9186a8.tar
drakx-9477387f636496a61b64c25b7a37a177ff9186a8.tar.gz
drakx-9477387f636496a61b64c25b7a37a177ff9186a8.tar.bz2
drakx-9477387f636496a61b64c25b7a37a177ff9186a8.tar.xz
drakx-9477387f636496a61b64c25b7a37a177ff9186a8.zip
(gtkicons_labels_widget): since style is not set either, use the widget and ask it the style->font. This *works*
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index da721b9af..75f80f476 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, $style, $background, $x_back, $y_back, $x_round,
+ my ($args, $w, $color_text, $widget_for_font, $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, $style->font, $x_round, 1,
+ my ($pix, $width, $height) = create_pix_text($darea, $label, $color_text, $widget_for_font->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);