From 795a0355a40293affc7164507e918440d4a828d6 Mon Sep 17 00:00:00 2001
From: Timothy Pearson <kb9vqf@pearsoncomputing.net>
Date: Sun, 1 Jan 2012 18:43:39 -0600
Subject: Move Qt

---
 PerlTQt/lib/Qt/attributes.pm | 51 --------------------------------------------
 1 file changed, 51 deletions(-)
 delete mode 100644 PerlTQt/lib/Qt/attributes.pm

(limited to 'PerlTQt/lib/Qt/attributes.pm')

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;
-- 
cgit v1.2.3