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/t3/t3.pl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'PerlQt/tutorials/t3')

diff --git a/PerlQt/tutorials/t3/t3.pl b/PerlQt/tutorials/t3/t3.pl
index bdd27fd..24fcdf0 100644
--- a/PerlQt/tutorials/t3/t3.pl
+++ b/PerlQt/tutorials/t3/t3.pl
@@ -1,17 +1,17 @@
 #!/usr/bin/perl -w
 use strict;
 use blib;
-use Qt;
+use TQt;
 
-my $a = Qt::Application(\@ARGV);
+my $a = TQt::Application(\@ARGV);
 
-my $box = Qt::VBox;
+my $box = TQt::VBox;
 $box->resize(200, 120);
 
-my $quit = Qt::PushButton("Quit", $box);
-$quit->setFont(Qt::Font("Times", 18, &Qt::Font::Bold));
+my $quit = TQt::PushButton("Quit", $box);
+$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($box);
 $box->show;
-- 
cgit v1.2.3