--- a/Project.st Wed Apr 23 19:09:32 2003 +0200
+++ b/Project.st Wed Apr 23 19:23:37 2003 +0200
@@ -3012,9 +3012,7 @@
self warn:'no classes in current project'
] ifFalse:[
classes do:[:aClass |
- aClass isLoaded ifFalse:[
- aClass autoload.
- ].
+ aClass autoload.
].
"/ to not list private classes
classes := classes select:[:cls | cls owningClass isNil].
@@ -3960,7 +3958,7 @@
!Project class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.185 2003-04-11 17:38:06 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.186 2003-04-23 17:23:37 cg Exp $'
! !
Project initialize!