ResourcePack not required.
authorClaus Gittinger <cg@exept.de>
Wed, 26 Jan 2005 18:40:49 +0100
changeset 8715 631211fda967
parent 8714 b93862ab1caa
child 8716 9fe96eaed619
ResourcePack not required.
AbstractOperatingSystem.st
--- a/AbstractOperatingSystem.st	Wed Jan 26 18:29:41 2005 +0100
+++ b/AbstractOperatingSystem.st	Wed Jan 26 18:40:49 2005 +0100
@@ -169,7 +169,10 @@
 !AbstractOperatingSystem class methodsFor:'initialization'!
 
 initResources
-    Resources := ResourcePack forPackage:(self package).
+    "/ allow for ResourcePack class to be missing (non-GUI smalltalks)
+    ResourcePack notNil ifTrue:[
+        Resources := ResourcePack forPackage:(self package).
+    ]
 !
 
 initialize
@@ -5587,7 +5590,7 @@
 !AbstractOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.138 2004-12-20 19:55:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.139 2005-01-26 17:40:49 cg Exp $'
 ! !
 
 AbstractOperatingSystem initialize!