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
|
#!/usr/bin/perl
use strict;
use warnings;
use Qt4;
use Car;
use CarAdaptor;
sub main
{
my $app = Qt4::Application(\@ARGV);
my $scene = Qt4::GraphicsScene();
$scene->setSceneRect(-500, -500, 1000, 1000);
$scene->setItemIndexMethod(Qt4::GraphicsScene::NoIndex());
my $car = Car();
$scene->addItem($car);
my $view = Qt4::GraphicsView($scene);
$view->setRenderHint(Qt4::Painter::Antialiasing());
$view->setBackgroundBrush(Qt4::Brush(Qt4::darkGray()));
$view->setWindowTitle(qApp->translate('Qt4::GraphicsView', 'Qt DBus Controlled Car'));
$view->resize(400, 300);
$view->show();
my $adaptorParent = Qt4::Object();
my $adaptor = CarAdaptor($adaptorParent, $car);
my $connection = Qt4::DBusConnection::sessionBus();
$connection->registerObject('/Car', $adaptorParent);
$connection->registerService('com.trolltech.CarExample');
return $app->exec();
}
exit main();
|
