Sophie

Sophie

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

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

package Window;

use strict;
use warnings;
use QtCore4;
use QtGui4;
# [0]
use QtCore4::isa qw( Qt::Widget );
# [0]
use FlowLayout;

# [1]
sub NEW
{
    my ($class) = @_;
    $class->SUPER::NEW();
    my $flowLayout = FlowLayout();

    $flowLayout->addWidget(Qt::PushButton(this->tr('Short')));
    $flowLayout->addWidget(Qt::PushButton(this->tr('Longer')));
    $flowLayout->addWidget(Qt::PushButton(this->tr('Different text')));
    $flowLayout->addWidget(Qt::PushButton(this->tr('More text')));
    $flowLayout->addWidget(Qt::PushButton(this->tr('Even longer button text')));
    this->setLayout($flowLayout);

    this->setWindowTitle(this->tr('Flow Layout'));
}
# [1]

1;