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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
package TetrixWindow;
use strict;
use warnings;
use blib;
use QtCore4;
use QtGui4;
use QtCore4::isa qw( Qt::Widget );
use TetrixBoard;
# [0]
# TetrixBoard *board;
# Qt::Label *nextPieceLabel;
# Qt::LCDNumber *scoreLcd;
# Qt::LCDNumber *levelLcd;
# Qt::LCDNumber *linesLcd;
# Qt::PushButton *startButton;
# Qt::PushButton *quitButton;
# Qt::PushButton *pauseButton;
# [0]
# [0]
sub NEW {
my( $class, $parent ) = @_;
$class->SUPER::NEW( $parent );
my $board = TetrixBoard();
this->{board} = $board;
# [0]
my $nextPieceLabel = Qt::Label();
this->{nextPieceLabel} = $nextPieceLabel;
$nextPieceLabel->setFrameStyle(Qt::Frame::Box() | Qt::Frame::Raised());
$nextPieceLabel->setAlignment(Qt::AlignCenter());
$board->setNextPieceLabel($nextPieceLabel);
# [1]
my $scoreLcd = Qt::LCDNumber(5);
this->{scoreLcd} = $scoreLcd;
$scoreLcd->setSegmentStyle(Qt::LCDNumber::Filled());
# [1]
my $levelLcd = Qt::LCDNumber(2);
this->{levelLcd} = $levelLcd;
$levelLcd->setSegmentStyle(Qt::LCDNumber::Filled());
my $linesLcd = Qt::LCDNumber(5);
this->{linesLcd} = $linesLcd;
$linesLcd->setSegmentStyle(Qt::LCDNumber::Filled());
# [2]
my $startButton = Qt::PushButton(this->tr('&Start'));
this->{startButton} = $startButton;
$startButton->setFocusPolicy(Qt::NoFocus());
my $quitButton = Qt::PushButton(this->tr('&Quit'));
this->{quitButton} = $quitButton;
$quitButton->setFocusPolicy(Qt::NoFocus());
my $pauseButton = Qt::PushButton(this->tr('&Pause'));
this->{pauseButton} = $pauseButton;
# [2] //! [3]
$pauseButton->setFocusPolicy(Qt::NoFocus());
# [3] //! [4]
this->connect($startButton, SIGNAL 'clicked()', $board, SLOT 'start()');
# [4] //! [5]
this->connect($quitButton , SIGNAL 'clicked()', qApp, SLOT 'quit()');
this->connect($pauseButton, SIGNAL 'clicked()', $board, SLOT 'pause()');
this->connect($board, SIGNAL 'scoreChanged(int)', $scoreLcd, SLOT 'display(int)');
this->connect($board, SIGNAL 'levelChanged(int)', $levelLcd, SLOT 'display(int)');
this->connect($board, SIGNAL 'linesRemovedChanged(int)',
$linesLcd, SLOT 'display(int)');
# [5]
# [6]
my $layout = Qt::GridLayout();
$layout->addWidget(createLabel(this->tr('NEXT')), 0, 0);
$layout->addWidget($nextPieceLabel, 1, 0);
$layout->addWidget(createLabel(this->tr('LEVEL')), 2, 0);
$layout->addWidget($levelLcd, 3, 0);
$layout->addWidget($startButton, 4, 0);
$layout->addWidget($board, 0, 1, 6, 1);
$layout->addWidget(createLabel(this->tr('SCORE')), 0, 2);
$layout->addWidget($scoreLcd, 1, 2);
$layout->addWidget(createLabel(this->tr('LINES REMOVED')), 2, 2);
$layout->addWidget($linesLcd, 3, 2);
$layout->addWidget($quitButton, 4, 2);
$layout->addWidget($pauseButton, 5, 2);
this->setLayout($layout);
this->setWindowTitle(this->tr('Tetrix'));
this->resize(550, 370);
}
# [6]
# [7]
sub createLabel {
my ( $text ) = @_;
my $lbl = Qt::Label($text);
$lbl->setAlignment(Qt::AlignHCenter() | Qt::AlignBottom());
return $lbl;
}
# [7]
1;
|
