src/extensions.st
branchjk_new_structure
changeset 1060 c3ac98001802
parent 1038 bf2ece5a5362
child 1061 59aed4985b1d
--- a/src/extensions.st	Sun Oct 30 13:04:54 2011 +0000
+++ b/src/extensions.st	Sun Oct 30 17:12:34 2011 +0000
@@ -13,18 +13,13 @@
 !CharacterArray methodsFor:'java conversions'!
 
 asInternalJavaClassName
-    "removes square brackets and adds slashes"
-    | internalName |
-    internalName := self asJavaComponentClassName.
-    (internalName startsWith: $L) ifTrue: [
-        internalName := internalName copyFrom: 2 to: internalName size - 1
-    ].
-    (internalName includes: $.) ifTrue: [
-        internalName := internalName asString copyReplaceAll: $. with: $/
-    ].
-    ^ internalName.
+
+    <resource: #obsolete>
+
+    ^self asSlashedJavaClassName
 
     "Created: / 21-10-2011 / 12:31:51 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+    "Modified: / 30-10-2011 / 17:40:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CharacterArray methodsFor:'java conversions'!
 
@@ -42,14 +37,13 @@
 !CharacterArray methodsFor:'java conversions'!
 
 asJavaishClassName
-    "
-    examples:
-    java.lang.String    
-    [[[Ljava/lang/Object; => java.lang.Object
-    "
-    self asJavaComponentClassName asNiceJavaClassName.
+
+    <resource: #obsolete>
+
+    ^self asDottedJavaClassName.
 
     "Created: / 21-10-2011 / 12:33:01 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+    "Modified: / 30-10-2011 / 17:41:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 !CharacterArray methodsFor:'java conversions'!