From 4e997a9c6e25689dca65a2ec573a599699ef8170 Mon Sep 17 00:00:00 2001
From: Timothy Pearson <kb9vqf@pearsoncomputing.net>
Date: Sun, 1 Jan 2012 18:24:37 -0600
Subject: Initial TQt conversion

---
 PerlQt/tutorials/t2/t2.pl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'PerlQt/tutorials/t2')

diff --git a/PerlQt/tutorials/t2/t2.pl b/PerlQt/tutorials/t2/t2.pl
index 970ccb4..c7b76e4 100644
--- a/PerlQt/tutorials/t2/t2.pl
+++ b/PerlQt/tutorials/t2/t2.pl
@@ -1,15 +1,15 @@
 #!/usr/bin/perl -w
 use strict;
 use blib;
-use Qt;
+use TQt;
 
-my $a = Qt::Application(\@ARGV);
+my $a = TQt::Application(\@ARGV);
 
-my $quit = Qt::PushButton("Quit", undef);
+my $quit = TQt::PushButton("Quit", undef);
 $quit->resize(75, 30);
-$quit->setFont(Qt::Font("Times", 18, &Qt::Font::Bold));
+$quit->setFont(TQt::Font("Times", 18, &TQt::Font::Bold));
 
-$a->connect($quit, SIGNAL('clicked()'), SLOT('quit()'));
+$a->connect($quit, TQT_SIGNAL('clicked()'), TQT_SLOT('quit()'));
 
 $a->setMainWidget($quit);
 $quit->show;
-- 
cgit v1.2.3