diff options
| author | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2012-01-01 18:24:37 -0600 |
|---|---|---|
| committer | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2012-01-01 18:24:37 -0600 |
| commit | 4e997a9c6e25689dca65a2ec573a599699ef8170 (patch) | |
| tree | fdb5ecac42fb8204df9fc8c9abe1c784d4719e0e /PerlQt/lib/Qt/GlobalSpace.pm | |
| parent | bfa107694b2507a7116f8856cafe4ab1375da8a9 (diff) | |
| download | libtqt-perl-4e997a9c6e25689dca65a2ec573a599699ef8170.tar.gz libtqt-perl-4e997a9c6e25689dca65a2ec573a599699ef8170.zip | |
Initial TQt conversion
Diffstat (limited to 'PerlQt/lib/Qt/GlobalSpace.pm')
| -rw-r--r-- | PerlQt/lib/Qt/GlobalSpace.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/PerlQt/lib/Qt/GlobalSpace.pm b/PerlQt/lib/Qt/GlobalSpace.pm index 65e481a..75f30a2 100644 --- a/PerlQt/lib/Qt/GlobalSpace.pm +++ b/PerlQt/lib/Qt/GlobalSpace.pm @@ -1,11 +1,11 @@ -package Qt::GlobalSpace; +package TQt::GlobalSpace; use strict; -require Qt; +require TQt; require Exporter; our @ISA = qw(Exporter); our @EXPORT; -our $allMeth = Qt::_internal::findAllMethods( Qt::_internal::idClass("QGlobalSpace") ); +our $allMeth = TQt::_internal::findAllMethods( TQt::_internal::idClass("TQGlobalSpace") ); no strict 'refs'; for my $proto( keys %$allMeth ) @@ -14,8 +14,8 @@ for my $proto( keys %$allMeth ) $proto =~ s/[\#\$\?]+$//; *{ $proto } = sub { - $Qt::_internal::autoload::AUTOLOAD = "Qt::GlobalSpace\::$proto"; - goto &Qt::GlobalSpace::AUTOLOAD + $TQt::_internal::autoload::AUTOLOAD = "TQt::GlobalSpace\::$proto"; + goto &TQt::GlobalSpace::AUTOLOAD } unless defined &$proto; push @EXPORT, $proto; } |