Qt

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

push @args, "-DCUSTOM_PERL_SITE_ARCH_DIR=$sitearch" if $sitearch;
push @args, @cmakeArgs;

if ( eval "require Alien::SmokeQt" ) {
    push @args, "-DSmoke_DIR=".Alien::SmokeQt->prefix()."/share/smoke/cmake";
    push @args, "-DCMAKE_MODULE_PATH=".Alien::SmokeQt->prefix()."/share/smoke/cmake";
}

# Make sure we have a cmake executable
my $cmake;
foreach my $path ( split m/:/, $ENV{PATH} ) {
    if ( -e "$path/cmake" ) {
        $cmake = "$path/cmake";
        last;
    }
}
if ( !$cmake ) {
    die 'You must have cmake installed to compile PerlQt4.';
}

exit system('cmake', @args);

qtgui/examples/network/network-chat/PeerManager.pm  view on Meta::CPAN

    $class->SUPER::NEW($client);
    this->{client} = $client;

    my @envVariables = qw( USERNAME.* USER.* USERDOMAIN.*
                 HOSTNAME.* DOMAINNAME.* );

    my $environment = Qt::Process::systemEnvironment();
    foreach my $string ( @envVariables ) {
        my $index = first_index{ $_ =~ m/$string/ } @{$environment};
        if ($index != -1) {
            my @stringList = split m/=/, $environment->[$index];
            if (scalar @stringList == 2) {
                utf8::decode($stringList[1]);
                this->{username} = Qt::ByteArray($stringList[1]);
                last;
            }
        }
    }

    if (!defined username()) {
        this->{username} = Qt::ByteArray('unknown');

qtgui/examples/network/network-chat/PeerManager.pm  view on Meta::CPAN

    while (broadcastSocket()->hasPendingDatagrams()) {
        my $senderIp = Qt::HostAddress();
        my $senderPort;
        my $datagram = '';
        my $datagramSize = broadcastSocket()->pendingDatagramSize();
        if (broadcastSocket()->readDatagram(\$datagram, $datagramSize,
                                         $senderIp, \$senderPort) == -1) {
            next;
        }

        my @list = split m/@/, $datagram;
        if (scalar @list != 2) {
            next;
        }

        my $senderServerPort = $list[1];
        if (isLocalHostAddress($senderIp) && $senderServerPort == serverPort()) {
            next;
        }

        if (!client->hasConnection($senderIp)) {

qtgui/examples/tools/settingseditor/VariantDelegate.pm  view on Meta::CPAN

    elsif ( $originalValue->type() == Qt::Variant::Rect() ) {
        rectExp->exactMatch($text);
        $value = Qt::Variant( Qt::Rect(rectExp->cap(1), rectExp->cap(2),
                      rectExp->cap(3), rectExp->cap(4)) );
    }
    elsif ( $originalValue->type() == Qt::Variant::Size() ) {
        sizeExp->exactMatch($text);
        $value = Qt::Variant( Qt::Size(sizeExp->cap(1), sizeExp->cap(2)) );
    }
    elsif ( $originalValue->type() == Qt::Variant::StringList() ) {
        $value = Qt::Variant( [split m/,/, $text] );
    }
    elsif ( $originalValue->type() == Qt::Variant::Time() ) {
        my $time = Qt::Time::fromString($text, Qt::ISODate());
        if (!$time->isValid()) {
            return;
        }
        $value = Qt::Variant( $time );
    }
    else {
        $value = Qt::Variant( Qt::String( $text ) );

qtgui/examples/tutorial/addressbook/part7/AddressBook.pm  view on Meta::CPAN

# [export function part1]
sub exportAsVCard
{
    my $name = this->{nameLine}->text();
    my $address = this->{addressText}->toPlainText();
    my $firstName;
    my $lastName;
    my @nameList;

    if ($name =~ m/ /) {
        @nameList = split m/\s+/, $name;
        $firstName = $nameList[0];
        $lastName = $nameList[-1];
    } else {
        $firstName = $name;
        $lastName = '';
    }

    my $fileName = Qt::FileDialog::getSaveFileName(this,
        this->tr('Export Contact'), '',
        this->tr('vCard Files (*.vcf);;All Files (*)'));