summaryrefslogtreecommitdiffstats
path: root/PerlQt/examples/aclock/aclock.pl
diff options
context:
space:
mode:
Diffstat (limited to 'PerlQt/examples/aclock/aclock.pl')
-rw-r--r--PerlQt/examples/aclock/aclock.pl13
1 files changed, 0 insertions, 13 deletions
diff --git a/PerlQt/examples/aclock/aclock.pl b/PerlQt/examples/aclock/aclock.pl
deleted file mode 100644
index b4ae659..0000000
--- a/PerlQt/examples/aclock/aclock.pl
+++ /dev/null
@@ -1,13 +0,0 @@
-#!/usr/bin/perl -w
-use strict;
-use TQt;
-use AnalogClock;
-
-my $a = TQt::Application(\@ARGV);
-my $clock = AnalogClock;
-$clock->setAutoMask(1) if @ARGV and $ARGV[0] eq '-transparent';
-$clock->resize(100, 100);
-$a->setMainWidget($clock);
-$clock->setCaption("PerlTQt example - Analog Clock");
-$clock->show;
-exit $a->exec;