Users have been asking for a print option. I saw Gtk2::PrintOperation,
but precious little help on how to use it. I translated the GUADEC2006
tutorial:
my $op = Gtk2::PrintOperation->new;
$op->set_print_settings($print_settings)
if (defined $print_settings);
$op->set_n_pages(1);
$op->set_unit('mm');
$op->signal_connect( draw_page => sub {
my ($op, $context) = @_;
my $cr = $context->get_cairo_context;
# Draw a red rectangle, as wide as the paper (inside the margins)
$cr->set_source_rgb( 1.0, 0, 0 );
$cr->rectangle(0, 0, $context->get_width, 50);
$cr->fill;
# Draw path
$cr->set_source_rgb( 0, 0, 0 );
$cr->move_to( 90, 75 );
$cr->line_to( 60, 80 );
$cr->curve_to( 40, 70, 65, 65, 70, 60 );
$cr->set_line_join( 'round' );
$cr->set_line_width( 5 );
$cr->stroke;
} );
This works. However, try as I might, I am unable to put a bitmap of
any sort on the $cr. This is my (non-working) code. Any tips (maybe
the scaling?) welcome:
my $op = Gtk2::PrintOperation->new;
$op->set_print_settings($print_settings)
if (defined $print_settings);
$op->set_n_pages(1);
$op->set_unit('mm');
$op->signal_connect( draw_page => sub {
my ($op, $context) = @_;
my $cr = $context->get_cairo_context;
my $surface = Cairo::ImageSurface->create_from_png('my.png');
$cr->set_source_surface( $surface, 0, 0 );
} );
Regards
Jeff
_______________________________________________
gtk-perl-list mailing list
gtk-perl-list@gnome.org
http://mail.gnome.org/mailman/listinfo/gtk-perl-list
