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/attributes.pm | |
| parent | bfa107694b2507a7116f8856cafe4ab1375da8a9 (diff) | |
| download | libtqt-perl-4e997a9c6e25689dca65a2ec573a599699ef8170.tar.gz libtqt-perl-4e997a9c6e25689dca65a2ec573a599699ef8170.zip | |
Initial TQt conversion
Diffstat (limited to 'PerlQt/lib/Qt/attributes.pm')
| -rw-r--r-- | PerlQt/lib/Qt/attributes.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/PerlQt/lib/Qt/attributes.pm b/PerlQt/lib/Qt/attributes.pm index 3a25487..4398fa5 100644 --- a/PerlQt/lib/Qt/attributes.pm +++ b/PerlQt/lib/Qt/attributes.pm @@ -1,10 +1,10 @@ -package Qt::attributes; +package TQt::attributes; # # I plan to support public/protected/private attributes. here goes. # Attributes default to protected. # # package MyBase; -# use Qt::attributes qw( +# use TQt::attributes qw( # private: # foo # protected: @@ -14,7 +14,7 @@ package Qt::attributes; # ); # # package MyDerived; -# use Qt::isa qw(MyBase); +# use TQt::isa qw(MyBase); # # sub foo { # # 1 way to access private attributes from derived class @@ -43,7 +43,7 @@ sub import { for my $attribute (@_) { exists ${ ${$caller . '::META'}{'attributes'} }{$attribute} and next; - Qt::_internal::installattribute($caller, $attribute); + TQt::_internal::installattribute($caller, $attribute); ${ ${$caller . '::META'}{'attributes'} }{$attribute} = 1; } } |