]> www.fi.muni.cz Git - slotcarman.git/blob - gui.pl
8a00f244e431475dde98e9fe407c90da46ee1b4f
[slotcarman.git] / gui.pl
1 #!/usr/bin/perl -w
2
3 use strict;
4 use utf8;
5
6 use Gtk2 '-init';
7 use Glib qw(TRUE FALSE);
8
9 use SCX::GUI;
10 use SCX::Track;
11 use SCX::Reader;
12
13 my $no_reader = 0;
14
15 my $gui = SCX::GUI->new;
16 my $track = SCX::Track->new({ gui => $gui });
17
18 if (!$no_reader) {
19         my $reader = SCX::Reader->new({
20                 portname   => '/dev/ttyUSB0',
21                 logfile    => 'log',
22                 track      => $track,
23         });
24
25         Glib::IO->add_watch(fileno($reader->fh), 'in', \&scx_read, $reader);
26 }
27
28 $gui->show;
29
30 Gtk2->main();
31
32 exit 0;
33
34 sub quit {
35         Gtk2->main_quit;
36         return FALSE;
37 }
38
39 sub scx_read {
40         my ($event, $fh, $reader) = @_;
41
42         $reader->read();
43         return TRUE;
44 }
45