*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 13 Feb 2009 12:15:33 +0100
changeset 11532 d423d283b424
parent 11531 30f1ba816a81
child 11533 7739d9d8e06a
*** empty log message ***
ProjectDefinition.st
--- a/ProjectDefinition.st	Fri Feb 13 12:10:49 2009 +0100
+++ b/ProjectDefinition.st	Fri Feb 13 12:15:33 2009 +0100
@@ -2851,6 +2851,7 @@
                 ].
 
             putDependencyForClassBaseNameBlock := [:clsBaseName |
+
                     s nextPutAll:'$(OUTDIR)'.
                     s nextPutAll:clsBaseName.
                     s nextPutAll:'.$(O)'.
@@ -3633,6 +3634,13 @@
     hasClassesToLoad ifTrue:[
         loadedClasses := OrderedCollection new.
 
+        self packageDirectory isNil ifTrue:[
+            self 
+                error:('[',self name,'] cannot install because packageDirectory is unknown')
+                mayProceed:true.
+            ^ false.
+        ].
+
         "we need the abbreviations, since sometimes there is no 1-to-1 mapping
          of class name to file name"
 
@@ -4119,7 +4127,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.209 2009-01-19 11:29:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.210 2009-02-13 11:15:33 cg Exp $'
 ! !
 
 ProjectDefinition initialize!