JavaBehavior.st
branchdevelopment
changeset 2066 19396e6e040f
parent 1864 60a8dc26c8c6
child 2069 75d40b7b986f
equal deleted inserted replaced
2065:bb07b63f490a 2066:19396e6e040f
   157 
   157 
   158 constantPool
   158 constantPool
   159     ^ constantPool
   159     ^ constantPool
   160 !
   160 !
   161 
   161 
       
   162 interfaceNames
       
   163     "Returns set of intefaces as java names (dotted)"
       
   164     ^( interfaces ? #() ) collect:[:e|e isJavaClassRef ifTrue:[e javaClassName] ifFalse:[e name asDottedJavaClassName]].
       
   165 
       
   166     "Created: / 13-02-2013 / 09:33:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
   167 !
       
   168 
   162 interfaces
   169 interfaces
   163     interfaces notNil ifTrue:[
   170     interfaces notNil 
   164 	interfaces := interfaces collect:[:clsRef |
   171         ifTrue:
   165 				    clsRef isUnresolved ifTrue:[
   172             [ interfaces := interfaces collect:
   166 					clsRef preResolve
   173                 [:clsRef | clsRef javaClass ] ].
   167 				    ] ifFalse:[
   174 
   168 					clsRef
   175     ^ interfaces ? #()
   169 				    ]
   176 
   170 				 ].
   177     "Modified: / 31-05-2011 / 09:40:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   171     ].
       
   172     ^ interfaces
       
   173 ! !
   178 ! !
   174 
   179 
   175 !JavaBehavior methodsFor:'compiler interface'!
   180 !JavaBehavior methodsFor:'compiler interface'!
   176 
   181 
   177 programmingLanguage
   182 programmingLanguage
   367 
   372 
   368 version_SVN
   373 version_SVN
   369     ^ '§Id§'
   374     ^ '§Id§'
   370 ! !
   375 ! !
   371 
   376 
       
   377 
   372 JavaBehavior initialize!
   378 JavaBehavior initialize!