added write_on pixmap : a function to write text on pixma, using fonts.

1 files changed, 31 insertions, 2 deletions

diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 9a7327eb7..08936e12f 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -10,7 +10,7 @@ use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $border);
 @ISA = qw(Exporter);
 %EXPORT_TAGS = (
     helpers => [ qw(create_okcancel createScrolledWindow create_menu create_notebook create_packtable create_hbox create_vbox create_adjustment create_box_with_title create_treeitem) ],
-    wrappers => [ qw(gtksignal_connect gtkradio gtkpack gtkpack_ gtkpack__ gtkpack2 gtkpack3 gtkpack2_ gtkpack2__ gtksetstyle gtkset_tip gtkappenditems gtkappend gtkset_shadow_type gtkset_layout gtkadd gtkput gtktext_insert gtkset_usize gtksize gtkset_justify gtkset_active gtkset_modal gtkset_border_width gtkmove gtkshow gtkhide gtkdestroy gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_background gtkset_default_fontset gtkctree_children gtkxpm gtkpng gtkcreate_xpm gtkcreate_png) ],
+    wrappers => [ qw(gtksignal_connect gtkradio gtkpack gtkpack_ gtkpack__ gtkpack2 gtkpack3 gtkpack2_ gtkpack2__ gtksetstyle gtkset_tip gtkappenditems gtkappend gtkset_shadow_type gtkset_layout gtkadd gtkput gtktext_insert gtkset_usize gtksize gtkset_justify gtkset_active gtkset_modal gtkset_border_width gtkmove gtkshow gtkhide gtkdestroy gtkset_mousecursor gtkset_mousecursor_normal gtkset_mousecursor_wait gtkset_background gtkset_default_fontset gtkctree_children gtkxpm gtkpng write_on_pixmap gtkcreate_xpm gtkcreate_png) ],
     ask => [ qw(ask_warn ask_okcancel ask_yesorno ask_from_entry ask_file) ],
 );
 $EXPORT_TAGS{all} = [ map { @$_ } values %EXPORT_TAGS ];
@@ -51,7 +51,7 @@ sub new {
 	-r $rc or $rc = dirname(__FILE__) . "/wizard.rc";
 	Gtk::Rc->parse($rc);
 	$o->{window} = new Gtk::VBox(0,0);
-	$o->{window}->set_border_width(10);
+	$o->{window}->set_border_width($::Wizard_splash ? 0 : 10);
 	$o->{rwindow} = $o->{window};
 	if (!defined($::WizardWindow)) {
 	    $::WizardWindow = new Gtk::Window;
@@ -348,6 +348,35 @@ sub gtkcreate_png {
 sub xpm_d { my $w = shift; Gtk::Gdk::Pixmap->create_from_xpm_d($w->window, undef, @_) }
 sub gtkxpm { new Gtk::Pixmap(gtkcreate_xpm(@_)) }
 sub gtkpng { new Gtk::Pixmap(gtkcreate_png(@_)) }
+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 $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, $darea->style->black_gc, $x_pos, $y_pos2, $_);
+  	    $y_pos2 += 20;
+  	}
+	my $first_time=0;
+    };
+    $darea->signal_connect(expose_event => sub { $first_time and &$draw();
+						 $darea->window->draw_pixmap
+						   ($darea->style->white_gc,
+						    $gdkpixmap, 0, 0,
+						    ($darea->allocation->[2]-$width)/2, ($darea->allocation->[3]-$height)/2,
+						    $width, $height);
+					     });
+    $darea;
+}
+
 #-###############################################################################
 #- createXXX functions