src/Java.st
branchjk_new_structure
changeset 1612 ba527b3b17aa
parent 1595 164250a2ca43
child 1617 bc02a3b4cad8
equal deleted inserted replaced
1611:267a95ee06c2 1612:ba527b3b17aa
    20 "
    20 "
    21 "{ Package: 'stx:libjava' }"
    21 "{ Package: 'stx:libjava' }"
    22 
    22 
    23 Object subclass:#Java
    23 Object subclass:#Java
    24 	instanceVariableNames:''
    24 	instanceVariableNames:''
    25 	classVariableNames:'Classes UnresolvedClassRefs Release ClassPath ClassPathExt
    25 	classVariableNames:'Classes UnresolvedClassRefs Release ClassPath ClassPathPackages
    26 		SourceDirectories CacheDirectory JavaHome InternedStrings
    26 		ClassPathExt SourceDirectories SourceDirectoriesPackages
    27 		Java_lang_String Java_lang_Class PrettyPrintStyle
    27 		CacheDirectory JavaHome InternedStrings Java_lang_String
    28 		LastArgumentString Threads ExcludedClassPath FailedToLoadClasses
    28 		Java_lang_Class PrettyPrintStyle LastArgumentString Threads
    29 		SourceCache SourceArchiveCache JavaClassLoaderQuerySignal
    29 		ExcludedClassPath FailedToLoadClasses SourceCache
       
    30 		SourceArchiveCache JavaClassLoaderQuerySignal
    30 		ClassLoaderQuerySignal ThreadsAccess'
    31 		ClassLoaderQuerySignal ThreadsAccess'
    31 	poolDictionaries:''
    32 	poolDictionaries:''
    32 	category:'Languages-Java-Support'
    33 	category:'Languages-Java-Support'
    33 !
    34 !
    34 
    35 
   372     "Modified: / 27-07-2012 / 12:27:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   373     "Modified: / 27-07-2012 / 12:27:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   373 !
   374 !
   374 
   375 
   375 classPathFromPackages
   376 classPathFromPackages
   376 
   377 
   377     | cp |
   378     ClassPathPackages isNil ifTrue:[
   378 
   379         ClassPathPackages := OrderedCollection new.
   379     cp := OrderedCollection new.
   380         ProjectDefinition allSubclassesDo:[:pkg|
   380     ProjectDefinition allSubclassesDo:[:pkg|
   381             self addToPath: ClassPathPackages path: pkg javaClassPath origin: JavaPathElement originPackage
   381         self addToPath: cp path: pkg javaClassPath origin: JavaPathElement originPackage
   382         ].
   382     ].
   383     ].
   383     ^cp.
   384     ^ClassPathPackages
   384 
   385 
   385 
   386 
   386     "
   387     "
   387         Java classPathFromPackages
   388         Java classPathFromPackages
   388         Java addToClassPath: Java classPathFromPackages
   389         Java addToClassPath: Java classPathFromPackages
   565     "Modified: / 14-12-2011 / 20:00:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   566     "Modified: / 14-12-2011 / 20:00:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   566 !
   567 !
   567 
   568 
   568 sourcePathFromPackages
   569 sourcePathFromPackages
   569 
   570 
   570     | sp |
   571     SourceDirectoriesPackages isNil ifTrue:[
   571 
   572         SourceDirectoriesPackages := OrderedCollection new.
   572     sp := OrderedCollection new.
   573         ProjectDefinition allSubclassesDo:[:pkg|
   573     ProjectDefinition allSubclassesDo:[:pkg|
   574             self addToPath: SourceDirectoriesPackages path: pkg javaSourcePath origin: JavaPathElement originPackage
   574         self addToPath: sp path: pkg javaSourcePath origin: JavaPathElement originPackage
   575         ].
   575     ].
   576     ].
   576     ^sp.
   577     ^SourceDirectoriesPackages.
   577 
   578 
   578 
   579 
   579     "
   580     "
   580         Java classPathFromPackages
   581         Java sourcePathFromPackages
   581     "
   582     "
   582 
   583 
   583     "Created: / 07-02-1997 / 19:23:45 / cg"
   584     "Created: / 07-02-1997 / 19:23:45 / cg"
   584     "Created: / 14-12-2011 / 19:59:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   585     "Created: / 14-12-2011 / 19:59:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   585 ! !
   586 ! !