--- a/Annotation.st Fri Jul 20 14:32:04 2012 +0100
+++ b/Annotation.st Wed Jul 25 09:45:15 2012 +0100
@@ -39,17 +39,6 @@
privateIn:Annotation
!
-Annotation comment:'I represent an occurrence of a pragma in a compiled method. A pragma is a literal message pattern that occurs between angle brackets at the start of a method after any temporaries. A common example is the primitive pragma:
- <primitive: 123 errorCode: ''errorCode''>
-but one can add one''s own and use them as metadata attached to a method. Because pragmas are messages one can browsse senders and implementors and perform them. One can query a method for its pragmas by sendng it the pragmas message, which answers an Array of instances of me, one for each pragma in the method.
-I can provide information about the defining class, method, its selector, as well as the information about the pragma keyword and its arguments. See the two ''accessing'' protocols for details. ''accessing-method'' provides information about the method the pragma is found in, while ''accessing-pragma'' is about the pragma itself.
-Instances are retrieved using one of the pragma search methods of the ''finding'' protocol on the class side.
-To browse all methods with pragmas in the system evaluate
- SystemNavigation default browseAllSelect: [:m| m pragmas notEmpty]
-and to browse all nonprimitive methods with pragmas evaluate
- SystemNavigation default browseAllSelect: [:m| m primitive isZero and: [m pragmas notEmpty]]'
-!
-
!Annotation class methodsFor:'documentation'!
copyright
@@ -383,6 +372,12 @@
"Modified: / 21-08-2011 / 12:46:31 / cg"
!
+isResource
+ ^ false
+
+ "Created: / 18-07-2012 / 19:28:39 / cg"
+!
+
isUnknown
^ false
! !
@@ -500,6 +495,14 @@
"Modified: / 16-07-2010 / 11:28:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+!Annotation::Resource methodsFor:'testing'!
+
+isResource
+ ^ true
+
+ "Created: / 18-07-2012 / 19:28:46 / cg"
+! !
+
!Annotation::Unknown methodsFor:'accessing'!
arguments
@@ -570,21 +573,15 @@
!Annotation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.7 2011/11/29 10:19:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.8 2012/07/18 17:33:44 cg Exp $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.7 2011/11/29 10:19:47 cg Exp '
+ ^ '§Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.8 2012/07/18 17:33:44 cg Exp §'
!
version_SVN
- ^ '$Id: Annotation.st 10761 2012-01-19 11:46:00Z vranyj1 $'
+ ^ '$Id: Annotation.st 10829 2012-07-25 08:45:15Z vranyj1 $'
! !
Annotation initialize!
-
-
-
-
-
-