From b2af005db21bd8fd068cb79b2ae700953128af2c Mon Sep 17 00:00:00 2001 From: Timothy Pearson Date: Sun, 1 Jan 2012 18:29:30 -0600 Subject: Move PerlQt --- PerlQt/tutorials/t7/LCDRange.pm | 29 ----------------------------- 1 file changed, 29 deletions(-) delete mode 100644 PerlQt/tutorials/t7/LCDRange.pm (limited to 'PerlQt/tutorials/t7/LCDRange.pm') diff --git a/PerlQt/tutorials/t7/LCDRange.pm b/PerlQt/tutorials/t7/LCDRange.pm deleted file mode 100644 index 9bc48cb..0000000 --- a/PerlQt/tutorials/t7/LCDRange.pm +++ /dev/null @@ -1,29 +0,0 @@ -package LCDRange; -use strict; -use TQt; -use TQt::isa qw(TQt::VBox); -use TQt::slots setValue => ['int']; -use TQt::signals valueChanged => ['int']; -use TQt::attributes qw(slider); - -sub NEW { - shift->SUPER::NEW(@_); - - my $lcd = TQt::LCDNumber(2, this, "lcd"); - - my $slider = TQt::Slider(&Horizontal, this, "slider"); - slider = $slider; - slider->setRange(0, 99); - slider->setValue(0); - $lcd->connect(slider, TQT_SIGNAL('valueChanged(int)'), TQT_SLOT('display(int)')); - this->connect(slider, TQT_SIGNAL('valueChanged(int)'), TQT_SIGNAL('valueChanged(int)')); -} - -sub value { slider->value } - -sub setValue { - my $value = shift; - slider->setValue($value); -} - -1; -- cgit v1.2.3