diff options
Diffstat (limited to 'PerlQt/examples/aclock/aclock.pl')
-rw-r--r-- | PerlQt/examples/aclock/aclock.pl | 13 |
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; |