1 files changed, 31 insertions, 31 deletions

diff --git a/PerlQt/t/g_gui.t b/PerlQt/t/g_gui.t
index b47c0c0..f3a7d05 100644
--- a/PerlQt/t/g_gui.t
+++ b/PerlQt/t/g_gui.t
@@ -3,11 +3,11 @@ BEGIN { print "1..1\n" }
 
 package ButtonsGroups;
 use strict;
-use Qt;
-use Qt::isa qw(Qt::Widget);
-use Qt::slots
+use TQt;
+use TQt::isa qw(TQt::Widget);
+use TQt::slots
 	slotChangeGrp3State => [];
-use Qt::attributes qw(
+use TQt::attributes qw(
 	state
 	rb21
 	rb22
@@ -24,65 +24,65 @@ sub NEW {
     shift->SUPER::NEW(@_);
 
     # Create Widgets which allow easy layouting
-    my $vbox = Qt::VBoxLayout(this);
-    my $box1 = Qt::HBoxLayout($vbox);
-    my $box2 = Qt::HBoxLayout($vbox);
+    my $vbox = TQt::VBoxLayout(this);
+    my $box1 = TQt::HBoxLayout($vbox);
+    my $box2 = TQt::HBoxLayout($vbox);
 
     # ------- first group
 
     # Create an exclusive button group
-    my $bgrp1 = Qt::ButtonGroup(1, &Horizontal, "Button Group &1 (exclusive)", this);
+    my $bgrp1 = TQt::ButtonGroup(1, &Horizontal, "Button Group &1 (exclusive)", this);
     $box1->addWidget($bgrp1);
     $bgrp1->setExclusive(1);
 
     # insert 3 radiobuttons
-    Qt::RadioButton("R&adiobutton 2", $bgrp1);
-    Qt::RadioButton("Ra&diobutton 3", $bgrp1);
+    TQt::RadioButton("R&adiobutton 2", $bgrp1);
+    TQt::RadioButton("Ra&diobutton 3", $bgrp1);
 
     # ------- second group
 
     # Create a non-exclusive buttongroup
-    my $bgrp2 = Qt::ButtonGroup(1, &Horizontal, "Button Group &2 (non-exclusive)", this);
+    my $bgrp2 = TQt::ButtonGroup(1, &Horizontal, "Button Group &2 (non-exclusive)", this);
     $box1->addWidget($bgrp2);
     $bgrp2->setExclusive(0);
 
     # insert 3 checkboxes
-    Qt::CheckBox("&Checkbox 1", $bgrp2);
-    my $cb12 = Qt::CheckBox("C&heckbox 2", $bgrp2);
+    TQt::CheckBox("&Checkbox 1", $bgrp2);
+    my $cb12 = TQt::CheckBox("C&heckbox 2", $bgrp2);
     $cb12->setChecked(1);
-    my $cb13 = Qt::CheckBox("Triple &State Button", $bgrp2);
+    my $cb13 = TQt::CheckBox("Triple &State Button", $bgrp2);
     $cb13->setTristate(1);
     $cb13->setChecked(1);
 
     # ----------- third group
 
     # create a buttongroup which is exclusive for radiobuttons and non-exclusive for all other buttons
-    my $bgrp3 = Qt::ButtonGroup(1, &Horizontal, "Button Group &3 (Radiobutton-exclusive)", this);
+    my $bgrp3 = TQt::ButtonGroup(1, &Horizontal, "Button Group &3 (Radiobutton-exclusive)", this);
     $box2->addWidget($bgrp3);
     $bgrp3->setRadioButtonExclusive(1);
 
     # insert three radiobuttons
-    rb21 = Qt::RadioButton("Rad&iobutton 1", $bgrp3);
-    rb22 = Qt::RadioButton("Radi&obutton 2", $bgrp3);
-    rb23 = Qt::RadioButton("Radio&button 3", $bgrp3);
+    rb21 = TQt::RadioButton("Rad&iobutton 1", $bgrp3);
+    rb22 = TQt::RadioButton("Radi&obutton 2", $bgrp3);
+    rb23 = TQt::RadioButton("Radio&button 3", $bgrp3);
     rb23->setChecked(1);
 
     # insert a checkbox
-    state = Qt::CheckBox("E&nable Radiobuttons", $bgrp3);
+    state = TQt::CheckBox("E&nable Radiobuttons", $bgrp3);
     state->setChecked(1);
-    # ...and connect its SIGNAL clicked() with the SLOT slotChangeGrp3State()
-    this->connect(state, SIGNAL('clicked()'), SLOT('slotChangeGrp3State()'));
+    # ...and connect its TQT_SIGNAL clicked() with the TQT_SLOT slotChangeGrp3State()
+    this->connect(state, TQT_SIGNAL('clicked()'), TQT_SLOT('slotChangeGrp3State()'));
 
     # ----------- fourth group
 
     # create a groupbox which layouts its childs in a columns
-    my $bgrp4 = Qt::ButtonGroup(1, &Horizontal, "Groupbox with &normal buttons", this);
+    my $bgrp4 = TQt::ButtonGroup(1, &Horizontal, "Groupbox with &normal buttons", this);
     $box2->addWidget($bgrp4);
 
     # insert three pushbuttons...
-    Qt::PushButton("&Push Button", $bgrp4);
-    my $tb2 = Qt::PushButton("&Toggle Button", $bgrp4);
-    my $tb3 = Qt::PushButton("&Flat Button", $bgrp4);
+    TQt::PushButton("&Push Button", $bgrp4);
+    my $tb2 = TQt::PushButton("&Toggle Button", $bgrp4);
+    my $tb3 = TQt::PushButton("&Flat Button", $bgrp4);
 
     # ... and make the second one a toggle button
     $tb2->setToggleButton(1);
@@ -93,7 +93,7 @@ sub NEW {
 }
 
 #
-# SLOT slotChangeGrp3State()
+# TQT_SLOT slotChangeGrp3State()
 #
 # enables/disables the radiobuttons of the third buttongroup
 #
@@ -108,20 +108,20 @@ sub slotChangeGrp3State {
 
 package main;
 
-use Qt;
+use TQt;
 use ButtonsGroups;
 
-Qt::StyleFactory::keys(); # disable style plugins (hacky)
+TQt::StyleFactory::keys(); # disable style plugins (hacky)
 
-my $a = Qt::Application(\@ARGV);
+my $a = TQt::Application(\@ARGV);
 
 my $buttonsgroups = ButtonsGroups;
 $buttonsgroups->resize(500, 250);
-$buttonsgroups->setCaption("PerlQt Test - Please wait");
+$buttonsgroups->setCaption("PerlTQt Test - Please wait");
 $a->setMainWidget($buttonsgroups);
 $buttonsgroups->show;
 
-Qt::Timer::singleShot( 2000, Qt::app(), SLOT "quit()" );
+TQt::Timer::singleShot( 2000, TQt::app(), TQT_SLOT "quit()" );
 my $r = $a->exec;
 print +$r?"not ok\n" : "ok 1\n";
 exit $r;