summaryrefslogtreecommitdiffstats
path: root/PerlQt/tutorials/t3/t3.pl
diff options
context:
space:
mode:
Diffstat (limited to 'PerlQt/tutorials/t3/t3.pl')
-rw-r--r--PerlQt/tutorials/t3/t3.pl19
1 files changed, 0 insertions, 19 deletions
diff --git a/PerlQt/tutorials/t3/t3.pl b/PerlQt/tutorials/t3/t3.pl
deleted file mode 100644
index 24fcdf0..0000000
--- a/PerlQt/tutorials/t3/t3.pl
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-use blib;
-use TQt;
-
-my $a = TQt::Application(\@ARGV);
-
-my $box = TQt::VBox;
-$box->resize(200, 120);
-
-my $quit = TQt::PushButton("Quit", $box);
-$quit->setFont(TQt::Font("Times", 18, &TQt::Font::Bold));
-
-$a->connect($quit, TQT_SIGNAL('clicked()'), TQT_SLOT('quit()'));
-
-$a->setMainWidget($box);
-$box->show;
-
-exit $a->exec;