The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Prima::Drawable::Subcanvas - paint a hierarchy of widgets to any drawable

DESCRIPTION

Needed for painting a screenshot on an image, printer, etc. Adds two methods to the Prima::Drawable namespace: paint_with_widgets and screenshot.

SYNOPSIS

use Prima qw(Application Button);
my $w = Prima::MainWindow-> create;
$w->insert( 'Button' );
$w->screenshot->save('a.bmp');

METHODS

paint_with_widgets $canvas, $x=0, $y=0

Given a $canvas is in the paint mode, traverses all widgets as they are seen on the screen, and paints them on the canvas with given $x,$y offsets.

screenshot $canvas, %opt

Syntax sugar over the paint_with_widgets. Creates an image with the $self's, size, and calls paint_with_widgets with it. Returns the screenshot.

AUTHOR

David Mertens

SEE ALSO

examples/grip.pl