catch error during install-as-autoloaded
authorClaus Gittinger <cg@exept.de>
Mon, 20 Oct 2008 12:24:51 +0200
changeset 11241 055b598f7c4d
parent 11240 4ce9c8fa3d37
child 11242 ea498cc85663
catch error during install-as-autoloaded
ProjectDefinition.st
--- a/ProjectDefinition.st	Sun Oct 19 23:25:30 2008 +0200
+++ b/ProjectDefinition.st	Mon Oct 20 12:24:51 2008 +0200
@@ -728,13 +728,17 @@
 installAutoloadedClasses
     (self classNamesForWhich:[:nm :attr | (attr includes:#autoload)]) 
         do:[:className |
-"/ 'install as autoloaded: ' errorPrint. className errorPrintCR.
+            "/ 'install as autoloaded: ' errorPrint. className errorPrintCR.
             (Smalltalk classNamed:className) isNil ifTrue:[
-                Smalltalk
-                    installAutoloadedClassNamed:className
-                    category:'* as yet unknown category *' 
-                    package:self package 
-                    revision:nil
+                Error handle:[:ex |
+                    ('ProjectDefinition [warning]: failed to install autoloaded: ',className) errorPrintCR
+                ] do:[
+                    Smalltalk
+                        installAutoloadedClassNamed:className
+                        category:'* as yet unknown category *' 
+                        package:self package 
+                        revision:nil
+                ].
             ].
         ].
 
@@ -4093,7 +4097,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.201 2008-09-22 14:04:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.202 2008-10-20 10:24:51 cg Exp $'
 ! !
 
 ProjectDefinition initialize!