--- a/LibraryDefinition.st Mon Aug 21 19:11:23 2006 +0200
+++ b/LibraryDefinition.st Mon Aug 21 19:11:34 2006 +0200
@@ -13,10 +13,10 @@
"{ Package: 'stx:libbasic3' }"
ProjectDefinition subclass:#LibraryDefinition
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'System-Support-Projects'
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'System-Support-Projects'
!
!LibraryDefinition class methodsFor:'documentation'!
@@ -638,7 +638,8 @@
s nextPutLine: newClassLine
].
- self compiled_classNames do:putLineForClassName.
+ self common_compiled_classNames do:putLineForClassName.
+
#(
('UNIX' #unix)
('WIN32' #win32)
@@ -664,7 +665,7 @@
"Created: / 09-08-2006 / 11:21:48 / fm"
"Modified: / 16-08-2006 / 18:52:10 / User"
- "Modified: / 18-08-2006 / 13:41:37 / cg"
+ "Modified: / 21-08-2006 / 18:47:21 / cg"
!
generateExtensionLine_libInit_dot_cc
@@ -886,7 +887,7 @@
self searchForClasses do:[:eachClass |
|attributes specEntry|
- eachClass isPrivate ifFalse:[
+ (eachClass isLoaded not or:[eachClass isPrivate not]) ifTrue:[
specEntry := self classNamesAndAttributes detect:[:entry | entry first = eachClass name] ifNone:nil.
specEntry notNil ifTrue:[
attributes := specEntry copyFrom:2.
@@ -913,6 +914,7 @@
"Modified: / 08-08-2006 / 19:24:34 / fm"
"Created: / 17-08-2006 / 21:03:07 / cg"
+ "Modified: / 21-08-2006 / 18:41:25 / cg"
!
extensionMethodNames_code
@@ -952,5 +954,5 @@
!LibraryDefinition class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.35 2006-08-21 14:41:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.36 2006-08-21 17:11:34 cg Exp $'
! !