diff options
Diffstat (limited to 'PerlQt/examples/richedit/imageCollection.pm')
| -rw-r--r-- | PerlQt/examples/richedit/imageCollection.pm | 26 |
1 files changed, 13 insertions, 13 deletions
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 = (); } |