Initial TQt conversion

17 files changed, 318 insertions, 318 deletions

diff --git a/PerlQt/examples/aclock/AnalogClock.pm b/PerlQt/examples/aclock/AnalogClock.pm
index d4aeff9..0a52c44 100644
--- a/PerlQt/examples/aclock/AnalogClock.pm
+++ b/PerlQt/examples/aclock/AnalogClock.pm
@@ -1,24 +1,24 @@
 package AnalogClock;
-use Qt;
-use Qt::isa qw(Qt::Widget);
-use Qt::slots
-	setTime => ['const QTime&'],
-	drawClock => ['QPainter*'],
+use TQt;
+use TQt::isa qw(TQt::Widget);
+use TQt::slots
+	setTime => ['const TQTime&'],
+	drawClock => ['TQPainter*'],
 	timeout => [];
-use Qt::attributes qw(
+use TQt::attributes qw(
 	clickPos
 	_time
 );
 
 #
-# Constructs an analog clock widget that uses an internal QTimer
+# Constructs an analog clock widget that uses an internal TQTimer
 #
 
 sub NEW {
     shift->SUPER::NEW(@_);
-    _time = Qt::Time::currentTime();	  # get current time
-    my $internalTimer = Qt::Timer(this);  # create internal timer
-    this->connect($internalTimer, SIGNAL('timeout()'), SLOT('timeout()'));
+    _time = TQt::Time::currentTime();	  # get current time
+    my $internalTimer = TQt::Timer(this);  # create internal timer
+    this->connect($internalTimer, TQT_SIGNAL('timeout()'), TQT_SLOT('timeout()'));
     $internalTimer->start(5000);	  # emit signal every 5 seconds
 }
 
@@ -26,11 +26,11 @@ sub mousePressEvent {
     my $e = shift;
     if(isTopLevel()) {
 	# Lack of operators is really noticable here
-	my $topLeft = Qt::Point(
+	my $topLeft = TQt::Point(
 	    geometry()->topLeft->x - frameGeometry()->topLeft->x,
 	    geometry()->topLeft->y - frameGeometry()->topLeft->y
 	);
-	clickPos = Qt::Point($e->pos->x + $topLeft->x,
+	clickPos = TQt::Point($e->pos->x + $topLeft->x,
 			     $e->pos->y + $topLeft->y);
     }
 }
@@ -38,7 +38,7 @@ sub mousePressEvent {
 sub mouseMoveEvent {
     my $e = shift;
     if(isTopLevel()) {
-	move(Qt::Point($e->globalPos->x - clickPos->x,
+	move(TQt::Point($e->globalPos->x - clickPos->x,
 		       $e->globalPos->y - clickPos->y));
     }
 }
@@ -49,11 +49,11 @@ sub setTime {
 }
 
 #
-# The QTimer::timeout() signal is received by this slot.
+# The TQTimer::timeout() signal is received by this slot.
 #
 
 sub timeout {
-    my $new_time = Qt::Time::currentTime();	# get the current time
+    my $new_time = TQt::Time::currentTime();	# get the current time
     _time = _time->addSecs(5);
     if($new_time->minute != _time->minute) {	# minute has changed
 	if(autoMask()) {
@@ -66,7 +66,7 @@ sub timeout {
 
 sub paintEvent {
     return if autoMask();
-    my $paint = Qt::Painter(this);
+    my $paint = TQt::Painter(this);
     $paint->setBrush(colorGroup()->foreground);
     drawClock($paint);
 }
@@ -75,10 +75,10 @@ sub paintEvent {
 # instead of paintEvent()
 
 sub updateMask {			# paint clock mask
-    my $bm = Qt::Bitmap(size());
+    my $bm = TQt::Bitmap(size());
     $bm->fill(&color0);			# transparent
 
-    my $paint = Qt::Painter;
+    my $paint = TQt::Painter;
     $paint->begin($bm, this);
     $paint->setBrush(&color1);		# use non-transparent color
     $paint->setPen(&color1);
@@ -105,8 +105,8 @@ sub drawClock {
     $paint->setViewport($v->left + ($v->width-$d)/2,
 			$v->top - ($v->height-$d)/2, $d, $d);
 
-    # _time = Qt::Time::currentTime();
-    my $pts = Qt::PointArray();
+    # _time = TQt::Time::currentTime();
+    my $pts = TQt::PointArray();
 
     $paint->save;
     $paint->rotate(30*(_time->hour%12-3) + _time->minute/2);
@@ -131,7 +131,7 @@ sub drawClock {
 sub setAutoMask {
     my $b = shift;
     setBackgroundMode($b ? &PaletteForeground : &PaletteBackground);
-    Qt::Widget::setAutoMask($b);
+    TQt::Widget::setAutoMask($b);
 }
 
 1;
diff --git a/PerlQt/examples/aclock/aclock.pl b/PerlQt/examples/aclock/aclock.pl
index ff59ec1..b4ae659 100644
--- a/PerlQt/examples/aclock/aclock.pl
+++ b/PerlQt/examples/aclock/aclock.pl
@@ -1,13 +1,13 @@
 #!/usr/bin/perl -w
 use strict;
-use Qt;
+use TQt;
 use AnalogClock;
 
-my $a = Qt::Application(\@ARGV);
+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("PerlQt example - Analog Clock");
+$clock->setCaption("PerlTQt example - Analog Clock");
 $clock->show;
 exit $a->exec;
diff --git a/PerlQt/examples/buttongroups/ButtonsGroups.pm b/PerlQt/examples/buttongroups/ButtonsGroups.pm
index 0bb6c73..106cf1b 100644
--- a/PerlQt/examples/buttongroups/ButtonsGroups.pm
+++ b/PerlQt/examples/buttongroups/ButtonsGroups.pm
@@ -1,10 +1,10 @@
 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
@@ -21,65 +21,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);
@@ -90,7 +90,7 @@ sub NEW {
 }
 
 #
-# SLOT slotChangeGrp3State()
+# TQT_SLOT slotChangeGrp3State()
 #
 # enables/disables the radiobuttons of the third buttongroup
 #
diff --git a/PerlQt/examples/buttongroups/buttongroups.pl b/PerlQt/examples/buttongroups/buttongroups.pl
index 3fdf884..632ad43 100644
--- a/PerlQt/examples/buttongroups/buttongroups.pl
+++ b/PerlQt/examples/buttongroups/buttongroups.pl
@@ -1,13 +1,13 @@
 #!/usr/bin/perl -w
 use strict;
-use Qt;
+use TQt;
 use ButtonsGroups;
 
-my $a = Qt::Application(\@ARGV);
+my $a = TQt::Application(\@ARGV);
 
 my $buttonsgroups = ButtonsGroups;
 $buttonsgroups->resize(500, 250);
-$buttonsgroups->setCaption("PerlQt Example - Buttongroups");
+$buttonsgroups->setCaption("PerlTQt Example - Buttongroups");
 $a->setMainWidget($buttonsgroups);
 $buttonsgroups->show;
 exit $a->exec;
diff --git a/PerlQt/examples/dclock/DigitalClock.pm b/PerlQt/examples/dclock/DigitalClock.pm
index 4611272..2d25428 100644
--- a/PerlQt/examples/dclock/DigitalClock.pm
+++ b/PerlQt/examples/dclock/DigitalClock.pm
@@ -1,11 +1,11 @@
 package DigitalClock;
 use strict;
-use Qt;
-use Qt::isa qw(Qt::LCDNumber);
-use Qt::slots
+use TQt;
+use TQt::isa qw(TQt::LCDNumber);
+use TQt::slots
 	stopDate => [],
 	showTime => [];
-use Qt::attributes qw(
+use TQt::attributes qw(
 	showingColon
 	normalTimer
 	showDateTimer
@@ -56,7 +56,7 @@ sub mousePressEvent {
 
 sub showDate {
     return if showDateTimer != -1;		# already showing date
-    my $date = Qt::Date::currentDate();
+    my $date = TQt::Date::currentDate();
     my $s = sprintf("%2d %2d", $date->month, $date->day);
     display($s);				# sets the LCD number/text
     showDateTimer = startTimer(2000);		# keep this state for 2 secs
@@ -78,7 +78,7 @@ sub stopDate {
 
 sub showTime {
     showingColon = !showingColon;
-    my $s = substr(Qt::Time::currentTime()->toString, 0, 5);
+    my $s = substr(TQt::Time::currentTime()->toString, 0, 5);
     $s =~ s/^0/ /;
     $s =~ s/:/ / unless showingColon;
     display($s);
diff --git a/PerlQt/examples/dclock/dclock.pl b/PerlQt/examples/dclock/dclock.pl
index f5820fd..57c02bd 100644
--- a/PerlQt/examples/dclock/dclock.pl
+++ b/PerlQt/examples/dclock/dclock.pl
@@ -1,12 +1,12 @@
 #!/usr/bin/perl -w
 use strict;
-use Qt;
+use TQt;
 use DigitalClock;
 
-my $a = Qt::Application(\@ARGV);
+my $a = TQt::Application(\@ARGV);
 my $clock = DigitalClock;
 $clock->resize(170, 80);
 $a->setMainWidget($clock);
-$clock->setCaption("PerlQt Example - Digital Clock");
+$clock->setCaption("PerlTQt Example - Digital Clock");
 $clock->show;
 exit $a->exec;
diff --git a/PerlQt/examples/drawdemo/drawdemo.pl b/PerlQt/examples/drawdemo/drawdemo.pl
index c58e10d..f119a94 100644
--- a/PerlQt/examples/drawdemo/drawdemo.pl
+++ b/PerlQt/examples/drawdemo/drawdemo.pl
@@ -1,12 +1,12 @@
 #!/usr/bin/perl -w
 use strict;
 package DrawView;
-use Qt;
-use Qt::isa qw(Qt::Widget);
-use Qt::slots
+use TQt;
+use TQt::isa qw(TQt::Widget);
+use TQt::slots
 	updateIt => ['int'],
 	printIt => [];
-use Qt::attributes qw(
+use TQt::attributes qw(
 	printer
 	bgroup
 	_print
@@ -26,19 +26,19 @@ use Qt::attributes qw(
 
 sub drawColorWheel {
     my $p = shift;
-    my $f = Qt::Font("times", 18, &Qt::Font::Bold);
+    my $f = TQt::Font("times", 18, &TQt::Font::Bold);
     $p->setFont($f);
     $p->setPen(&black);
     $p->setWindow(0, 0, 500, 500);		# defines coordinate system
 
     for my $i (0..35) {
-	my $matrix = Qt::WMatrix;
+	my $matrix = TQt::WMatrix;
 	$matrix->translate(250.0, 250.0);	# move to center
 	$matrix->shear(0.0, 0.3);		# twist it
 	$matrix->rotate($i*10.0);		# rotate 0,10,20,.. degrees
 	$p->setWorldMatrix($matrix);    	# use this world matrix
 
-	my $c = Qt::Color;
+	my $c = TQt::Color;
 	$c->setHsv($i*10, 255, 255);		# rainbow effect
 	$p->setBrush($c);			# solid fill with color $c
 	$p->drawRect(70, -10, 80, 10);		# draw the rectangle
@@ -59,7 +59,7 @@ sub drawFonts {
     my $y = 0;
     for my $f (@fonts) {
 	for my $s (@sizes) {
-	    my $font = Qt::Font($f, $s);
+	    my $font = TQt::Font($f, $s);
 	    $p->setFont($font);
 	    my $fm = $p->fontMetrics;
 	    $y += $fm->ascent;
@@ -75,10 +75,10 @@ sub drawFonts {
 
 sub drawShapes {
     my $p = shift;
-    my $b1 = Qt::Brush(&blue);
-    my $b2 = Qt::Brush(&green, &Dense6Pattern);		# green 12% fill
-    my $b3 = Qt::Brush(&NoBrush);			# void brush
-    my $b4 = Qt::Brush(&CrossPattern);			# black cross pattern
+    my $b1 = TQt::Brush(&blue);
+    my $b2 = TQt::Brush(&green, &Dense6Pattern);		# green 12% fill
+    my $b3 = TQt::Brush(&NoBrush);			# void brush
+    my $b4 = TQt::Brush(&CrossPattern);			# black cross pattern
 
     $p->setPen(&red);
     $p->setBrush($b1);
@@ -105,13 +105,13 @@ our @drawFunctions = (
 sub NEW {
     shift->SUPER::NEW(@_);
 
-    setCaption("PerlQt Draw Demo Application");
+    setCaption("PerlTQt Draw Demo Application");
     setBackgroundColor(&white);
 
     # Create a button group to contain all buttons
-    bgroup = Qt::ButtonGroup(this);
+    bgroup = TQt::ButtonGroup(this);
     bgroup->resize(200, 200);
-    this->connect(bgroup, SIGNAL('clicked(int)'), SLOT('updateIt(int)'));
+    this->connect(bgroup, TQT_SIGNAL('clicked(int)'), TQT_SLOT('updateIt(int)'));
 
     # Calculate the size for the radio buttons
     my $maxwidth = 80;
@@ -128,7 +128,7 @@ sub NEW {
 
     for my $i (0 .. $#drawFunctions) {
 	my $n = $drawFunctions[$i]{name};
-	my $rb = Qt::RadioButton($n, bgroup);
+	my $rb = TQt::RadioButton($n, bgroup);
 	$rb->setGeometry(10, $i*30+10, $maxwidth, 30);
 
 	$maxheight += 30;
@@ -145,12 +145,12 @@ sub NEW {
 
     bgroup->resize($maxwidth, $maxheight);
 
-    printer = Qt::Printer;
+    printer = TQt::Printer;
 
-    _print = Qt::PushButton("Print...", bgroup);
+    _print = TQt::PushButton("Print...", bgroup);
     _print->resize(80, 30);
     _print->move($maxwidth/2 - _print->width/2, maxindex*30+20);
-    this->connect(_print, SIGNAL('clicked()'), SLOT('printIt()'));
+    this->connect(_print, TQT_SIGNAL('clicked()'), TQT_SLOT('printIt()'));
 
     bgroup->resize($maxwidth, _print->y+_print->height+10);
 
@@ -172,13 +172,13 @@ sub drawIt {
 
 sub printIt {
     if(printer->setup(this)) {
-	my $paint = Qt::Painter(printer);
+	my $paint = TQt::Painter(printer);
 	drawIt($paint);
     }
 }
 
 sub paintEvent {
-    my $paint = Qt::Painter(this);
+    my $paint = TQt::Painter(this);
     drawIt($paint);
 }
 
@@ -187,12 +187,12 @@ sub resizeEvent {
 }
 
 package main;
-use Qt;
+use TQt;
 use DrawView;
 
-my $app = Qt::Application(\@ARGV);
+my $app = TQt::Application(\@ARGV);
 my $draw = DrawView;
 $app->setMainWidget($draw);
-$draw->setCaption("PerlQt Example - Drawdemo");
+$draw->setCaption("PerlTQt Example - Drawdemo");
 $draw->show;
 exit $app->exec;
diff --git a/PerlQt/examples/drawlines/drawlines.pl b/PerlQt/examples/drawlines/drawlines.pl
index 7297fa2..1d7575f 100644
--- a/PerlQt/examples/drawlines/drawlines.pl
+++ b/PerlQt/examples/drawlines/drawlines.pl
@@ -1,9 +1,9 @@
 #!/usr/bin/perl -w
 use strict;
 package ConnectWidget;
-use Qt;
-use Qt::isa qw(Qt::Widget);
-use Qt::attributes qw(
+use TQt;
+use TQt::isa qw(TQt::Widget);
+use TQt::attributes qw(
 	points
 	colors
 	count
@@ -25,13 +25,13 @@ sub NEW {
     points = [];
     my @colors;
     for(1 .. MAXCOLORS) {
-	push @colors, Qt::Color(rand(255), rand(255), rand(255));
+	push @colors, TQt::Color(rand(255), rand(255), rand(255));
     }
     colors = \@colors;
 }
 
 sub paintEvent {
-    my $paint = Qt::Painter(this);
+    my $paint = TQt::Painter(this);
     for(my $i = 0; $i < count-1; $i++) {
 	for(my $j = $i+1; $j < count; $j++) {
 	    $paint->setPen(colors->[rand(MAXCOLORS)]);
@@ -55,20 +55,20 @@ sub mouseReleaseEvent {
 sub mouseMoveEvent {
     my $e = shift;
     if(down && count < MAXPOINTS) {
-	my $paint = Qt::Painter(this);
-	push @{this->points}, Qt::Point($e->pos);
+	my $paint = TQt::Painter(this);
+	push @{this->points}, TQt::Point($e->pos);
 	count++;
 	$paint->drawPoint($e->pos);
     }
 }
 
 package main;
-use Qt;
+use TQt;
 use ConnectWidget;
 
-my $a = Qt::Application(\@ARGV);
+my $a = TQt::Application(\@ARGV);
 my $connect = ConnectWidget;
-$connect->setCaption("PerlQt Example - Draw lines");
+$connect->setCaption("PerlTQt Example - Draw lines");
 $a->setMainWidget($connect);
 $connect->show;
 exit $a->exec;
diff --git a/PerlQt/examples/forever/forever.pl b/PerlQt/examples/forever/forever.pl
index bf6d56a..e388e44 100644
--- a/PerlQt/examples/forever/forever.pl
+++ b/PerlQt/examples/forever/forever.pl
@@ -1,11 +1,11 @@
 #!/usr/bin/perl -w
 use strict;
 package Forever;
-use Qt;
-use Qt::isa qw(Qt::Widget);
-use Qt::slots
+use TQt;
+use TQt::isa qw(TQt::Widget);
+use TQt::slots
 	updateCaption => [];
-use Qt::attributes qw(
+use TQt::attributes qw(
 	rectangles
 	colors
 );
@@ -15,23 +15,23 @@ sub NEW {
     shift->SUPER::NEW(@_);
     colors = \my @colors;
     for(my $a = 0; $a < numColors; $a++) {
-	push @colors, Qt::Color(rand(255), rand(255), rand(255));
+	push @colors, TQt::Color(rand(255), rand(255), rand(255));
     }
     rectangles = 0;
     startTimer(0);
-    my $counter = Qt::Timer(this);
-    this->connect($counter, SIGNAL('timeout()'), SLOT('updateCaption()'));
+    my $counter = TQt::Timer(this);
+    this->connect($counter, TQT_SIGNAL('timeout()'), TQT_SLOT('updateCaption()'));
     $counter->start(1000);
 }
 
 sub updateCaption {
-    my $s = sprintf "PerlQt Example - Forever - %d rectangles/second", rectangles;
+    my $s = sprintf "PerlTQt Example - Forever - %d rectangles/second", rectangles;
     rectangles = 0;
     setCaption($s);
 }
 
 sub paintEvent {
-    my $paint = Qt::Painter(this);
+    my $paint = TQt::Painter(this);
     my $w = width();
     my $h = height();
     return if $w <= 0 || $h <= 0;
@@ -48,12 +48,12 @@ sub timerEvent {
 }
 
 package main;
-use Qt;
+use TQt;
 use Forever;
 
-my $a = Qt::Application(\@ARGV);
+my $a = TQt::Application(\@ARGV);
 my $always = Forever;
 $a->setMainWidget($always);
-$always->setCaption("PerlQt Example - Forever");
+$always->setCaption("PerlTQt Example - Forever");
 $always->show;
 exit $a->exec;
diff --git a/PerlQt/examples/network/httpd/httpd.pl b/PerlQt/examples/network/httpd/httpd.pl
index 3f46041..a9aa0fd 100644
--- a/PerlQt/examples/network/httpd/httpd.pl
+++ b/PerlQt/examples/network/httpd/httpd.pl
@@ -1,28 +1,28 @@
 #!/usr/bin/perl -w
 
-## This program is based on an example program for Qt. It
+## This program is based on an example program for TQt. It
 ## may be used, distributed and modified without limitation.
 ##
 ## Copyright (C) 1992-2000 Trolltech AS.  All rights reserved.
 
 
-# When a new client connects, the server constructs a Qt::Socket and all
-# communication with the client is done over this Socket object. Qt::Socket
+# When a new client connects, the server constructs a TQt::Socket and all
+# communication with the client is done over this Socket object. TQt::Socket
 # works asynchronously - this means that all the communication is done
 # through the two slots readClient() and discardClient().
  
 package HttpDaemon;
 
-use Qt;
-use Qt::isa qw(Qt::ServerSocket);
-use Qt::signals
+use TQt;
+use TQt::isa qw(TQt::ServerSocket);
+use TQt::signals
     newConnect    => [],
     endConnect    => [],
     wroteToClient => [];
-use Qt::slots
+use TQt::slots
     readClient    => [],
     discardClient => [];
-use Qt::attributes qw(
+use TQt::attributes qw(
     sockets
 );
 
@@ -38,9 +38,9 @@ sub NEW
 
 sub newConnection
 {
-    my $s = Qt::Socket( this );
-    this->connect( $s, SIGNAL 'readyRead()', this, SLOT 'readClient()' );
-    this->connect( $s, SIGNAL 'delayedCloseFinished()', this, SLOT 'discardClient()' );
+    my $s = TQt::Socket( this );
+    this->connect( $s, TQT_SIGNAL 'readyRead()', this, TQT_SLOT 'readClient()' );
+    this->connect( $s, TQT_SIGNAL 'delayedCloseFinished()', this, TQT_SLOT 'discardClient()' );
     $s->setSocket( shift );
     sockets->{ $s } = $s;
     emit newConnect();
@@ -81,13 +81,13 @@ sub discardClient
 
 package HttpInfo;
 
-use Qt;
-use Qt::isa qw(Qt::VBox);
-use Qt::slots
+use TQt;
+use TQt::isa qw(TQt::VBox);
+use TQt::slots
     newConnect    => [],
     endConnect    => [],
     wroteToClient => [];
-use Qt::attributes qw(
+use TQt::attributes qw(
     httpd
     infoText
 );
@@ -106,10 +106,10 @@ sub NEW
     $lb->setAlignment( &AlignHCenter );
     infoText = TextView( this );
     my $quit = PushButton( "quit" , this );
-    this->connect( httpd, SIGNAL 'newConnect()', SLOT 'newConnect()' );
-    this->connect( httpd, SIGNAL 'endConnect()', SLOT 'endConnect()' );
-    this->connect( httpd, SIGNAL 'wroteToClient()', SLOT 'wroteToClient()' );
-    this->connect( $quit, SIGNAL 'pressed()', Qt::app(), SLOT 'quit()' );
+    this->connect( httpd, TQT_SIGNAL 'newConnect()', TQT_SLOT 'newConnect()' );
+    this->connect( httpd, TQT_SIGNAL 'endConnect()', TQT_SLOT 'endConnect()' );
+    this->connect( httpd, TQT_SIGNAL 'wroteToClient()', TQT_SLOT 'wroteToClient()' );
+    this->connect( $quit, TQT_SIGNAL 'pressed()', TQt::app(), TQT_SLOT 'quit()' );
 }
 
 sub newConnect
@@ -130,10 +130,10 @@ sub wroteToClient
 1;
 
 package main;
-use Qt;
+use TQt;
 use HttpInfo;
 
-my $app = Qt::Application(\@ARGV);
+my $app = TQt::Application(\@ARGV);
 my $info = HttpInfo;
 $app->setMainWidget($info);
 $info->show;
diff --git a/PerlQt/examples/opengl/README b/PerlQt/examples/opengl/README
index 5c93086..7e2f174 100644
--- a/PerlQt/examples/opengl/README
+++ b/PerlQt/examples/opengl/README
@@ -3,9 +3,9 @@ the OpenGL module available on CPAN (http://www.cpan.org)
 
 Latest version is 0.54, as of 09/11/02
 
-Both Smoke and Qt must also have been compiled with OpenGL support.
+Both Smoke and TQt must also have been compiled with OpenGL support.
 
-If your Qt library has OpenGL support but PerlQt complains about lacking
+If your TQt library has OpenGL support but PerlTQt complains about lacking
  methods or classes, check ./configure's config.log file for any
 error that might have occured while detecting your OpenGL settings.
 
diff --git a/PerlQt/examples/opengl/box/GLBox.pm b/PerlQt/examples/opengl/box/GLBox.pm
index dd6ceb9..1c6ceb8 100644
--- a/PerlQt/examples/opengl/box/GLBox.pm
+++ b/PerlQt/examples/opengl/box/GLBox.pm
@@ -4,13 +4,13 @@ use OpenGL qw(:all);
 
 use strict;
 
-use Qt;
-use Qt::isa qw(Qt::GLWidget);
-use Qt::slots 
+use TQt;
+use TQt::isa qw(TQt::GLWidget);
+use TQt::slots 
     setXRotation => ['int'],
     setYRotation => ['int'],
     setZRotation => ['int'];
-use Qt::attributes qw(
+use TQt::attributes qw(
     xRot
     yRot
     zRot
@@ -75,7 +75,7 @@ sub makeObject
 
     glLineWidth( 2.0 );
 
-    glBegin( GL_QUADS );
+    glBegin( GL_TQUADS );
     glVertex3f(  1.0,  0.5, -0.4 );
     glVertex3f(  1.0, -0.5, -0.4 );
     glVertex3f( -1.0, -0.5, -0.4 );
@@ -84,7 +84,7 @@ sub makeObject
 
     qglColor( &blue );
 
-    glBegin( GL_QUADS );
+    glBegin( GL_TQUADS );
     glVertex3f(  1.0,  0.5, 0.4 );
     glVertex3f(  1.0, -0.5, 0.4 );
     glVertex3f( -1.0, -0.5, 0.4 );
@@ -93,7 +93,7 @@ sub makeObject
 
     qglColor( &darkRed );
 
-    glBegin( GL_QUAD_STRIP );
+    glBegin( GL_TQUAD_STRIP );
     glVertex3f(  1.0,  0.5, -0.4 );   glVertex3f(  1.0,  0.5, 0.4 );
     glVertex3f(  1.0, -0.5, -0.4 );   glVertex3f(  1.0, -0.5, 0.4 );
     qglColor( &yellow );
diff --git a/PerlQt/examples/opengl/box/glbox b/PerlQt/examples/opengl/box/glbox
index 613a274..fed74a3 100644
--- a/PerlQt/examples/opengl/box/glbox
+++ b/PerlQt/examples/opengl/box/glbox
@@ -3,9 +3,9 @@ package GLObjectWindow;
 
 use strict;
 
-use Qt;
-use Qt::isa qw(Qt::Widget);          
-use Qt::attributes qw(
+use TQt;
+use TQt::isa qw(TQt::Widget);          
+use TQt::attributes qw(
     file
     frame
     menu
@@ -22,50 +22,50 @@ sub NEW
     shift->SUPER::NEW(@_);
 
     # Create a menu
-    file = Qt::PopupMenu( this );
-    file->insertItem( "Exit",  Qt::app(), SLOT 'quit()', Qt::KeySequence(int &CTRL + &Key_Q ));
+    file = TQt::PopupMenu( this );
+    file->insertItem( "Exit",  TQt::app(), TQT_SLOT 'quit()', TQt::KeySequence(int &CTRL + &Key_Q ));
 
     # Create a menu bar
-    menu = Qt::MenuBar( this );
-    menu->setSeparator( &Qt::MenuBar::InWindowsStyle );
+    menu = TQt::MenuBar( this );
+    menu->setSeparator( &TQt::MenuBar::InWindowsStyle );
     menu->insertItem("&File", file );
 
     # Create a nice frame to put around the OpenGL widget
-    frame = Qt::Frame( this, "frame" );
-    frame->setFrameStyle( &Qt::Frame::Sunken | &Qt::Frame::Panel );
+    frame = TQt::Frame( this, "frame" );
+    frame->setFrameStyle( &TQt::Frame::Sunken | &TQt::Frame::Panel );
     frame->setLineWidth( 2 );
 
     # Create our OpenGL widget
     box = GLBox( frame, "glbox");
 
     # Create the three sliders; one for each rotation axis
-    xpos = Qt::Slider ( 0, 360, 60, 0, &Qt::Slider::Vertical, this, "xsl" );
-    xpos->setTickmarks( &Qt::Slider::Left );
-    Qt::Object::connect( xpos, SIGNAL 'valueChanged(int)', box, SLOT 'setXRotation(int)' );
+    xpos = TQt::Slider ( 0, 360, 60, 0, &TQt::Slider::Vertical, this, "xsl" );
+    xpos->setTickmarks( &TQt::Slider::Left );
+    TQt::Object::connect( xpos, TQT_SIGNAL 'valueChanged(int)', box, TQT_SLOT 'setXRotation(int)' );
 
-    ypos = Qt::Slider ( 0, 360, 60, 0, &Qt::Slider::Vertical, this, "ysl" );
-    ypos->setTickmarks( &Qt::Slider::Left );
-    Qt::Object::connect( ypos, SIGNAL 'valueChanged(int)', box, SLOT 'setYRotation(int)' );
+    ypos = TQt::Slider ( 0, 360, 60, 0, &TQt::Slider::Vertical, this, "ysl" );
+    ypos->setTickmarks( &TQt::Slider::Left );
+    TQt::Object::connect( ypos, TQT_SIGNAL 'valueChanged(int)', box, TQT_SLOT 'setYRotation(int)' );
 
-    zpos = Qt::Slider ( 0, 360, 60, 0, &Qt::Slider::Vertical, this, "zsl" );
-    zpos->setTickmarks( &Qt::Slider::Left );
-    Qt::Object::connect( zpos, SIGNAL 'valueChanged(int)', box, SLOT 'setZRotation(int)' );
+    zpos = TQt::Slider ( 0, 360, 60, 0, &TQt::Slider::Vertical, this, "zsl" );
+    zpos->setTickmarks( &TQt::Slider::Left );
+    TQt::Object::connect( zpos, TQT_SIGNAL 'valueChanged(int)', box, TQT_SLOT 'setZRotation(int)' );
 
 
     # Now that we have all the widgets, put them into a nice layout
 
     # Put the sliders on top of each other
-    my $vlayout = Qt::VBoxLayout( 20, "vlayout");
+    my $vlayout = TQt::VBoxLayout( 20, "vlayout");
     $vlayout->addWidget( xpos );
     $vlayout->addWidget( ypos );
     $vlayout->addWidget( zpos );
 
     # Put the GL widget inside the frame
-    my $flayout = Qt::HBoxLayout( frame, 2, 2, "flayout");
+    my $flayout = TQt::HBoxLayout( frame, 2, 2, "flayout");
     $flayout->addWidget( box, 1 );
 
     # Top level layout, puts the sliders to the left of the frame/GL widget
-    my $hlayout = Qt::HBoxLayout( this, 20, 20, "hlayout");
+    my $hlayout = TQt::HBoxLayout( this, 20, 20, "hlayout");
     $hlayout->setMenuBar( menu );
     $hlayout->addLayout( $vlayout );
     $hlayout->addWidget( frame, 1 );
@@ -75,10 +75,10 @@ sub NEW
 
 package main;
 
-use Qt;
+use TQt;
 use GLObjectWindow;
 
-my $a = Qt::Application(\@ARGV);
+my $a = TQt::Application(\@ARGV);
 
 my $w = GLObjectWindow;
 $w->resize(350,350);
diff --git a/PerlQt/examples/opengl/gear/gear b/PerlQt/examples/opengl/gear/gear
index 2edc951..d9e4c8a 100644
--- a/PerlQt/examples/opengl/gear/gear
+++ b/PerlQt/examples/opengl/gear/gear
@@ -2,7 +2,7 @@
 #
 # Draws a gear.
 #
-# This code is originally from Qt-1.44, by Troll Tech
+# This code is originally from TQt-1.44, by Troll Tech
 #
 # Portions of this code have been borrowed from Brian Paul's Mesa
 # distribution.
@@ -11,8 +11,8 @@
 package GearWidget;
 use OpenGL qw(:all);
 
-use Qt;
-use Qt::attributes qw(
+use TQt;
+use TQt::attributes qw(
     gear1
     gear2
     gear3
@@ -22,7 +22,7 @@ use Qt::attributes qw(
     angle
 );
 
-use Qt::isa qw(Qt::GLWidget);
+use TQt::isa qw(TQt::GLWidget);
 
 #
 # Draw a gear wheel.  You'll probably want to call this function when
@@ -54,7 +54,7 @@ sub gear {
     glNormal3f(0.0, 0.0, 1.0);
 
     # draw front face
-    glBegin(GL_QUAD_STRIP);
+    glBegin(GL_TQUAD_STRIP);
     for $i (0 .. $teeth) {
 	$angle = $i * 2.0*$pi / $teeth;
         glVertex3f($r0*cos($angle), $r0*sin($angle), $width*0.5);
@@ -65,7 +65,7 @@ sub gear {
     glEnd();
 
     # draw front sides of teeth
-    glBegin(GL_QUADS);
+    glBegin(GL_TQUADS);
     $da = 2.0*$pi / $teeth / 4.0;
     for $i (0 .. $teeth-1) {
        $angle = $i * 2.0*$pi / $teeth;
@@ -81,7 +81,7 @@ sub gear {
     glNormal3f(0.0, 0.0, -1.0);
 
     # draw back face
-    glBegin(GL_QUAD_STRIP);
+    glBegin(GL_TQUAD_STRIP);
     for $i (0 .. $teeth) {
         $angle = $i * 2.0*$pi / $teeth;
         glVertex3f($r1*cos($angle), $r1*sin($angle), -$width*0.5);
@@ -92,7 +92,7 @@ sub gear {
     glEnd();
 
     # draw back sides of teeth
-    glBegin(GL_QUADS);
+    glBegin(GL_TQUADS);
     $da = 2.0*$pi / $teeth / 4.0;
     for $i (0 .. $teeth-1) {
         $angle = $i * 2.0*$pi / $teeth;
@@ -105,7 +105,7 @@ sub gear {
     glEnd();
 
     # draw outward faces of teeth
-    glBegin(GL_QUAD_STRIP);
+    glBegin(GL_TQUAD_STRIP);
     for $i (0 .. $teeth-1) {
         $angle = $i * 2.0*$pi / $teeth;
 
@@ -139,7 +139,7 @@ sub gear {
     glShadeModel(GL_SMOOTH);
 
     # draw inside radius cylinder
-    glBegin(GL_QUAD_STRIP);
+    glBegin(GL_TQUAD_STRIP);
     for $i (0 .. $teeth) {
         $angle = $i * 2.0*$pi / $teeth;
         glNormal3f(-cos($angle), -sin($angle), 0.0);
@@ -251,12 +251,12 @@ sub timerEvent {
 
 package main;
 
-use Qt;
+use TQt;
 use GearWidget;
 
-$app = Qt::Application(\@ARGV);
+$app = TQt::Application(\@ARGV);
 
-if(!Qt::GLFormat::hasOpenGL()) {
+if(!TQt::GLFormat::hasOpenGL()) {
     warn("This system has no OpenGL support. Exiting.");
     exit -1;
 }
diff --git a/PerlQt/examples/progress/progress.pl b/PerlQt/examples/progress/progress.pl
index a63e95e..4112e64 100644
--- a/PerlQt/examples/progress/progress.pl
+++ b/PerlQt/examples/progress/progress.pl
@@ -4,9 +4,9 @@ use strict;
 
 package AnimatedThingy;
 
-use Qt;
-use Qt::isa "Qt::Label";
-use Qt::attributes qw[
+use TQt;
+use TQt::isa "TQt::Label";
+use TQt::attributes qw[
     label
     step
     ox  oy
@@ -49,12 +49,12 @@ sub hide
 
 sub sizeHint
 {
-    Qt::Size(120,100)
+    TQt::Size(120,100)
 }
 
 sub timerEvent
 {
-    my $p = Qt::Painter(this);
+    my $p = TQt::Painter(this);
     my $pn= $p->pen;
     $pn->setWidth(2);
     $pn->setColor(backgroundColor());
@@ -73,7 +73,7 @@ sub timerEvent
     ox->[1][step] = x1;
     oy->[1][step] = y1;
 
-    my $c = Qt::Color;
+    my $c = TQt::Color;
     $c->setHsv( (step*255)/nqix, 255, 255 ); # rainbow effect
     $pn->setColor($c);
     $pn->setWidth(2);
@@ -86,13 +86,13 @@ sub timerEvent
 sub paintEvent
 {
     my $ev = shift;
-    my $p = Qt::Painter(this);
+    my $p = TQt::Painter(this);
     my $pn= $p->pen;
     $pn->setWidth(2);
     $p->setPen($pn);
     $p->setClipRect($ev->rect);
         for (my $i=0; $i<nqix; $i++) {
-            my $c = Qt::Color;
+            my $c = TQt::Color;
             $c->setHsv( ($i*255)/nqix, 255, 255 ); # rainbow effect
             $pn->setColor($c);
             $p->setPen($pn);
@@ -115,9 +115,9 @@ sub inc
 
 package CPUWaster;
 
-use Qt;
-use Qt::isa "Qt::Widget";
-use Qt::attributes qw[
+use TQt;
+use TQt::isa "TQt::Widget";
+use TQt::attributes qw[
     menubar
     file
     options
@@ -132,7 +132,7 @@ use Qt::attributes qw[
     timer_driven
     default_label
 ];
-use Qt::slots
+use TQt::slots
     drawItemRects  => ['int'],
     doMenuItem     => ['int'],
     stopDrawing    => [     ],
@@ -154,22 +154,22 @@ sub NEW
     menubar = MenuBar( this, "menu" );
     pb = 0;
 
-    file = Qt::PopupMenu;
+    file = TQt::PopupMenu;
     menubar->insertItem( "&File", file );
     for (my $i=first_draw_item; $i<=last_draw_item; $i++)
     { file->insertItem( drawItemRects($i)." Rectangles", $i) }
-    Qt::Object::connect( menubar, SIGNAL "activated(int)", this, SLOT "doMenuItem(int)" );
+    TQt::Object::connect( menubar, TQT_SIGNAL "activated(int)", this, TQT_SLOT "doMenuItem(int)" );
     file->insertSeparator;
-    file->insertItem( "Quit", Qt::app(),  SLOT "quit()" );
-    options = Qt::PopupMenu;
+    file->insertItem( "Quit", TQt::app(),  TQT_SLOT "quit()" );
+    options = TQt::PopupMenu;
     menubar->insertItem( "&Options", options );
-    td_id = options->insertItem( "Timer driven", this, SLOT "timerDriven()" );
-    ld_id = options->insertItem( "Loop driven", this, SLOT "loopDriven()" );
+    td_id = options->insertItem( "Timer driven", this, TQT_SLOT "timerDriven()" );
+    ld_id = options->insertItem( "Loop driven", this, TQT_SLOT "loopDriven()" );
     options->insertSeparator;
-    dl_id = options->insertItem( "Default label", this, SLOT "defaultLabel()" );
-    cl_id = options->insertItem( "Custom label", this, SLOT "customLabel()" );
+    dl_id = options->insertItem( "Default label", this, TQT_SLOT "defaultLabel()" );
+    cl_id = options->insertItem( "Custom label", this, TQT_SLOT "customLabel()" );
     options->insertSeparator;
-    md_id = options->insertItem( "No minimum duration", this, SLOT "toggleMinimumDuration()" );
+    md_id = options->insertItem( "No minimum duration", this, TQT_SLOT "toggleMinimumDuration()" );
     options->setCheckable( 1 );
     loopDriven();
     customLabel();
@@ -240,14 +240,14 @@ sub timerEvent
     rects--;
 
     {
-        my $p = Qt::Painter(this);
+        my $p = TQt::Painter(this);
 
         my $ww = width();
         my $wh = height();
 
         if ( $ww > 8 && $wh > 8 )
         {
-            my $c = Qt::Color(rand(255), rand(255), rand(255));
+            my $c = TQt::Color(rand(255), rand(255), rand(255));
             my $x = rand($ww-8);
             my $y = rand($wh-8);
             my $w = rand($ww-$x);
@@ -259,7 +259,7 @@ sub timerEvent
     if (!rects || got_stop)
     {
         pb->setProgress( pb->totalSteps );
-        my $p = Qt::Painter(this);
+        my $p = TQt::Painter(this);
         $p->fillRect(0, 0, width(), height(), Brush(backgroundColor()));
         enableDrawingItems(1);
         killTimers();
@@ -301,7 +301,7 @@ sub draw
         pb = newProgressDialog("Drawing rectangles.\n".
                                "Using timer event.", $n, 0);
         pb->setCaption("Please Wait");
-        Qt::Object::connect(pb, SIGNAL "cancelled()", this, SLOT "stopDrawing()");
+        TQt::Object::connect(pb, TQT_SIGNAL "cancelled()", this, TQT_SLOT "stopDrawing()");
         enableDrawingItems(0);
         startTimer(0);
         got_stop = 0;
@@ -312,7 +312,7 @@ sub draw
                                     "Using loop.", $n, 1);
         $lpb->setCaption("Please Wait");
 
-        my $p = Qt::Painter(this);
+        my $p = TQt::Painter(this);
         for (my $i=0; $i<$n; $i++)
         {
             if(!($i%100))
@@ -321,7 +321,7 @@ sub draw
               last if ( $lpb->wasCancelled );
             }
             my ($cw, $ch) = (width(), height());
-            my $c = Qt::Color(rand(255), rand(255), rand(255));
+            my $c = TQt::Color(rand(255), rand(255), rand(255));
             my $x = rand($cw-8);
             my $y = rand($cw-8);
             my $w = rand($cw-$x);
@@ -337,10 +337,10 @@ sub draw
 
 package main;
 
-use Qt;
+use TQt;
 use CPUWaster;
 
-my $a=Qt::Application(\@ARGV);
+my $a=TQt::Application(\@ARGV);
 my $w=CPUWaster;
 
 $w->show;
diff --git a/PerlQt/examples/richedit/imageCollection.pm b/PerlQt/examples/richedit/imageCollection.pm
index 318d4e5..9ba9880 100644
--- a/PerlQt/examples/richedit/imageCollection.pm
+++ b/PerlQt/examples/richedit/imageCollection.pm
@@ -20,15 +20,15 @@
 #      images/undo
 #
 # Created: jeu jun 13 20:03:44 2002
-#      by: The PerlQt User Interface Compiler (puic)
+#      by: The PerlTQt User Interface Compiler (puic)
 #
 # WARNING! All changes made in this file will be lost!
 
 use strict;
 
 package DesignerMimeSourceFactory_richedit;
-use Qt;
-use Qt::isa qw(Qt::MimeSourceFactory);
+use TQt;
+use TQt::isa qw(TQt::MimeSourceFactory);
 
 # images/editcopy
 my $image_0_data = pack 'L*',
@@ -1416,9 +1416,9 @@ sub uic_findImage
 {
     my $name = shift;
     return $images{$name} if exists $images{$name};
-    return Qt::Image() unless exists $embed_images{$name};
+    return TQt::Image() unless exists $embed_images{$name};
     
-    my $img = Qt::Image(@{$embed_images{$name}}[0..4], &Qt::Image::BigEndian);
+    my $img = TQt::Image(@{$embed_images{$name}}[0..4], &TQt::Image::BigEndian);
     ${$embed_images{$name}}[5] && $img->setAlphaBuffer(1);
     $images{$name} = $img;
     return $img;
@@ -1430,30 +1430,30 @@ sub data
     my $img = uic_findImage($abs_name);
     if($img->isNull())
     {
-        Qt::MimeSourceFactory::removeFactory(this);
-        my $s = Qt::MimeSourceFactory::defaultFactory()->data($abs_name);
-        Qt::MimeSourceFactory::addFactory(this);
+        TQt::MimeSourceFactory::removeFactory(this);
+        my $s = TQt::MimeSourceFactory::defaultFactory()->data($abs_name);
+        TQt::MimeSourceFactory::addFactory(this);
         return $s;
     }
-    Qt::MimeSourceFactory::defaultFactory()->setImage($abs_name, $img);
-    return Qt::MimeSourceFactory::defaultFactory()->data($abs_name);
+    TQt::MimeSourceFactory::defaultFactory()->setImage($abs_name, $img);
+    return TQt::MimeSourceFactory::defaultFactory()->data($abs_name);
 }
 
 
 package staticImages;
-use Qt;
+use TQt;
 use DesignerMimeSourceFactory_richedit;
 our %factories;
 
 my $factory = DesignerMimeSourceFactory_richedit;
-Qt::MimeSourceFactory::defaultFactory()->addFactory($factory);
+TQt::MimeSourceFactory::defaultFactory()->addFactory($factory);
 $factories{'DesignerMimeSourceFactory_richedit'} = $factory;
 
 END
 {
     for( values %factories )
     {
-        Qt::MimeSourceFactory::defaultFactory()->removeFactory($_);
+        TQt::MimeSourceFactory::defaultFactory()->removeFactory($_);
     }
     %factories = ();
 }
diff --git a/PerlQt/examples/richedit/richedit.pl b/PerlQt/examples/richedit/richedit.pl
index ef39e73..d2dee84 100644
--- a/PerlQt/examples/richedit/richedit.pl
+++ b/PerlQt/examples/richedit/richedit.pl
@@ -1,7 +1,7 @@
 # Form implementation generated from reading ui file 'richedit.ui'
 #
 # Created: jeu jun 13 20:02:56 2002
-#      by: The PerlQt User Interface Compiler (puic)
+#      by: The PerlTQt User Interface Compiler (puic)
 #
 
 
@@ -14,9 +14,9 @@ use FindBin;
 use lib "$FindBin::Bin";                                 
 
 package EditorForm;
-use Qt;
-use Qt::isa qw(Qt::MainWindow);
-use Qt::slots
+use TQt;
+use TQt::isa qw(TQt::MainWindow);
+use TQt::slots
     init => [],
     fileExit => [],
     fileNew => [],
@@ -26,9 +26,9 @@ use Qt::slots
     helpAbout => [],
     helpContents => [],
     helpIndex => [],
-    changeAlignment => ['QAction*'],
-    saveAndContinue => ['const QString&'];
-use Qt::attributes qw(
+    changeAlignment => ['TQAction*'],
+    saveAndContinue => ['const TQString&'];
+use TQt::attributes qw(
     textEdit
     fontComboBox
     SpinBox2
@@ -64,12 +64,12 @@ use Qt::attributes qw(
 
 sub uic_load_pixmap_EditorForm
 {
-    my $pix = Qt::Pixmap();
-    my $m = Qt::MimeSourceFactory::defaultFactory()->data(shift);
+    my $pix = TQt::Pixmap();
+    my $m = TQt::MimeSourceFactory::defaultFactory()->data(shift);
 
     if($m)
     {
-        Qt::ImageDrag::decode($m, $pix);
+        TQt::ImageDrag::decode($m, $pix);
     }
 
     return $pix;
@@ -88,115 +88,115 @@ sub NEW
     this->resize(646,436);
     this->setCaption(this->trUtf8("Rich Edit"));
 
-    this->setCentralWidget(Qt::Widget(this, "qt_central_widget"));
-    my $EditorFormLayout = Qt::HBoxLayout(this->centralWidget(), 11, 6, '$EditorFormLayout');
+    this->setCentralWidget(TQt::Widget(this, "qt_central_widget"));
+    my $EditorFormLayout = TQt::HBoxLayout(this->centralWidget(), 11, 6, '$EditorFormLayout');
 
-    textEdit = Qt::TextEdit(this->centralWidget(), "textEdit");
-    textEdit->setSizePolicy(Qt::SizePolicy(7, 7, 0, 0, textEdit->sizePolicy()->hasHeightForWidth()));
-    textEdit->setTextFormat(&Qt::TextEdit::RichText);
+    textEdit = TQt::TextEdit(this->centralWidget(), "textEdit");
+    textEdit->setSizePolicy(TQt::SizePolicy(7, 7, 0, 0, textEdit->sizePolicy()->hasHeightForWidth()));
+    textEdit->setTextFormat(&TQt::TextEdit::RichText);
     $EditorFormLayout->addWidget(textEdit);
 
-    fileNewAction= Qt::Action(this,"fileNewAction");
-    fileNewAction->setIconSet(Qt::IconSet(uic_load_pixmap_EditorForm("filenew")));
+    fileNewAction= TQt::Action(this,"fileNewAction");
+    fileNewAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("filenew")));
     fileNewAction->setText(this->trUtf8("New"));
     fileNewAction->setMenuText(this->trUtf8("&New"));
-    fileNewAction->setAccel(Qt::KeySequence(int(4194382)));
-    fileOpenAction= Qt::Action(this,"fileOpenAction");
-    fileOpenAction->setIconSet(Qt::IconSet(uic_load_pixmap_EditorForm("fileopen")));
+    fileNewAction->setAccel(TQt::KeySequence(int(4194382)));
+    fileOpenAction= TQt::Action(this,"fileOpenAction");
+    fileOpenAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("fileopen")));
     fileOpenAction->setText(this->trUtf8("Open"));
     fileOpenAction->setMenuText(this->trUtf8("&Open..."));
-    fileOpenAction->setAccel(Qt::KeySequence(int(4194383)));
-    fileSaveAction= Qt::Action(this,"fileSaveAction");
-    fileSaveAction->setIconSet(Qt::IconSet(uic_load_pixmap_EditorForm("filesave")));
+    fileOpenAction->setAccel(TQt::KeySequence(int(4194383)));
+    fileSaveAction= TQt::Action(this,"fileSaveAction");
+    fileSaveAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("filesave")));
     fileSaveAction->setText(this->trUtf8("Save"));
     fileSaveAction->setMenuText(this->trUtf8("&Save"));
-    fileSaveAction->setAccel(Qt::KeySequence(int(4194387)));
-    fileSaveAsAction= Qt::Action(this,"fileSaveAsAction");
+    fileSaveAction->setAccel(TQt::KeySequence(int(4194387)));
+    fileSaveAsAction= TQt::Action(this,"fileSaveAsAction");
     fileSaveAsAction->setText(this->trUtf8("Save As"));
     fileSaveAsAction->setMenuText(this->trUtf8("Save &As..."));
-    fileSaveAsAction->setAccel(Qt::KeySequence(int(0)));
-    fileExitAction= Qt::Action(this,"fileExitAction");
+    fileSaveAsAction->setAccel(TQt::KeySequence(int(0)));
+    fileExitAction= TQt::Action(this,"fileExitAction");
     fileExitAction->setText(this->trUtf8("Exit"));
     fileExitAction->setMenuText(this->trUtf8("E&xit"));
-    fileExitAction->setAccel(Qt::KeySequence(int(0)));
-    editUndoAction= Qt::Action(this,"editUndoAction");
-    editUndoAction->setIconSet(Qt::IconSet(uic_load_pixmap_EditorForm("undo")));
+    fileExitAction->setAccel(TQt::KeySequence(int(0)));
+    editUndoAction= TQt::Action(this,"editUndoAction");
+    editUndoAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("undo")));
     editUndoAction->setText(this->trUtf8("Undo"));
     editUndoAction->setMenuText(this->trUtf8("&Undo"));
-    editUndoAction->setAccel(Qt::KeySequence(int(4194394)));
-    editRedoAction= Qt::Action(this,"editRedoAction");
-    editRedoAction->setIconSet(Qt::IconSet(uic_load_pixmap_EditorForm("redo")));
+    editUndoAction->setAccel(TQt::KeySequence(int(4194394)));
+    editRedoAction= TQt::Action(this,"editRedoAction");
+    editRedoAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("redo")));
     editRedoAction->setText(this->trUtf8("Redo"));
     editRedoAction->setMenuText(this->trUtf8("&Redo"));
-    editRedoAction->setAccel(Qt::KeySequence(int(4194393)));
-    editCutAction= Qt::Action(this,"editCutAction");
-    editCutAction->setIconSet(Qt::IconSet(uic_load_pixmap_EditorForm("editcut")));
+    editRedoAction->setAccel(TQt::KeySequence(int(4194393)));
+    editCutAction= TQt::Action(this,"editCutAction");
+    editCutAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("editcut")));
     editCutAction->setText(this->trUtf8("Cut"));
     editCutAction->setMenuText(this->trUtf8("&Cut"));
-    editCutAction->setAccel(Qt::KeySequence(int(4194392)));
-    editCopyAction= Qt::Action(this,"editCopyAction");
-    editCopyAction->setIconSet(Qt::IconSet(uic_load_pixmap_EditorForm("editcopy")));
+    editCutAction->setAccel(TQt::KeySequence(int(4194392)));
+    editCopyAction= TQt::Action(this,"editCopyAction");
+    editCopyAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("editcopy")));
     editCopyAction->setText(this->trUtf8("Copy"));
     editCopyAction->setMenuText(this->trUtf8("C&opy"));
-    editCopyAction->setAccel(Qt::KeySequence(int(4194371)));
-    editPasteAction= Qt::Action(this,"editPasteAction");
-    editPasteAction->setIconSet(Qt::IconSet(uic_load_pixmap_EditorForm("editpaste")));
+    editCopyAction->setAccel(TQt::KeySequence(int(4194371)));
+    editPasteAction= TQt::Action(this,"editPasteAction");
+    editPasteAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("editpaste")));
     editPasteAction->setText(this->trUtf8("Paste"));
     editPasteAction->setMenuText(this->trUtf8("&Paste"));
-    editPasteAction->setAccel(Qt::KeySequence(int(4194390)));
-    helpContentsAction= Qt::Action(this,"helpContentsAction");
+    editPasteAction->setAccel(TQt::KeySequence(int(4194390)));
+    helpContentsAction= TQt::Action(this,"helpContentsAction");
     helpContentsAction->setText(this->trUtf8("Contents"));
     helpContentsAction->setMenuText(this->trUtf8("&Contents..."));
-    helpContentsAction->setAccel(Qt::KeySequence(int(0)));
-    helpIndexAction= Qt::Action(this,"helpIndexAction");
+    helpContentsAction->setAccel(TQt::KeySequence(int(0)));
+    helpIndexAction= TQt::Action(this,"helpIndexAction");
     helpIndexAction->setText(this->trUtf8("Index"));
     helpIndexAction->setMenuText(this->trUtf8("&Index..."));
-    helpIndexAction->setAccel(Qt::KeySequence(int(0)));
-    helpAboutAction= Qt::Action(this,"helpAboutAction");
+    helpIndexAction->setAccel(TQt::KeySequence(int(0)));
+    helpAboutAction= TQt::Action(this,"helpAboutAction");
     helpAboutAction->setText(this->trUtf8("About"));
     helpAboutAction->setMenuText(this->trUtf8("&About..."));
-    helpAboutAction->setAccel(Qt::KeySequence(int(0)));
-    boldAction= Qt::Action(this,"boldAction");
+    helpAboutAction->setAccel(TQt::KeySequence(int(0)));
+    boldAction= TQt::Action(this,"boldAction");
     boldAction->setToggleAction(1);
-    boldAction->setIconSet(Qt::IconSet(uic_load_pixmap_EditorForm("textbold")));
+    boldAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("textbold")));
     boldAction->setText(this->trUtf8("bold"));
     boldAction->setMenuText(this->trUtf8("&Bold"));
-    boldAction->setAccel(Qt::KeySequence(int(272629826)));
-    italicAction= Qt::Action(this,"italicAction");
+    boldAction->setAccel(TQt::KeySequence(int(272629826)));
+    italicAction= TQt::Action(this,"italicAction");
     italicAction->setToggleAction(1);
-    italicAction->setIconSet(Qt::IconSet(uic_load_pixmap_EditorForm("textitalic")));
+    italicAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("textitalic")));
     italicAction->setText(this->trUtf8("italic"));
     italicAction->setMenuText(this->trUtf8("&Italic"));
-    italicAction->setAccel(Qt::KeySequence(int(272629833)));
-    underlineAction= Qt::Action(this,"underlineAction");
+    italicAction->setAccel(TQt::KeySequence(int(272629833)));
+    underlineAction= TQt::Action(this,"underlineAction");
     underlineAction->setToggleAction(1);
-    underlineAction->setIconSet(Qt::IconSet(uic_load_pixmap_EditorForm("textunder")));
+    underlineAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("textunder")));
     underlineAction->setText(this->trUtf8("underline"));
     underlineAction->setMenuText(this->trUtf8("&Underline"));
-    underlineAction->setAccel(Qt::KeySequence(int(272629845)));
-    alignActionGroup= Qt::ActionGroup(this,"alignActionGroup");
+    underlineAction->setAccel(TQt::KeySequence(int(272629845)));
+    alignActionGroup= TQt::ActionGroup(this,"alignActionGroup");
     alignActionGroup->setText(this->trUtf8("align"));
     alignActionGroup->setUsesDropDown(0);
-    leftAlignAction= Qt::Action(alignActionGroup,"leftAlignAction");
+    leftAlignAction= TQt::Action(alignActionGroup,"leftAlignAction");
     leftAlignAction->setToggleAction(1);
-    leftAlignAction->setIconSet(Qt::IconSet(uic_load_pixmap_EditorForm("textleft")));
+    leftAlignAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("textleft")));
     leftAlignAction->setText(this->trUtf8("left"));
     leftAlignAction->setMenuText(this->trUtf8("&Left"));
-    leftAlignAction->setAccel(Qt::KeySequence(int(272629836)));
-    rightAlignAction= Qt::Action(alignActionGroup,"rightAlignAction");
+    leftAlignAction->setAccel(TQt::KeySequence(int(272629836)));
+    rightAlignAction= TQt::Action(alignActionGroup,"rightAlignAction");
     rightAlignAction->setToggleAction(1);
-    rightAlignAction->setIconSet(Qt::IconSet(uic_load_pixmap_EditorForm("textright")));
+    rightAlignAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("textright")));
     rightAlignAction->setText(this->trUtf8("right"));
     rightAlignAction->setMenuText(this->trUtf8("&Right"));
-    rightAlignAction->setAccel(Qt::KeySequence(int(272629842)));
-    centerAlignAction= Qt::Action(alignActionGroup,"centerAlignAction");
+    rightAlignAction->setAccel(TQt::KeySequence(int(272629842)));
+    centerAlignAction= TQt::Action(alignActionGroup,"centerAlignAction");
     centerAlignAction->setToggleAction(1);
-    centerAlignAction->setIconSet(Qt::IconSet(uic_load_pixmap_EditorForm("textcenter")));
+    centerAlignAction->setIconSet(TQt::IconSet(uic_load_pixmap_EditorForm("textcenter")));
     centerAlignAction->setText(this->trUtf8("center"));
     centerAlignAction->setMenuText(this->trUtf8("&Center"));
 
 
-    toolBar = Qt::ToolBar("", this, &DockTop);
+    toolBar = TQt::ToolBar("", this, &DockTop);
 
     toolBar->setLabel(this->trUtf8("Tools"));
     fileNewAction->addTo(toolBar);
@@ -208,7 +208,7 @@ sub NEW
     editCutAction->addTo(toolBar);
     editCopyAction->addTo(toolBar);
     editPasteAction->addTo(toolBar);
-    Toolbar = Qt::ToolBar("", this, &DockTop);
+    Toolbar = TQt::ToolBar("", this, &DockTop);
 
     Toolbar->setLabel(this->trUtf8("Toolbar"));
     leftAlignAction->addTo(Toolbar);
@@ -220,16 +220,16 @@ sub NEW
     underlineAction->addTo(Toolbar);
     Toolbar->addSeparator;
 
-    fontComboBox = Qt::ComboBox(0, Toolbar, "fontComboBox");
+    fontComboBox = TQt::ComboBox(0, Toolbar, "fontComboBox");
 
-    SpinBox2 = Qt::SpinBox(Toolbar, "SpinBox2");
+    SpinBox2 = TQt::SpinBox(Toolbar, "SpinBox2");
     SpinBox2->setMinValue(int(6));
     SpinBox2->setValue(int(10));
 
 
-    menubar= Qt::MenuBar( this, "menubar");
+    menubar= TQt::MenuBar( this, "menubar");
 
-    fileMenu= Qt::PopupMenu(this);
+    fileMenu= TQt::PopupMenu(this);
     fileNewAction->addTo(fileMenu);
     fileOpenAction->addTo(fileMenu);
     fileSaveAction->addTo(fileMenu);
@@ -238,7 +238,7 @@ sub NEW
     fileExitAction->addTo(fileMenu);
     menubar->insertItem(this->trUtf8("&File"), fileMenu);
 
-    editMenu= Qt::PopupMenu(this);
+    editMenu= TQt::PopupMenu(this);
     editUndoAction->addTo(editMenu);
     editRedoAction->addTo(editMenu);
     editMenu->insertSeparator;
@@ -247,7 +247,7 @@ sub NEW
     editPasteAction->addTo(editMenu);
     menubar->insertItem(this->trUtf8("&Edit"), editMenu);
 
-    PopupMenu_2= Qt::PopupMenu(this);
+    PopupMenu_2= TQt::PopupMenu(this);
     leftAlignAction->addTo(PopupMenu_2);
     rightAlignAction->addTo(PopupMenu_2);
     centerAlignAction->addTo(PopupMenu_2);
@@ -257,7 +257,7 @@ sub NEW
     underlineAction->addTo(PopupMenu_2);
     menubar->insertItem(this->trUtf8("F&ormat"), PopupMenu_2);
 
-    helpMenu= Qt::PopupMenu(this);
+    helpMenu= TQt::PopupMenu(this);
     helpContentsAction->addTo(helpMenu);
     helpIndexAction->addTo(helpMenu);
     helpMenu->insertSeparator;
@@ -266,26 +266,26 @@ sub NEW
 
 
 
-    Qt::Object::connect(fileNewAction, SIGNAL "activated()", this, SLOT "fileNew()");
-    Qt::Object::connect(fileOpenAction, SIGNAL "activated()", this, SLOT "fileOpen()");
-    Qt::Object::connect(fileSaveAction, SIGNAL "activated()", this, SLOT "fileSave()");
-    Qt::Object::connect(fileSaveAsAction, SIGNAL "activated()", this, SLOT "fileSaveAs()");
-    Qt::Object::connect(fileExitAction, SIGNAL "activated()", this, SLOT "fileExit()");
-    Qt::Object::connect(helpIndexAction, SIGNAL "activated()", this, SLOT "helpIndex()");
-    Qt::Object::connect(helpContentsAction, SIGNAL "activated()", this, SLOT "helpContents()");
-    Qt::Object::connect(helpAboutAction, SIGNAL "activated()", this, SLOT "helpAbout()");
-    Qt::Object::connect(SpinBox2, SIGNAL "valueChanged(int)", textEdit, SLOT "setPointSize(int)");
-    Qt::Object::connect(editCutAction, SIGNAL "activated()", textEdit, SLOT "cut()");
-    Qt::Object::connect(editPasteAction, SIGNAL "activated()", textEdit, SLOT "paste()");
-    Qt::Object::connect(editCopyAction, SIGNAL "activated()", textEdit, SLOT "copy()");
-    Qt::Object::connect(editRedoAction, SIGNAL "activated()", textEdit, SLOT "redo()");
-    Qt::Object::connect(editUndoAction, SIGNAL "activated()", textEdit, SLOT "undo()");
-    Qt::Object::connect(alignActionGroup, SIGNAL "selected(QAction*)", this, SLOT "changeAlignment(QAction*)");
-    Qt::Object::connect(underlineAction, SIGNAL "toggled(bool)", textEdit, SLOT "setUnderline(bool)");
-    Qt::Object::connect(italicAction, SIGNAL "toggled(bool)", textEdit, SLOT "setItalic(bool)");
-    Qt::Object::connect(boldAction, SIGNAL "toggled(bool)", textEdit, SLOT "setBold(bool)");
-    Qt::Object::connect(fontComboBox, SIGNAL "activated(const QString&)", textEdit, SLOT "setFamily(const QString&)");
-    Qt::Object::connect(fontComboBox, SIGNAL "activated(const QString&)", textEdit, SLOT "setFocus()");
+    TQt::Object::connect(fileNewAction, TQT_SIGNAL "activated()", this, TQT_SLOT "fileNew()");
+    TQt::Object::connect(fileOpenAction, TQT_SIGNAL "activated()", this, TQT_SLOT "fileOpen()");
+    TQt::Object::connect(fileSaveAction, TQT_SIGNAL "activated()", this, TQT_SLOT "fileSave()");
+    TQt::Object::connect(fileSaveAsAction, TQT_SIGNAL "activated()", this, TQT_SLOT "fileSaveAs()");
+    TQt::Object::connect(fileExitAction, TQT_SIGNAL "activated()", this, TQT_SLOT "fileExit()");
+    TQt::Object::connect(helpIndexAction, TQT_SIGNAL "activated()", this, TQT_SLOT "helpIndex()");
+    TQt::Object::connect(helpContentsAction, TQT_SIGNAL "activated()", this, TQT_SLOT "helpContents()");
+    TQt::Object::connect(helpAboutAction, TQT_SIGNAL "activated()", this, TQT_SLOT "helpAbout()");
+    TQt::Object::connect(SpinBox2, TQT_SIGNAL "valueChanged(int)", textEdit, TQT_SLOT "setPointSize(int)");
+    TQt::Object::connect(editCutAction, TQT_SIGNAL "activated()", textEdit, TQT_SLOT "cut()");
+    TQt::Object::connect(editPasteAction, TQT_SIGNAL "activated()", textEdit, TQT_SLOT "paste()");
+    TQt::Object::connect(editCopyAction, TQT_SIGNAL "activated()", textEdit, TQT_SLOT "copy()");
+    TQt::Object::connect(editRedoAction, TQT_SIGNAL "activated()", textEdit, TQT_SLOT "redo()");
+    TQt::Object::connect(editUndoAction, TQT_SIGNAL "activated()", textEdit, TQT_SLOT "undo()");
+    TQt::Object::connect(alignActionGroup, TQT_SIGNAL "selected(TQAction*)", this, TQT_SLOT "changeAlignment(TQAction*)");
+    TQt::Object::connect(underlineAction, TQT_SIGNAL "toggled(bool)", textEdit, TQT_SLOT "setUnderline(bool)");
+    TQt::Object::connect(italicAction, TQT_SIGNAL "toggled(bool)", textEdit, TQT_SLOT "setItalic(bool)");
+    TQt::Object::connect(boldAction, TQT_SIGNAL "toggled(bool)", textEdit, TQT_SLOT "setBold(bool)");
+    TQt::Object::connect(fontComboBox, TQT_SIGNAL "activated(const TQString&)", textEdit, TQT_SLOT "setFamily(const TQString&)");
+    TQt::Object::connect(fontComboBox, TQT_SIGNAL "activated(const TQString&)", textEdit, TQT_SLOT "setFocus()");
 
     init();
 }
@@ -295,7 +295,7 @@ sub init
 {
 
     textEdit->setFocus;
-    my $fonts = Qt::FontDatabase;
+    my $fonts = TQt::FontDatabase;
     fontComboBox->insertStringList($fonts->families);
     my $font = lc textEdit->family;
     for(my $i = 0; $i < fontComboBox->count; $i++) {
@@ -349,12 +349,12 @@ sub helpIndex
 
 sub changeAlignment
 {
-    print "EditorForm->changeAlignment(QAction*): Not implemented yet.\n";
+    print "EditorForm->changeAlignment(TQAction*): Not implemented yet.\n";
 }
 
 sub saveAndContinue
 {
-    print "EditorForm->saveAndContinue(const QString&): Not implemented yet.\n";
+    print "EditorForm->saveAndContinue(const TQString&): Not implemented yet.\n";
 }
 
 1;
@@ -362,12 +362,12 @@ sub saveAndContinue
 
 package main;
 
-use Qt;
+use TQt;
 use EditorForm;
 use imageCollection;
 
-my $a = Qt::Application(\@ARGV);
-Qt::Object::connect($a, SIGNAL("lastWindowClosed()"), $a, SLOT("quit()"));
+my $a = TQt::Application(\@ARGV);
+TQt::Object::connect($a, TQT_SIGNAL("lastWindowClosed()"), $a, TQT_SLOT("quit()"));
 my $w = EditorForm;
 $a->setMainWidget($w);
 $w->show;