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

(limited to 'PerlQt/tutorials/t4')

diff --git a/PerlQt/tutorials/t4/t4.pl b/PerlQt/tutorials/t4/t4.pl
index 889a96a..b4b0b1e 100644
--- a/PerlQt/tutorials/t4/t4.pl
+++ b/PerlQt/tutorials/t4/t4.pl
@@ -3,8 +3,8 @@ use strict;
 use blib;
 
 package MyWidget;
-use Qt;
-use Qt::isa qw(Qt::Widget);
+use TQt;
+use TQt::isa qw(TQt::Widget);
 
 sub NEW {
     shift->SUPER::NEW(@_);
@@ -12,17 +12,17 @@ sub NEW {
     setMinimumSize(200, 120);
     setMaximumSize(200, 120);
 
-    my $quit = Qt::PushButton("Quit", this, "quit");
+    my $quit = TQt::PushButton("Quit", this, "quit");
     $quit->setGeometry(62, 40, 75, 30);
-    $quit->setFont(Qt::Font("Times", 18, &Qt::Font::Bold));
+    $quit->setFont(TQt::Font("Times", 18, &TQt::Font::Bold));
 
-    Qt::app->connect($quit, SIGNAL('clicked()'), SLOT('quit()'));
+    TQt::app->connect($quit, TQT_SIGNAL('clicked()'), TQT_SLOT('quit()'));
 }
 
 package main;
 use MyWidget;
 
-my $a = Qt::Application(\@ARGV);
+my $a = TQt::Application(\@ARGV);
 
 my $w = MyWidget;
 $w->setGeometry(100, 100, 200, 120);
-- 
cgit v1.2.3