--- a/Method.st Wed Aug 01 18:12:06 2018 +0200
+++ b/Method.st Wed Aug 01 22:41:31 2018 +0200
@@ -1070,6 +1070,7 @@
"Modified (format): / 18-11-2011 / 14:47:06 / cg"
! !
+
!Method methodsFor:'accessing-visibility'!
isIgnored
@@ -2708,19 +2709,6 @@
"Modified (comment): / 25-09-2012 / 12:01:32 / cg"
!
-isAbstract
- "true if I send any of the subclassResponsibility messages"
-
- ^ self
- sendsAnySelector:#(
- #subclassResponsibility #subclassResponsibility:
- #implementedBySubclass "/ ST/V code uses this
- #shouldNotImplement
- ).
-
- "Created: / 16-07-2017 / 11:25:54 / cg"
-!
-
isDocumentationMethod
"Return true, if this is a documentation only (only a comment) method
(implies being a metaclass method)"
@@ -3210,7 +3198,9 @@
LastParseTreeCache isNil ifTrue:[
LastParseTreeCache := CacheDictionary new:500.
].
- LastParseTreeCache at:self put:(ParserCacheEntry new method:self parser:parser).
+ LastParseTreeCache
+ at:self
+ put:(ParserCacheEntry new method:self parser:parser).
].
].
^ parser perform:accessSelector
@@ -3226,6 +3216,7 @@
"Modified: / 26-02-2017 / 12:05:50 / cg"
"Modified: / 12-04-2018 / 08:51:07 / stefan"
+ "Modified (format): / 01-08-2018 / 22:24:59 / Claus Gittinger"
!
parseAnnotations
@@ -3833,6 +3824,7 @@
"Created: / 23-07-2012 / 11:16:36 / cg"
! !
+
!Method methodsFor:'source management'!
revisionInfo