summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-08-06 21:54:27 +0000
committerdamien <damien@mandriva.com>2001-08-06 21:54:27 +0000
commit717035c00560891bbb41c9364ea6be10a64fbe12 (patch)
tree649d4662eb85967bd19434d0d8300ef807db60c9 /perl-install/my_gtk.pm
parentb684ed467490ecc1eda1fdc3048e9dc6ab4a390f (diff)
downloaddrakx-717035c00560891bbb41c9364ea6be10a64fbe12.tar
drakx-717035c00560891bbb41c9364ea6be10a64fbe12.tar.gz
drakx-717035c00560891bbb41c9364ea6be10a64fbe12.tar.bz2
drakx-717035c00560891bbb41c9364ea6be10a64fbe12.tar.xz
drakx-717035c00560891bbb41c9364ea6be10a64fbe12.zip
debugging, profile coding, isdn 128 debugging
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 308f774c8..12e8de640 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -358,24 +358,24 @@ sub write_on_pixmap {
my $darea= new Gtk::DrawingArea();
$darea->size($width, $height);
$darea->set_usize($width, $height);
- my $first_time=1;
my $draw = sub {
my $style = new Gtk::Style;
#- i18n : you can change the font.
$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, $gc, $x_pos, $y_pos2, $_);
+ print " -- $_ --\n";
+ $darea->window->draw_string($style->font, $gc, $x_pos, $y_pos2, $_);
$y_pos2 += 20;
}
- $first_time=0;
};
- $darea->signal_connect(expose_event => sub { $first_time and &$draw();
+ $darea->signal_connect(expose_event => sub { $darea->window->draw_rectangle($darea->style->white_gc, 1, 0, 0, $width, $height);
$darea->window->draw_pixmap
($darea->style->white_gc,
$gdkpixmap, 0, 0,
($darea->allocation->[2]-$width)/2, ($darea->allocation->[3]-$height)/2,
$width, $height);
+ &$draw();
});
$darea;
}