add JavaClass>>canCacheReferences development
authorMarcel Hlopko <marcel.hlopko@gmail.com>
Tue, 10 Sep 2013 00:14:14 +0200
branchdevelopment
changeset 2746 3d4c32e21475
parent 2745 d82859be4462
child 2749 b097de8f18b1
add JavaClass>>canCacheReferences
JavaClass.st
--- a/JavaClass.st	Tue Sep 10 00:11:17 2013 +0200
+++ b/JavaClass.st	Tue Sep 10 00:14:14 2013 +0200
@@ -2276,6 +2276,12 @@
     "Created: / 5.11.1998 / 23:04:50 / cg"
 !
 
+canCacheReferences
+    ^ self versions isNil or: [ self versions isEmpty ].
+
+    "Created: / 10-09-2013 / 00:07:40 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
+!
+
 canHaveExtensions
     ^false
 
@@ -2854,7 +2860,7 @@
     "
 
     (self versions isNil and: [ aJavaClass versions isNil ]) ifTrue: [
-|versions|
+        |versions|
         versions := WeakArray with: self with: aJavaClass.
         versions addDependent: JavaClass::JavaClassVersionDiedHandler new.
         self versions: versions.
@@ -2874,6 +2880,7 @@
     self error: 'merge of two classes both of which have multiple versions not supported'.
 
     "Created: / 14-04-2013 / 13:44:03 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
+    "Modified (format): / 09-09-2013 / 23:27:18 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
 ! !
 
 !JavaClass::JavaClassVersionDiedHandler class methodsFor:'documentation'!