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/examples/richedit/imageCollection.pm | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'PerlQt/examples/richedit/imageCollection.pm')

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 = ();
 }
-- 
cgit v1.2.3