diff options
| author | damien <damien@mandriva.com> | 2001-08-01 12:45:37 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-08-01 12:45:37 +0000 |
| commit | ba93a8ab114af155e96b9e731e5a60d20a55b65e (patch) | |
| tree | d083464f3c28342e255418131861c2af3a67ec1c /perl-install | |
| parent | 682577e9ac8e8cb22e10d4a5e43c3d3e1fe1370c (diff) | |
| download | drakx-backup-do-not-use-ba93a8ab114af155e96b9e731e5a60d20a55b65e.tar drakx-backup-do-not-use-ba93a8ab114af155e96b9e731e5a60d20a55b65e.tar.gz drakx-backup-do-not-use-ba93a8ab114af155e96b9e731e5a60d20a55b65e.tar.bz2 drakx-backup-do-not-use-ba93a8ab114af155e96b9e731e5a60d20a55b65e.tar.xz drakx-backup-do-not-use-ba93a8ab114af155e96b9e731e5a60d20a55b65e.zip | |
write_on_text writes in blue instead of black
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/my_gtk.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 08936e12f..e5021b48d 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -352,6 +352,9 @@ sub write_on_pixmap { my ($pixmap, $x_pos, $y_pos, @text)=@_; my ($gdkpixmap, $gdkmask) = $pixmap->get(); my ($width, $height) = (540, 250); #($pixmap->allocation->[2], $pixmap->allocation->[3]); + my $gc = Gtk::Gdk::GC->new(gtkroot()); + $gc->set_foreground(gtkcolor(8448, 17664, 40191)); #- in hex : 33, 69, 157 + my $darea= new Gtk::DrawingArea(); $darea->size($width, $height); $darea->set_usize($width, $height); @@ -362,10 +365,10 @@ sub write_on_pixmap { $style->font(Gtk::Gdk::Font->fontset_load(_("-adobe-times-bold-r-normal--17-*-100-100-p-*-iso8859-*,*-r-*"))); my $y_pos2= $y_pos; foreach (@text) { - $gdkpixmap->draw_string($style->font, $darea->style->black_gc, $x_pos, $y_pos2, $_); + $gdkpixmap->draw_string($style->font, $gc, $x_pos, $y_pos2, $_); $y_pos2 += 20; } - my $first_time=0; + $first_time=0; }; $darea->signal_connect(expose_event => sub { $first_time and &$draw(); $darea->window->draw_pixmap |