Re: Gtk2::PrintOperation

[Jeffrey Ratcliffe <jeffrey ratcliffe gmail com>]

On 5 August 2010 23:19, Mario Kemper <mario kemper googlemail com> wrote:
> This should work:

Thanks for the help. This line got me one step further:

  Gtk2::Gdk::Cairo::Context::set_source_pixbuf( $cr, $pixbuf, 0, 0 );

Why isn't set_source_pixbuf in Cairo::Context?

I was still getting a PDF where the image scaling was mostly such that
it was so far off the paper that nothing was visible. I found this,
though:

http://www.gtkforums.com/about6520.html

which works. My working callback:

 $op->signal_connect( draw_page => sub {
  my ($op, $context) = @_;
  my $cr = $context->get_cairo_context;

  # Context dimensions
  my $pwidth  = $context->get_width;
  my $pheight = $context->get_height;

  # Image dimensions
  my $pixbuf = Gtk2::Gdk::Pixbuf->new_from_file( $slist->{data}[0][2] );
  my $iwidth  = $pixbuf->get_width;
  my $iheight = $pixbuf->get_height;

  # Scale context to fit image
  my $scale = $pwidth / $iwidth;
  $scale = $pheight / $iheight if ( $pheight / $iheight < $scale );
  $cr->scale( $scale, $scale );

  # Set source pixbuf
  Gtk2::Gdk::Cairo::Context::set_source_pixbuf( $cr, $pixbuf, 0, 0 );

  # Paint
  $cr->paint;

  return;
 } );