Sophie

Sophie

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

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

package SearchBox;

use strict;
use warnings;
use QtCore4;
use QtGui4;
use QtCore4::isa qw( Qt::LineEdit );
use QtCore4::slots
    doSearch => [];

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

use GSuggestCompletion;

use constant GSEARCH_URL => 'http://www.google.com/search?q=%s';

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

    this->connect(this, SIGNAL 'returnPressed()', SLOT 'doSearch()');

    this->setWindowTitle('Search with Google');

    this->adjustSize();
    this->resize(400, this->height());
    this->setFocus();
}

sub doSearch
{
    this->completer->preventSuggest();
    my $url = sprintf GSEARCH_URL, this->text();
    Qt::DesktopServices::openUrl(Qt::Url($url));
}

1;