class: Annotation
authorClaus Gittinger <cg@exept.de>
Tue, 06 Nov 2012 00:27:14 +0100
changeset 14500 f5e4720f7fb6
parent 14499 6ed948158d25
child 14501 b54655afc099
class: Annotation comment/format in: #method:key:arguments:
Annotation.st
--- a/Annotation.st	Mon Nov 05 22:13:16 2012 +0100
+++ b/Annotation.st	Tue Nov 06 00:27:14 2012 +0100
@@ -146,7 +146,7 @@
 
     ^
     "/ cg: do not react on all those methods inherited from Object (such as inline:)
-    "/ self respondsTo: key)
+    "/ (self respondsTo: key)
     (self class includesSelector:key) 
         ifTrue:
             [self 
@@ -195,6 +195,8 @@
     "Created: / 16-07-2010 / 11:31:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
+
 !Annotation class methodsFor:'finding'!
 
 allNamed: aSymbol from: aSubClass to: aSuperClass
@@ -257,6 +259,7 @@
     "Modified: / 20-08-2011 / 21:31:49 / cg"
 ! !
 
+
 !Annotation methodsFor:'accessing'!
 
 first
@@ -685,11 +688,11 @@
 !Annotation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.12 2012-10-29 10:25:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.13 2012-11-05 23:27:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.12 2012-10-29 10:25:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.13 2012-11-05 23:27:14 cg Exp $'
 !
 
 version_SVN