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/t5/t5.pl | 34 ---------------------------------- 1 file changed, 34 deletions(-) delete mode 100644 PerlQt/tutorials/t5/t5.pl (limited to 'PerlQt/tutorials/t5') diff --git a/PerlQt/tutorials/t5/t5.pl b/PerlQt/tutorials/t5/t5.pl deleted file mode 100644 index 9990c3e..0000000 --- a/PerlQt/tutorials/t5/t5.pl +++ /dev/null @@ -1,34 +0,0 @@ -#!/usr/bin/perl -w -use strict; -use blib; - -package MyWidget; -use TQt; -use TQt::isa qw(TQt::VBox); - -sub NEW { - shift->SUPER::NEW(@_); - - my $quit = TQt::PushButton("Quit", this, "quit"); - $quit->setFont(TQt::Font("Times", 18, &TQt::Font::Bold)); - - TQt::app->connect($quit, TQT_SIGNAL('clicked()'), TQT_SLOT('quit()')); - - my $lcd = TQt::LCDNumber(2, this, "lcd"); - - my $slider = TQt::Slider(&Horizontal, this, "slider"); - $slider->setRange(0, 99); - $slider->setValue(0); - - $lcd->connect($slider, TQT_SIGNAL('valueChanged(int)'), TQT_SLOT('display(int)')); -} - -package main; -use MyWidget; - -my $a = TQt::Application(\@ARGV); - -my $w = MyWidget; -$a->setMainWidget($w); -$w->show; -exit $a->exec; -- cgit v1.2.3