1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
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;
|
