src/JavaClassRef2.st
branchjk_new_structure
changeset 761 43e017ec7958
parent 758 be8e84381ce0
child 771 fb8026dda011
--- a/src/JavaClassRef2.st	Mon Apr 25 19:32:44 2011 +0000
+++ b/src/JavaClassRef2.st	Sun May 01 12:52:23 2011 +0000
@@ -20,14 +20,23 @@
 
 !JavaClassRef2 methodsFor:'accessing'!
 
+classLoader
+owner ifNil:[^nil] ifNotNil:[^owner classLoader].
+
+    "Created: / 11-04-2011 / 21:52:06 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+!
+
 javaClassName
-"return java class name as written in java programs e.g. java.util.String
-in case of array, return class name without square brackets"
-|tmp|
-tmp := (name replaceAll:'[' with: '').
-^ tmp copyFrom: 2 to: tmp size.
+    "return java class name as written in java programs e.g. java.util.String
+     in case of array, return class name without square brackets"
+    
+    | tmp |
+
+    tmp := (name replaceAll: '[' with: '').
+    ^ tmp copyFrom: 2 to: tmp size -1.
 
     "Created: / 08-04-2011 / 18:30:44 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+    "Modified: / 11-04-2011 / 19:23:49 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
 !
 
 name
@@ -78,6 +87,14 @@
 
 !JavaClassRef2 methodsFor:'private - resolving'!
 
+findResolvedStaticValue
+    "Resolving static inner classes is not different from resolving any other class, it's only done in different circumstances"
+    
+    ^ self findResolvedValue.
+
+    "Created: / 28-04-2011 / 21:57:46 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+!
+
 findResolvedValue
     "Resolve reference and set valueCache."
     
@@ -87,6 +104,14 @@
     "Modified: / 08-04-2011 / 17:39:03 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
 ! !
 
+!JavaClassRef2 methodsFor:'queries'!
+
+isJavaClassRef
+^true.
+
+    "Created: / 11-04-2011 / 19:10:00 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+! !
+
 !JavaClassRef2 methodsFor:'resolving'!
 
 invalidateForClass: internalJavaClassName 
@@ -105,3 +130,4 @@
     ^ '$Id$'
 ! !
 
+