JavaClass.st
changeset 3417 1cde6fd1d7c7
parent 3388 848666cb09c2
child 3424 9cce89694276
equal deleted inserted replaced
3416:adc4701c043b 3417:1cde6fd1d7c7
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 1996-2015 by Claus Gittinger
     4  COPYRIGHT (c) 1996-2015 by Claus Gittinger
     3 
     5 
     4  New code and modifications done at SWING Research Group [1]:
     6  New code and modifications done at SWING Research Group [1]:
     5 
     7 
   794 
   796 
   795     components := binaryName asCollectionOfSubstringsSeparatedBy:$/.
   797     components := binaryName asCollectionOfSubstringsSeparatedBy:$/.
   796     components size > 1 ifTrue:[
   798     components size > 1 ifTrue:[
   797         ^ (components copyButLast:1) asStringWith:$.
   799         ^ (components copyButLast:1) asStringWith:$.
   798     ].
   800     ].
   799     ^ binaryName
   801     ^ ''
   800 
   802 
   801     "
   803     "
   802      Java allClasses first fullName
   804      Java allClasses first fullName
   803      Java allClasses first javaPackage
   805      Java allClasses first javaPackage
   804      Java allClasses first package
   806      Java allClasses first package
   805     "
   807     "
       
   808 
       
   809     "Modified: / 27-03-2015 / 16:19:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   806 !
   810 !
   807 
   811 
   808 javaPackageAsDirname
   812 javaPackageAsDirname
   809     "the javaPackage - as directory in class path"
   813     "the javaPackage - as directory in class path"
   810 
   814