hg/stx-projects-smalltalk: display.rc@521e2d58f050 (annotated)

0 0cb137a77319 Initial revision claus parents: diff changeset	1	"*
0cb137a77319 Initial revision claus parents: diff changeset	2	* $Header$
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	3	*
399 5a842f5d7196 * empty log message * Claus Gittinger <cg@exept.de> parents: 394 diff changeset	4	* MIMEType: application/x-smalltalk-source
5a842f5d7196 * empty log message * Claus Gittinger <cg@exept.de> parents: 394 diff changeset	5	*
298 2e757f2d0232 comments Claus Gittinger <cg@exept.de> parents: 279 diff changeset	6	* ST/X startup display configuration file:
209 22793de5d56e * empty log message * Claus Gittinger <cg@exept.de> parents: 205 diff changeset	7	*
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	8	* DONT add site specific things here - use your own d_xxx.rc file instead
8 d82829c0d867 * empty log message * claus parents: 7 diff changeset	9	* where xxx stands for your displays hostname(s)
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	10	*
420e4af41733 * empty log message * claus parents: 3 diff changeset	11	* display related configuration:
298 2e757f2d0232 comments Claus Gittinger <cg@exept.de> parents: 279 diff changeset	12	* first do some common setup, then try to figure out
2e757f2d0232 comments Claus Gittinger <cg@exept.de> parents: 279 diff changeset	13	* the kind of display and find a
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	14	* display specific initialization file.
0 0cb137a77319 Initial revision claus parents: diff changeset	15	*"
0cb137a77319 Initial revision claus parents: diff changeset	16
0cb137a77319 Initial revision claus parents: diff changeset	17	"*
7 57c09d1b7f69 * empty log message * claus parents: 5 diff changeset	18	* define extensions for image files (i.e. extension-to-readerClass
57c09d1b7f69 * empty log message * claus parents: 5 diff changeset	19	* mappings). Some of the readers are autoloaded (see patches file).
57c09d1b7f69 * empty log message * claus parents: 5 diff changeset	20	* Moved this from code to here (from Image-class), for more flexibility
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	21	* actually since this is not display- but host specific (naming conventions)
420e4af41733 * empty log message * claus parents: 3 diff changeset	22	* it should be moved into the host.rc or h_xxx.rc file
84 06f58dd9b0ae * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	23	*
48 892180489f28 avoid warnings, if ImageReader classes are not available Claus Gittinger <cg@exept.de> parents: 47 diff changeset	24	* Some readers are optional and therefore, only installed if the
84 06f58dd9b0ae * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	25	* corresponding Smalltalk class is nonNil; not accessing it as global,
423 2cb5f72d1b0e * empty log message * Claus Gittinger <cg@exept.de> parents: 417 diff changeset	26	* but via a Smalltalk>>at: message - this avoids warning messages
84 06f58dd9b0ae * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	27	* during startup, if classes are missing and the globals are undefined.
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	28	*"
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	29	\|rdr\|
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	30
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	31	MIMETypes notNil ifTrue:[
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	32	rdr := Smalltalk at:#XBMReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	33	rdr notNil ifTrue:[
279 289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	34	MIMETypes defineImageType:'image/x-xbitmap' suffix:'xbm' reader:rdr.
289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	35	MIMETypes defineImageType:nil suffix:'bm' reader:rdr.
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	36	].
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	37	rdr := Smalltalk at:#TIFFReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	38	rdr notNil ifTrue:[
279 289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	39	MIMETypes defineImageType:'image/tiff' suffix:'tif' reader:rdr.
289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	40	MIMETypes defineImageType:nil suffix:'tiff' reader:rdr.
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	41	].
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	42	rdr := Smalltalk at:#GIFReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	43	rdr notNil ifTrue:[
279 289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	44	MIMETypes defineImageType:'image/gif' suffix:'gif' reader:rdr.
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	45	].
48 892180489f28 avoid warnings, if ImageReader classes are not available Claus Gittinger <cg@exept.de> parents: 47 diff changeset	46
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	47	"/ still to come ...
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	48	"/ '.img' put:IMGReader.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	49	"/ '.IMG' put:IMGReader.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	50	"/ '.mac' put:MacPaintReader.
7 57c09d1b7f69 * empty log message * claus parents: 5 diff changeset	51
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	52	rdr := Smalltalk at:#SunRasterReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	53	rdr notNil ifTrue:[
279 289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	54	MIMETypes defineImageType:nil suffix:'im8' reader:rdr.
289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	55	MIMETypes defineImageType:nil suffix:'icon' reader:rdr.
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	56	].
7 57c09d1b7f69 * empty log message * claus parents: 5 diff changeset	57
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	58	"/ still to come ...
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	59	"/ '.g3' put:G3FileReader.
7 57c09d1b7f69 * empty log message * claus parents: 5 diff changeset	60
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	61	rdr := Smalltalk at:#WindowsIconReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	62	rdr notNil ifTrue:[
279 289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	63	MIMETypes defineImageType:'image/x-MS-bmp' suffix:'bmp' reader:rdr.
338 c3432d77f4d7 * empty log message * Claus Gittinger <cg@exept.de> parents: 337 diff changeset	64	MIMETypes defineImageType:'image/x-MS-ico' suffix:'ico' reader:rdr.
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	65	].
7 57c09d1b7f69 * empty log message * claus parents: 5 diff changeset	66
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	67	rdr := Smalltalk at:#JPEGReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	68	rdr notNil ifTrue:[
279 289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	69	MIMETypes defineImageType:'image/jpeg' suffix:'jpg' reader:rdr.
289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	70	MIMETypes defineImageType:nil suffix:'jpeg' reader:rdr.
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	71	].
7 57c09d1b7f69 * empty log message * claus parents: 5 diff changeset	72
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	73	rdr := Smalltalk at:#PBMReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	74	rdr notNil ifTrue:[
279 289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	75	MIMETypes defineImageType:'image/x-portable-pixmap' suffix:'ppm' reader:rdr.
289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	76	MIMETypes defineImageType:'image/x-portable-bitmap' suffix:'pbm' reader:rdr.
289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	77	MIMETypes defineImageType:'image/x-portable-graymap' suffix:'pgm' reader:rdr.
289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	78	MIMETypes defineImageType:'image/x-portable-anymap' suffix:'pnm' reader:rdr.
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	79	].
7 57c09d1b7f69 * empty log message * claus parents: 5 diff changeset	80
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	81	rdr := Smalltalk at:#ST80FormReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	82	rdr notNil ifTrue:[
279 289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	83	MIMETypes defineImageType:nil suffix:'form' reader:rdr.
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	84	].
48 892180489f28 avoid warnings, if ImageReader classes are not available Claus Gittinger <cg@exept.de> parents: 47 diff changeset	85
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	86	rdr := Smalltalk at:#FaceReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	87	rdr notNil ifTrue:[
279 289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	88	MIMETypes defineImageType:nil suffix:'face' reader:rdr.
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	89	].
48 892180489f28 avoid warnings, if ImageReader classes are not available Claus Gittinger <cg@exept.de> parents: 47 diff changeset	90
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	91	rdr := Smalltalk at:#XPMReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	92	rdr notNil ifTrue:[
279 289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	93	MIMETypes defineImageType:'image/x-xpixmap' suffix:'xpm' reader:rdr.
289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	94	MIMETypes defineImageType:nil suffix:'pm' reader:rdr.
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	95	].
7 57c09d1b7f69 * empty log message * claus parents: 5 diff changeset	96
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	97	rdr := Smalltalk at:#PCXReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	98	rdr notNil ifTrue:[
279 289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	99	MIMETypes defineImageType:'image/x-pcx' suffix:'pcx' reader:rdr.
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	100	].
48 892180489f28 avoid warnings, if ImageReader classes are not available Claus Gittinger <cg@exept.de> parents: 47 diff changeset	101
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	102	rdr := Smalltalk at:#TargaReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	103	rdr notNil ifTrue:[
279 289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	104	MIMETypes defineImageType:'image/x-targa' suffix:'tga' reader:rdr.
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	105	].
14 64ec9fab4825 * empty log message * claus parents: 10 diff changeset	106
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	107	rdr := Smalltalk at:#XWDReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	108	rdr notNil ifTrue:[
279 289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	109	MIMETypes defineImageType:'image/x-xwindowdump' suffix:'xwd' reader:rdr.
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	110	].
47 b0b5d02a07ac * empty log message * Claus Gittinger <cg@exept.de> parents: 26 diff changeset	111
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	112	rdr := Smalltalk at:#BlitImageReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	113	rdr notNil ifTrue:[
279 289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	114	MIMETypes defineImageType:nil suffix:'48x48x1' reader:rdr.
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	115	].
205 9f394a370719 added IRISReader Claus Gittinger <cg@exept.de> parents: 200 diff changeset	116
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	117	rdr := Smalltalk at:#IrisRGBReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	118	rdr notNil ifTrue:[
279 289856108844 renamed mswindows3.style to mswindows95.style Claus Gittinger <cg@exept.de> parents: 231 diff changeset	119	MIMETypes defineImageType:'image/x-rgb' suffix:'rgb' reader:rdr.
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	120	].
205 9f394a370719 added IRISReader Claus Gittinger <cg@exept.de> parents: 200 diff changeset	121
298 2e757f2d0232 comments Claus Gittinger <cg@exept.de> parents: 279 diff changeset	122	"/ experimanetal and not yet finished / delivered
227 73b33f3bfc72 * empty log message * Claus Gittinger <cg@exept.de> parents: 218 diff changeset	123
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	124	"/ rdr := Smalltalk at:#PNGReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	125	"/ rdr notNil ifTrue:[
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	126	"/ MIMETypes defineImageType:'image/x-png' suffix:'png' reader:rdr.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	127	"/ ].
227 73b33f3bfc72 * empty log message * Claus Gittinger <cg@exept.de> parents: 218 diff changeset	128
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	129	"/ rdr := Smalltalk at:#PCDReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	130	"/ rdr notNil ifTrue:[
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	131	"/ MIMETypes defineImageType:'image/x-photo-cd' suffix:'pcd' reader:rdr.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	132	"/ ].
227 73b33f3bfc72 * empty log message * Claus Gittinger <cg@exept.de> parents: 218 diff changeset	133
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	134	"/ rdr := Smalltalk at:#CMURasterReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	135	"/ rdr notNil ifTrue:[
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	136	"/ MIMETypes defineImageType:'image/x-cmu-raster' suffix:'ras' reader:rdr.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	137	"/ ].
227 73b33f3bfc72 * empty log message * Claus Gittinger <cg@exept.de> parents: 218 diff changeset	138
298 2e757f2d0232 comments Claus Gittinger <cg@exept.de> parents: 279 diff changeset	139	"/ movie formats - experimanetal and not yet complete / finished / delivered
205 9f394a370719 added IRISReader Claus Gittinger <cg@exept.de> parents: 200 diff changeset	140
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	141	"/ rdr := Smalltalk at:#FLIReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	142	"/ rdr notNil ifTrue:[
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	143	"/ MIMETypes defineImageType:'video/x-fli' suffix:'fli' reader:rdr.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	144	"/ ].
205 9f394a370719 added IRISReader Claus Gittinger <cg@exept.de> parents: 200 diff changeset	145
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	146	"/ rdr := Smalltalk at:#AVIReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	147	"/ rdr notNil ifTrue:[
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	148	"/ MIMETypes defineImageType:'video/x-msvideo' suffix:'avi' reader:rdr.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	149	"/ ].
227 73b33f3bfc72 * empty log message * Claus Gittinger <cg@exept.de> parents: 218 diff changeset	150
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	151	"/ rdr := Smalltalk at:#QuickTimeReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	152	"/ rdr notNil ifTrue:[
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	153	"/ MIMETypes defineImageType:'video/quicktime' suffix:'qt' reader:rdr.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	154	"/ MIMETypes defineImageType:nil suffix:'mov' reader:rdr.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	155	"/ MIMETypes defineImageType:nil suffix:'moov' reader:rdr.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	156	"/ ].
227 73b33f3bfc72 * empty log message * Claus Gittinger <cg@exept.de> parents: 218 diff changeset	157
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	158	"/ rdr := Smalltalk at:#MPEG2Reader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	159	"/ rdr notNil ifTrue:[
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	160	"/ MIMETypes defineImageType:'video/x-mpeg2' suffix:'mpg2' reader:rdr.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	161	"/ MIMETypes defineImageType:nil suffix:'mpv2' reader:rdr.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	162	"/ MIMETypes defineImageType:nil suffix:'mp2v' reader:rdr.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	163	"/ MIMETypes defineImageType:nil suffix:'mp2' reader:rdr.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	164	"/ ].
227 73b33f3bfc72 * empty log message * Claus Gittinger <cg@exept.de> parents: 218 diff changeset	165
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	166	"/ rdr := Smalltalk at:#MPEGReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	167	"/ rdr notNil ifTrue:[
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	168	"/ MIMETypes defineImageType:'video/mpeg' suffix:'mpg' reader:rdr.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	169	"/ MIMETypes defineImageType:nil suffix:'mpeg' reader:rdr.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	170	"/ MIMETypes defineImageType:nil suffix:'mpe' reader:rdr.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	171	"/ MIMETypes defineImageType:nil suffix:'mpv' reader:rdr.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	172	"/ MIMETypes defineImageType:nil suffix:'vbs' reader:rdr.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	173	"/ MIMETypes defineImageType:nil suffix:'mpegv' reader:rdr.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	174	"/ ].
227 73b33f3bfc72 * empty log message * Claus Gittinger <cg@exept.de> parents: 218 diff changeset	175
230 d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	176	"/ rdr := Smalltalk at:#SGIMovieReader ifAbsent:nil.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	177	"/ rdr notNil ifTrue:[
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	178	"/ MIMETypes defineImageType:'video/x-sgi-movie' suffix:'movie' reader:rdr.
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	179	"/ ].
d595cb02a5b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 229 diff changeset	180	]
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	181	!
420e4af41733 * empty log message * claus parents: 3 diff changeset	182
420e4af41733 * empty log message * claus parents: 3 diff changeset	183	"*
420e4af41733 * empty log message * claus parents: 3 diff changeset	184	* find out, on what type of display we run
8 d82829c0d867 * empty log message * claus parents: 7 diff changeset	185	* (boy, they should have added this to the x-protocol)
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	186	*
23 cdbea135d4bf . claus parents: 20 diff changeset	187	* look for a file named 'd_<displayname>.rc' and file it in
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	188	*"
420e4af41733 * empty log message * claus parents: 3 diff changeset	189
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	190	\|displayDevice displayVar display displayType s\|
302 523be1e5cd5f detect win32 configurations; Claus Gittinger <cg@exept.de> parents: 298 diff changeset	191
354 bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	192	displayDevice := Screen current.
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	193	(displayDevice platformName = 'WIN32') ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	194	"running on a local windows display"
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	195	display := OperatingSystem getHostName.
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	196	] ifFalse:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	197	displayVar := displayDevice displayName.
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	198	displayVar notNil ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	199	"/ figure out the hostname of the display,
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	200	"/ to read d_<hostname>.rc
302 523be1e5cd5f detect win32 configurations; Claus Gittinger <cg@exept.de> parents: 298 diff changeset	201
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	202	((displayVar startsWith:':0')
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	203	or:[(displayVar startsWith:'unix:')
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	204	or:[displayVar startsWith:'shm:']]) ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	205	"running on a local display"
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	206	display := OperatingSystem getHostName.
7 57c09d1b7f69 * empty log message * claus parents: 5 diff changeset	207	] ifFalse:[
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	208	(displayVar endsWith:':0') ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	209	display := displayVar copyTo:(displayVar size - 2)
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	210	] ifFalse:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	211	(displayVar endsWith:':0.0') ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	212	display := displayVar copyTo:(displayVar size - 4)
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	213	]
7 57c09d1b7f69 * empty log message * claus parents: 5 diff changeset	214	]
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	215	].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	216	].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	217	].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	218
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	219	display isNil ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	220	'display.rc [warning]: cannot determine display I am running on' errorPrintCR.
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	221	] ifFalse:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	222	"
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	223	if there is a corresponding file d_<displayName>.rc ...
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	224	thats the one to take.
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	225	"
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	226	s := Smalltalk systemFileStreamFor:('d_' , display , '.rc').
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	227	s notNil ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	228	displayType := display.
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	229	s close.
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	230	].
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	231	].
302 523be1e5cd5f detect win32 configurations; Claus Gittinger <cg@exept.de> parents: 298 diff changeset	232
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	233	displayType isNil ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	234	"
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	235	if no host specific info,
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	236	take the display vendor information,
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	237	to read d_<vendor>.rc
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	238	"
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	239
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	240	"
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	241	if the X-server gives some info,
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	242	take that as a base
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	243	"
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	244	\|serverVendor\|
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	245
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	246	serverVendor := displayDevice serverVendor ? ''.
302 523be1e5cd5f detect win32 configurations; Claus Gittinger <cg@exept.de> parents: 298 diff changeset	247
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	248	(serverVendor startsWith:'The XFree86 Project, Inc')
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	249	ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	250	displayType := 'xfree'
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	251	].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	252	(serverVendor startsWith:'Silicon Graphics')
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	253	ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	254	displayType := 'iris'
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	255	].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	256	(serverVendor startsWith:'International Business Machines')
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	257	ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	258	displayType := 'aix'
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	259	].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	260	(serverVendor startsWith:'DECWINDOWS Digital Equipment')
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	261	ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	262	displayType := 'dec'
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	263	].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	264	(serverVendor startsWith:'Hummingbird Communications')
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	265	ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	266	displayType := 'exceed'
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	267	].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	268	(serverVendor startsWith:'Hewlett-Packard Company')
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	269	ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	270	displayType := 'hpux'
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	271	].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	272	].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	273
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	274	displayType isNil ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	275	"
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	276	just an example - stuff can also be hardwired here ...
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	277	"
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	278	display notNil ifTrue:[
23 cdbea135d4bf . claus parents: 20 diff changeset	279	"
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	280	if, in your organization, all displays are of the
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	281	same type,
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	282	use something like:
23 cdbea135d4bf . claus parents: 20 diff changeset	283	"
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	284	"/ OperatingSystem getDomainName = '<yourDomain>.de' ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	285	"/ displayType := 'myDisplayType'
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	286	"/ ].
8 d82829c0d867 * empty log message * claus parents: 7 diff changeset	287
25 463dd2575719 . claus parents: 24 diff changeset	288	"
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	289	if, in your organization, the display type can
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	290	be deduced from the hostname,
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	291	use something like:
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	292	(take the exept code below as a guide ...)
25 463dd2575719 . claus parents: 24 diff changeset	293	"
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	294	"/ (display startsWith:'slsv') ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	295	"/ "all those machines at SEL are suns"
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	296	"/ displayType := 'sun'
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	297	"/ ].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	298	"/ (display startsWith:'frxt') ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	299	"/ "all those machines at AEG are xterminals"
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	300	"/ displayType := 'xterminal'
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	301	"/ ].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	302	"/ (display startsWith:'frlx') ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	303	"/ "all those machines at AEG are linux boxes with olwm"
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	304	"/ displayType := 'linux_olwm'
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	305	"/ ].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	306	"/
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	307	"/ OperatingSystem getDomainName = 'exept.de' ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	308	"/ (display startsWith:'clam') ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	309	"/ displayType := 'next'
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	310	"/ ].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	311	"/ (display startsWith:'porty') ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	312	"/ displayType := 'portable'
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	313	"/ ].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	314	"/ (display startsWith:'blue') ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	315	"/ displayType := 'iris'
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	316	"/ ].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	317	"/ (display startsWith:'sun') ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	318	"/ displayType := 'sun'
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	319	"/ ].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	320	"/ (display startsWith:'sol') ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	321	"/ displayType := 'sun'
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	322	"/ ].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	323	"/ (display startsWith:'hp') ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	324	"/ displayType := 'hpux'
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	325	"/ ].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	326	"/ ].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	327	].
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	328	].
298 2e757f2d0232 comments Claus Gittinger <cg@exept.de> parents: 279 diff changeset	329
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	330	displayType isNil ifTrue:[
25 463dd2575719 . claus parents: 24 diff changeset	331	"
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	332	final fallback: use type of machine if smalltalk is running on a local
25 463dd2575719 . claus parents: 24 diff changeset	333	connection.
26 398bad70619c . Claus Gittinger <cg@exept.de> parents: 25 diff changeset	334	the used name is one of:
398bad70619c . Claus Gittinger <cg@exept.de> parents: 25 diff changeset	335	d_next.rc
398bad70619c . Claus Gittinger <cg@exept.de> parents: 25 diff changeset	336	d_iris.rc
398bad70619c . Claus Gittinger <cg@exept.de> parents: 25 diff changeset	337	etc.
25 463dd2575719 . claus parents: 24 diff changeset	338	"
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	339	"use type of machine smalltalk is running on as default ..."
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	340
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	341	display = OperatingSystem getHostName ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	342	displayType := OperatingSystem getSystemType.
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	343	]
420e4af41733 * empty log message * claus parents: 3 diff changeset	344	].
420e4af41733 * empty log message * claus parents: 3 diff changeset	345
420e4af41733 * empty log message * claus parents: 3 diff changeset	346	"now, if the above mess found something, we have it in displayType;
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	347	fileIn d_<displayType>.rc.
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	348	If we are running on the default display, do it only if
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	349	the displayType changed (e.g. image restart on another display)."
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	350
420e4af41733 * empty log message * claus parents: 3 diff changeset	351	displayType notNil ifTrue:[
354 bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	352	((Smalltalk at:#'_ImageDisplayName') ~= displayType
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	353	or:[displayDevice ~~ Screen default]) ifTrue:[
354 bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	354
bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	355	"/
bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	356	"/ mouse-button translation
bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	357	"/
447 426c5de3dcbc button translation for hp Claus Gittinger <cg@exept.de> parents: 423 diff changeset	358	"/ (currently, allowed are 1,2,.. , #paste, #wheelFwd and #wheelBwd)
354 bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	359	"/ 1 - button1; used to select (i.e. left button)
bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	360	"/ 2 - button2; pops up a menu (i.e. middle button)
447 426c5de3dcbc button translation for hp Claus Gittinger <cg@exept.de> parents: 423 diff changeset	361	"/ #paste - paste the clipBoard contents
426c5de3dcbc button translation for hp Claus Gittinger <cg@exept.de> parents: 423 diff changeset	362	"/ #wheelFwd - simulates a mouseWheel forward motion (hp displays)
426c5de3dcbc button translation for hp Claus Gittinger <cg@exept.de> parents: 423 diff changeset	363	"/ #wheelBwd - simulates a mouseWheel backward motion (hp displays)
354 bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	364	"/
bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	365	"/ the following line puts paste onto the right button (as in xterm):
bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	366	"/
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	367	"/ Screen current buttonTranslation:#(1 2 #paste 4 5 6 7).
354 bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	368
bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	369	"/
bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	370	"/ while that one puts the pop-up menu both on the middle and right buttons:
bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	371	"/
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	372	displayDevice buttonTranslation:#(1 2 2 #wheelFwd #wheelBwd 6 7).
354 bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	373
bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	374	"/
bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	375	"/ lefthanders can use:
bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	376	"/
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	377	"/ displayDevice buttonTranslation:#(2 2 1 #wheelFwd #wheelBwd 6 7).
354 bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	378
bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	379	"/ common keyboard setup;
bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	380	"/ might be changed later by a display-specific
bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	381	"/ rc file (especially, d_windows does this)
bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	382
bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	383	"/ 'display.rc [info]: reading ''keyboard.rc'' ...' infoPrintCR.
bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	384	Smalltalk fileIn:'keyboard.rc'.
bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	385
bfddecfed2d2 only read any of keyboard.rc d_xxxx.rc if the display changed. Claus Gittinger <cg@exept.de> parents: 350 diff changeset	386	displayDevice supportsDeepIcons:false.
84 06f58dd9b0ae * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	387	Smalltalk isStandAloneApp ifFalse:[
333 4a6780f29c71 * empty log message * Claus Gittinger <cg@exept.de> parents: 317 diff changeset	388	('display.rc [info]: ') infoPrint.
4a6780f29c71 * empty log message * Claus Gittinger <cg@exept.de> parents: 317 diff changeset	389	(Smalltalk getSystemFileName:('d_' , displayType , '.rc')) isNil ifTrue:[
4a6780f29c71 * empty log message * Claus Gittinger <cg@exept.de> parents: 317 diff changeset	390	'trying' infoPrint.
4a6780f29c71 * empty log message * Claus Gittinger <cg@exept.de> parents: 317 diff changeset	391	] ifFalse:[
4a6780f29c71 * empty log message * Claus Gittinger <cg@exept.de> parents: 317 diff changeset	392	'reading' infoPrint.
4a6780f29c71 * empty log message * Claus Gittinger <cg@exept.de> parents: 317 diff changeset	393	].
4a6780f29c71 * empty log message * Claus Gittinger <cg@exept.de> parents: 317 diff changeset	394	(' display setup ''d_' , displayType , '.rc'' ...') infoPrintCR.
84 06f58dd9b0ae * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	395	].
308 6e6d557009c7 dont loose windows keyboard setup after image restart Claus Gittinger <cg@exept.de> parents: 305 diff changeset	396
7 57c09d1b7f69 * empty log message * claus parents: 5 diff changeset	397	Smalltalk fileIn:('d_' , displayType , '.rc')
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	398	].
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	399
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	400	"If we are running on the default display, remember current setting for possible
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	401	image restart"
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	402	displayDevice == Screen default ifTrue:[
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	403	Smalltalk at:#'_ImageDisplayName' put:displayType.
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	404	].
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	405	]
420e4af41733 * empty log message * claus parents: 3 diff changeset	406	!
420e4af41733 * empty log message * claus parents: 3 diff changeset	407
420e4af41733 * empty log message * claus parents: 3 diff changeset	408	"*
121 0974ee733cf4 Move display specific stuff from smalltalk(_r).rc to display.rc. Stefan Vogel <sv@exept.de> parents: 120 diff changeset	409	* now, this is a nice one:
0974ee733cf4 Move display specific stuff from smalltalk(_r).rc to display.rc. Stefan Vogel <sv@exept.de> parents: 120 diff changeset	410	*
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	411	* if we are running on the default display and the image was saved
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	412	* on a different type of display, ask the user,
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	413	* if he/she'd like to have the style changed.
121 0974ee733cf4 Move display specific stuff from smalltalk(_r).rc to display.rc. Stefan Vogel <sv@exept.de> parents: 120 diff changeset	414	*"
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	415	\|currentScreen\|
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	416
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	417	currentScreen := Screen current.
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	418	currentScreen == Screen default ifTrue:[
394 70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	419	\|depthChange colorChange greyChange reconfigure\|
121 0974ee733cf4 Move display specific stuff from smalltalk(_r).rc to display.rc. Stefan Vogel <sv@exept.de> parents: 120 diff changeset	420
394 70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	421	depthChange := false.
70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	422	colorChange := false.
70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	423	greyChange := false.
121 0974ee733cf4 Move display specific stuff from smalltalk(_r).rc to display.rc. Stefan Vogel <sv@exept.de> parents: 120 diff changeset	424
394 70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	425	(Smalltalk includesKey:#'_ImageDisplayDepth') ifTrue:[
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	426	depthChange := ((Smalltalk at:#'_ImageDisplayDepth') ~~ currentScreen depth)
394 70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	427	].
70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	428	(Smalltalk includesKey:#'_ImageDisplayHasColor') ifTrue:[
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	429	colorChange := ((Smalltalk at:#'_ImageDisplayHasColors') ~~ currentScreen hasColors)
394 70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	430	].
70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	431	(Smalltalk includesKey:#'_ImageDisplayHasGreyscales') ifTrue:[
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	432	greyChange := ((Smalltalk at:#'_ImageDisplayHasGreyscales') ~~ currentScreen hasGreyscales)
394 70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	433	].
70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	434	(depthChange or:[colorChange or:[greyChange]]) ifTrue:[
70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	435	reconfigure := self confirm:'Display capabilities have changed
121 0974ee733cf4 Move display specific stuff from smalltalk(_r).rc to display.rc. Stefan Vogel <sv@exept.de> parents: 120 diff changeset	436
394 70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	437	Do you want to reconfigure the view style ?'.
121 0974ee733cf4 Move display specific stuff from smalltalk(_r).rc to display.rc. Stefan Vogel <sv@exept.de> parents: 120 diff changeset	438
394 70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	439	reconfigure ifTrue:[
70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	440	Screen current knownViews do:[:aView \|
70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	441	aView notNil ifTrue:[
70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	442	aView reinitStyle.
70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	443	]
70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	444	].
121 0974ee733cf4 Move display specific stuff from smalltalk(_r).rc to display.rc. Stefan Vogel <sv@exept.de> parents: 120 diff changeset	445	].
0974ee733cf4 Move display specific stuff from smalltalk(_r).rc to display.rc. Stefan Vogel <sv@exept.de> parents: 120 diff changeset	446	].
0974ee733cf4 Move display specific stuff from smalltalk(_r).rc to display.rc. Stefan Vogel <sv@exept.de> parents: 120 diff changeset	447
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	448	Smalltalk at:#'_ImageDisplayDepth' put:currentScreen depth.
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	449	Smalltalk at:#'_ImageDisplayHasColors' put:currentScreen hasColors.
521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	450	Smalltalk at:#'_ImageDisplayHasGreyscales' put:currentScreen hasGreyscales.
394 70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	451	]
121 0974ee733cf4 Move display specific stuff from smalltalk(_r).rc to display.rc. Stefan Vogel <sv@exept.de> parents: 120 diff changeset	452	!
0974ee733cf4 Move display specific stuff from smalltalk(_r).rc to display.rc. Stefan Vogel <sv@exept.de> parents: 120 diff changeset	453
302 523be1e5cd5f detect win32 configurations; Claus Gittinger <cg@exept.de> parents: 298 diff changeset	454	"/
523be1e5cd5f detect win32 configurations; Claus Gittinger <cg@exept.de> parents: 298 diff changeset	455	"/ set a default style, if not been set by rc-file
523be1e5cd5f detect win32 configurations; Claus Gittinger <cg@exept.de> parents: 298 diff changeset	456	"/ this is set according the system we are running on.
523be1e5cd5f detect win32 configurations; Claus Gittinger <cg@exept.de> parents: 298 diff changeset	457	"/ Notice: normally, the below is not needed, since the style
523be1e5cd5f detect win32 configurations; Claus Gittinger <cg@exept.de> parents: 298 diff changeset	458	"/ is always set by the d_xxx.rc file.
523be1e5cd5f detect win32 configurations; Claus Gittinger <cg@exept.de> parents: 298 diff changeset	459	"/ Except, when the d_xxx.rc is not present.
523be1e5cd5f detect win32 configurations; Claus Gittinger <cg@exept.de> parents: 298 diff changeset	460	"/
523be1e5cd5f detect win32 configurations; Claus Gittinger <cg@exept.de> parents: 298 diff changeset	461
310 e5f7a10c6a19 * empty log message * Claus Gittinger <cg@exept.de> parents: 308 diff changeset	462	\|type wm\|
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	463
420e4af41733 * empty log message * claus parents: 3 diff changeset	464	View defaultStyle isNil ifTrue:[
420e4af41733 * empty log message * claus parents: 3 diff changeset	465	type := OperatingSystem getSystemType.
420e4af41733 * empty log message * claus parents: 3 diff changeset	466	type = 'sunos' ifTrue:[
7 57c09d1b7f69 * empty log message * claus parents: 5 diff changeset	467	View defaultStyle:#openwin
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	468	].
420e4af41733 * empty log message * claus parents: 3 diff changeset	469	type = 'next' ifTrue:[
7 57c09d1b7f69 * empty log message * claus parents: 5 diff changeset	470	View defaultStyle:#next
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	471	].
420e4af41733 * empty log message * claus parents: 3 diff changeset	472	type = 'iris' ifTrue:[
7 57c09d1b7f69 * empty log message * claus parents: 5 diff changeset	473	View defaultStyle:#iris
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	474	].
350 4939cffdc0bd * empty log message * Claus Gittinger <cg@exept.de> parents: 346 diff changeset	475	type = 'exceed' ifTrue:[
4939cffdc0bd * empty log message * Claus Gittinger <cg@exept.de> parents: 346 diff changeset	476	View defaultStyle:#mswindows95
4939cffdc0bd * empty log message * Claus Gittinger <cg@exept.de> parents: 346 diff changeset	477	].
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	478	type = 'linux' ifTrue:[
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	479	View defaultStyle:#mswindows95
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	480	].
420e4af41733 * empty log message * claus parents: 3 diff changeset	481	type = 'hpux' ifTrue:[
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	482	View defaultStyle:#motif
23 cdbea135d4bf . claus parents: 20 diff changeset	483	].
cdbea135d4bf . claus parents: 20 diff changeset	484	type = 'ultrix' ifTrue:[
26 398bad70619c . Claus Gittinger <cg@exept.de> parents: 25 diff changeset	485	View defaultStyle:#'motif_dec2'
398bad70619c . Claus Gittinger <cg@exept.de> parents: 25 diff changeset	486	].
398bad70619c . Claus Gittinger <cg@exept.de> parents: 25 diff changeset	487	type = 'os2' ifTrue:[
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	488	View defaultStyle:#os2
26 398bad70619c . Claus Gittinger <cg@exept.de> parents: 25 diff changeset	489	].
214 01ed852ca742 * empty log message * Claus Gittinger <cg@exept.de> parents: 213 diff changeset	490	(type = 'win32') ifTrue:[
488 521e2d58f050 Changed workstation initialization. Stefan Vogel <sv@exept.de> parents: 477 diff changeset	491	View defaultStyle:#'mswindows95'
26 398bad70619c . Claus Gittinger <cg@exept.de> parents: 25 diff changeset	492	].
298 2e757f2d0232 comments Claus Gittinger <cg@exept.de> parents: 279 diff changeset	493
2e757f2d0232 comments Claus Gittinger <cg@exept.de> parents: 279 diff changeset	494	"/ final fallBack ...
2e757f2d0232 comments Claus Gittinger <cg@exept.de> parents: 279 diff changeset	495
8 d82829c0d867 * empty log message * claus parents: 7 diff changeset	496	View defaultStyle isNil ifTrue:[
394 70ecff920548 Fix DISPLAY access for headless servers. Stefan Vogel <sv@exept.de> parents: 354 diff changeset	497	(Display notNil and:[Display hasGreyscales]) ifTrue:[
8 d82829c0d867 * empty log message * claus parents: 7 diff changeset	498	View defaultStyle:#iris
d82829c0d867 * empty log message * claus parents: 7 diff changeset	499	] ifFalse:[
d82829c0d867 * empty log message * claus parents: 7 diff changeset	500	View defaultStyle:#normal
d82829c0d867 * empty log message * claus parents: 7 diff changeset	501	]
d82829c0d867 * empty log message * claus parents: 7 diff changeset	502	].
195 1cf850844da9 new infoMessage scheme Claus Gittinger <cg@exept.de> parents: 126 diff changeset	503	'display.rc [info]: no style set - default to ' infoPrint.
123 a974136fe017 startup infoPrinting suppressable (-q flag) Claus Gittinger <cg@exept.de> parents: 121 diff changeset	504	View defaultStyle infoPrintCR
5 420e4af41733 * empty log message * claus parents: 3 diff changeset	505	]
420e4af41733 * empty log message * claus parents: 3 diff changeset	506	!
302 523be1e5cd5f detect win32 configurations; Claus Gittinger <cg@exept.de> parents: 298 diff changeset	507

author	Stefan Vogel <sv@exept.de>
	Tue, 21 May 2002 10:16:25 +0200
changeset 488	521e2d58f050
parent 477	e94dd1d9b849
child 493	bde575727ee7
permissions	-rw-r--r--