Sophie

Sophie

distrib > Mageia > 5 > i586 > media > core-release > by-pkgid > d38b97c69a3fd47b351add70f89a7ab5 > files > 714

perl-qt4-examples-4.14.3-1.mga5.noarch.rpm

package Window;

use strict;
use warnings;
use QtCore4;
use QtGui4;
use QtSvg4;
use Ui_Window;
use DisplayWidget;
# [Window class definition]
use QtCore4::isa qw( Qt::Widget );
use QtCore4::slots
    saveSvg => [],
    updateBackground => ['int'],
    updateColor => [],
    updateShape => ['int'];

sub path() {
    return this->{path};
}

sub ui() {
    return this->{ui};
}

sub displayWidget {
    return this->ui->{displayWidget};
}

# [Window class definition]

sub NEW
{
    my ($class, $parent) = @_;
    $class->SUPER::NEW($parent);
    this->{ui} = Ui_Window->setupUi(this);
}

sub updateBackground
{
    my ($background) = @_;
    this->displayWidget->setBackground($background);
}

sub updateColor
{
    my $color = Qt::ColorDialog::getColor(this->displayWidget->color());
    if ($color->isValid()) {
        this->displayWidget->setColor($color);
    }
}

sub updateShape
{
    my ($shape) = @_;
    this->displayWidget->setShape($shape);
}

# [save SVG]
sub saveSvg
{
    my $newPath = Qt::FileDialog::getSaveFileName(this, this->tr('Save SVG'),
        this->path, this->tr('SVG files (*.svg)'));

    if (!$newPath) {
        return;
    }

    this->{path} = $newPath;

#[configure SVG generator]
    my $generator = Qt::SvgGenerator();
    $generator->setFileName(this->path);
    $generator->setSize(Qt::Size(200, 200));
    $generator->setViewBox(Qt::Rect(0, 0, 200, 200));
    $generator->setTitle(this->tr('SVG Generator Example Drawing'));
    $generator->setDescription(this->tr('An SVG drawing created by the SVG Generator ' .
                                'Example provided with Qt4.'));
#[configure SVG generator]
#[begin painting]
    my $painter = Qt::Painter();
    $painter->begin($generator);
#[begin painting]
    this->displayWidget->paint($painter);
#[end painting]
    $painter->end();
#[end painting]
}
# [save SVG]

1;