#!/usr/bin/perl -w
sub
NEW {
shift
->SUPER::NEW(
@_
);
my
$lcd
= Qt::LCDNumber(2, this,
"lcd"
);
my
$slider
= Qt::Slider(
&Horizontal
, this,
"slider"
);
$slider
->setRange(0, 99);
$slider
->setValue(0);
$lcd
->
connect
(
$slider
, SIGNAL(
'valueChanged(int)'
), SLOT(
'display(int)'
));
}
sub
NEW {
shift
->SUPER::NEW(
@_
);
my
$quit
= Qt::PushButton(
"Quit"
, this,
"quit"
);
$quit
->setFont(Qt::Font(
"Times"
, 18,
&Qt::Font::Bold
));
Qt::app->
connect
(
$quit
, SIGNAL(
'clicked()'
), SLOT(
'quit()'
));
my
$grid
= Qt::Grid(4, this);
for
(0..3) {
for
(0..3) {
LCDRange(
$grid
);
}
}
}
my
$a
= Qt::Application(\
@ARGV
);
my
$w
= MyWidget;
$a
->setMainWidget(
$w
);
$w
->show;
exit
$a
->
exec
;