Move Qt

1 files changed, 0 insertions, 51 deletions

diff --git a/PerlTQt/lib/Qt/attributes.pm b/PerlTQt/lib/Qt/attributes.pm
deleted file mode 100644
index 4398fa5..0000000
--- a/PerlTQt/lib/Qt/attributes.pm
+++ /dev/null
@@ -1,51 +0,0 @@
-package TQt::attributes;
-#
-# I plan to support public/protected/private attributes. here goes.
-# Attributes default to protected.
-#
-# package MyBase;
-# use TQt::attributes qw(
-# private:
-#    foo
-# protected:
-#    bar
-# public:
-#    baz
-# );
-#
-# package MyDerived;
-# use TQt::isa qw(MyBase);
-#
-# sub foo {
-#     # 1 way to access private attributes from derived class
-#     #
-#     # this->{$class} contains private attributes for $class
-#     # I specify it to always work that way,
-#     # so feel free to use it in code.
-#     this->{MyBase}{foo} = 10;
-#
-#     # 2 ways to access protected attributes
-#     bar = 10;
-#     this->{bar} = 10;
-#
-#     # 3 ways to access public attributes
-#     baz = 10;
-#     this->{baz} = 10;
-#     this->baz = 10;
-# }
-#
-# Attributes override any method with the same name, so you may want
-# to prefix them with _ to prevent conflicts.
-#
-sub import {
-    my $class = shift;
-    my $caller = (caller)[0];
-
-    for my $attribute (@_) {
-	exists ${ ${$caller . '::META'}{'attributes'} }{$attribute} and next;
-	TQt::_internal::installattribute($caller, $attribute);
-        ${ ${$caller . '::META'}{'attributes'} }{$attribute} = 1;
-    }
-}
-
-1;