JavaFieldDescriptor.st
changeset 3415 f9924b63a007
parent 3324 a58245c0e83a
child 3508 622620308fee
--- a/JavaFieldDescriptor.st	Fri Mar 27 08:51:08 2015 +0000
+++ b/JavaFieldDescriptor.st	Mon Mar 30 11:27:32 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1996-2015 by Claus Gittinger
 
@@ -20,6 +22,8 @@
 "
 "{ Package: 'stx:libjava' }"
 
+"{ NameSpace: Smalltalk }"
+
 JavaDescriptor subclass:#JavaFieldDescriptor
 	instanceVariableNames:'javaClassName javaClass dimensions'
 	classVariableNames:''
@@ -77,10 +81,6 @@
     "Modified: / 16-08-2012 / 13:29:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-dimensions:something
-    dimensions := something.
-!
-
 javaClass
     javaClass isNil ifTrue: [ 
         javaClass := JavaVM classForName: self javaClassName.
@@ -167,6 +167,17 @@
     "Modified: / 06-12-2011 / 21:41:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!JavaFieldDescriptor methodsFor:'private'!
+
+beArrayType
+    dimensions := (dimensions ? 0) + 1.
+    javaClass notNil ifTrue:[ 
+        javaClass := javaClass javaArrayClass.
+    ].
+
+    "Created: / 30-03-2015 / 10:08:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !JavaFieldDescriptor methodsFor:'queries'!
 
 slots