--- 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