*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Sun, 11 Feb 1996 13:49:20 +0100
changeset 84 06f58dd9b0ae
parent 83 d1c3a873a376
child 85 8363b09e8c3c
*** empty log message ***
d_sample_display.rc
d_sun.rc
display.rc
h_sample_host.rc
smalltalk_r.rc
--- a/d_sample_display.rc	Sun Feb 11 13:48:34 1996 +0100
+++ b/d_sample_display.rc	Sun Feb 11 13:49:20 1996 +0100
@@ -1,5 +1,6 @@
 "*
  * $Header$
+ *
  * display related configuration - generic
  *
  * this is a dummy script -
--- a/d_sun.rc	Sun Feb 11 13:48:34 1996 +0100
+++ b/d_sun.rc	Sun Feb 11 13:49:20 1996 +0100
@@ -1,5 +1,6 @@
 "*
  * $Header$
+ *
  * display configuration - sun
  *"
 
--- a/display.rc	Sun Feb 11 13:48:34 1996 +0100
+++ b/display.rc	Sun Feb 11 13:49:20 1996 +0100
@@ -172,21 +172,33 @@
  * Moved this from code to here (from Image-class), for more flexibility
  * actually since this is not display- but host specific (naming conventions)
  * it should be moved into the host.rc or h_xxx.rc file
+ *
  * Some readers are optional and therefore, only installed if the
- * corresponding Smalltalk class is nonNil - this avoids warning messages
- * during startup, if classes are missing.
+ * corresponding Smalltalk class is nonNil; not accessing it as global,
+ * but via a SMalltalk>>at: message - this avoids warning messages
+ * during startup, if classes are missing and the globals are undefined.
  *"
 |formats rdr|
 
 formats := Image fileFormats.
-formats at:'.xbm'  put:XBMReader.
-formats at:'.bm'   put:XBMReader.
-formats at:'.tiff' put:TIFFReader.
-formats at:'.tif'  put:TIFFReader.
-formats at:'.TIF'  put:TIFFReader.
-formats at:'.gif'  put:GIFReader.
-formats at:'.GIF'  put:GIFReader.
+rdr := Smalltalk at:#XBMReader ifAbsent:nil.
+rdr notNil ifTrue:[
+    formats at:'.xbm'  put:rdr.
+    formats at:'.bm'   put:rdr.
+].
+rdr := Smalltalk at:#TIFFReader ifAbsent:nil.
+rdr notNil ifTrue:[
+    formats at:'.tiff' put:rdr.
+    formats at:'.tif'  put:rdr.
+    formats at:'.TIF'  put:rdr.
+].
+rdr := Smalltalk at:#GIFReader ifAbsent:nil.
+rdr notNil ifTrue:[
+    formats at:'.gif'  put:rdr.
+    formats at:'.GIF'  put:rdr.
+].
 
+"/ still to come ...
 "/ formats at:'.img'  put:IMGReader.
 "/ formats at:'.IMG'  put:IMGReader.
 "/ formats at:'.mac'  put:MacPaintReader. 
@@ -197,6 +209,7 @@
     formats at:'.icon' put:rdr.
 ].
 
+"/ still to come ...
 "/ formats at:'.g3'   put:G3FileReader.   
 
 rdr := Smalltalk at:#WindowsIconReader ifAbsent:nil.
@@ -221,7 +234,10 @@
     formats at:'.pgm'  put:rdr.
 ].
 
-formats at:'.form' put:ST80FormReader.
+rdr := Smalltalk at:#ST80FormReader ifAbsent:nil.
+rdr notNil ifTrue:[
+    formats at:'.form' put:rdr.
+].
 
 rdr := Smalltalk at:#FaceReader ifAbsent:nil.
 rdr notNil ifTrue:[
@@ -246,7 +262,10 @@
     formats at:'.TGA'  put:rdr.
 ].
 
-formats at:'.xwd'  put:XWDReader.
+rdr := Smalltalk at:#XWDReader ifAbsent:nil.
+rdr notNil ifTrue:[
+    formats at:'.xwd'  put:rdr.
+].
 
 rdr := Smalltalk at:#BlitImageReader ifAbsent:nil.
 rdr notNil ifTrue:[
@@ -390,7 +409,9 @@
 
 displayType notNil ifTrue:[
     (Smalltalk at:#'_ImageDisplayName') ~= displayType ifTrue:[
-	('trying display setup d_' , displayType , '.rc ...') errorPrintNL.
+	Smalltalk isStandAloneApp ifFalse:[
+	    ('trying display setup d_' , displayType , '.rc ...') errorPrintNL.
+	].
 	Smalltalk fileIn:('d_' , displayType , '.rc')
     ].
     Smalltalk at:#'_ImageDisplayName' put:displayType
--- a/h_sample_host.rc	Sun Feb 11 13:48:34 1996 +0100
+++ b/h_sample_host.rc	Sun Feb 11 13:49:20 1996 +0100
@@ -1,5 +1,6 @@
 "*
  * $Header$
+ *
  * sample startup configuration for host specific stuff -
  *
  * You should copy this file to h_<your_host_name>.rc
--- a/smalltalk_r.rc	Sun Feb 11 13:48:34 1996 +0100
+++ b/smalltalk_r.rc	Sun Feb 11 13:49:20 1996 +0100
@@ -1,5 +1,6 @@
 "*
  * $Header$
+ *
  * restart configuration for smalltalk
  *
  * this file plays the role of smalltalk.rc when an image