"*

 * $Header$

 *

 * DONT add site specific things here - use your own d_xxx.rc file instead

 * where xxx stands for your displays hostname(s)

 *

 * display related configuration:

 *   first do some common setup, then try to find a

 *   display specific initialization file.

 *"

"*

 * mouse-button translation

 *

 * (allowed are #select #menu and #paste)

 *

 * the following line puts paste onto the right button (as in xterm):

 *"

"/ Screen buttonTranslation:#(select #menu #paste).

"*

 * while that one puts the pop-up menu both on the middle and right buttons:

 *"

"/ Screen buttonTranslation:#(select #menu #menu).

Screen buttonTranslation:#(1 2 2).

"*

 * lefthanders can use:

 *"

"/ Screen buttonTranslation:#(#menu #menu #select).

!

"*

 * define extensions for image files (i.e. extension-to-readerClass

 * mappings). Some of the readers are autoloaded (see patches file).

 * 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; 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.

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. 

rdr := Smalltalk at:#SunRasterReader ifAbsent:nil.

rdr notNil ifTrue:[

    formats at:'.im8'  put:rdr.

    formats at:'.icon' put:rdr.

].

"/ still to come ...

"/ formats at:'.g3'   put:G3FileReader.   

rdr := Smalltalk at:#WindowsIconReader ifAbsent:nil.

rdr notNil ifTrue:[

    formats at:'.bmp'  put:rdr.

    formats at:'.ico'  put:rdr.

    formats at:'.BMP'  put:rdr.

    formats at:'.ICO'  put:rdr.

].

rdr := Smalltalk at:#JPEGReader ifAbsent:nil.

rdr notNil ifTrue:[

    formats at:'.JPG'  put:rdr.

    formats at:'.jpg'  put:rdr.

    formats at:'.jpeg' put:rdr.

].

rdr := Smalltalk at:#PBMReader ifAbsent:nil.

rdr notNil ifTrue:[

    formats at:'.ppm'  put:rdr.

    formats at:'.pbm'  put:rdr.

    formats at:'.pgm'  put:rdr.

].

rdr := Smalltalk at:#ST80FormReader ifAbsent:nil.

rdr notNil ifTrue:[

    formats at:'.form' put:rdr.

].

rdr := Smalltalk at:#FaceReader ifAbsent:nil.

rdr notNil ifTrue:[

    formats at:'.face' put:rdr.

].

rdr := Smalltalk at:#XPMReader ifAbsent:nil.

rdr notNil ifTrue:[

    formats at:'.pm'   put:rdr.

    formats at:'.xpm'  put:rdr.

].

rdr := Smalltalk at:#PCXReader ifAbsent:nil.

rdr notNil ifTrue:[

    formats at:'.pcx'  put:rdr.

    formats at:'.PCX'  put:rdr.

].

rdr := Smalltalk at:#TargaReader ifAbsent:nil.

rdr notNil ifTrue:[

    formats at:'.tga'  put:rdr.

    formats at:'.TGA'  put:rdr.

].

rdr := Smalltalk at:#XWDReader ifAbsent:nil.

rdr notNil ifTrue:[

    formats at:'.xwd'  put:rdr.

].

rdr := Smalltalk at:#BlitImageReader ifAbsent:nil.

rdr notNil ifTrue:[

    formats at:'48x48x1'  put:rdr.

]

!

"*

 * find out, on what type of display we run

 * (boy, they should have added this to the x-protocol)

 *

 * look for a file named 'd_<displayname>.rc' and file it in

 *"

|arguments displayVar display displayType s idx|

"find display name from environment or -display argument"

arguments := Smalltalk commandLineArguments.

arguments notNil ifTrue:[

    idx := arguments indexOf:'-display'.

    idx ~~ 0 ifTrue:[

	displayVar := arguments at:idx + 1.

    ].

].

displayVar isNil ifTrue:[

    displayVar := OperatingSystem getEnvironment:'DISPLAY'.

].

display := displayVar.

displayVar notNil ifTrue:[

    ((displayVar startsWith:':0') 

    or:[(displayVar startsWith:'unix:')

    or:[displayVar startsWith:'shm:']]) ifTrue:[

	"running on a local display"

	display := OperatingSystem getHostName.

    ] ifFalse:[

	(displayVar endsWith:':0') ifTrue:[

	    display := displayVar copyTo:(displayVar size - 2)

	] ifFalse:[

	    (displayVar endsWith:':0.0') ifTrue:[

		display := displayVar copyTo:(displayVar size - 4)

	    ]

	]

    ].

    display isNil ifTrue:[

	'cannot determine display I am running on' errorPrintNL.

    ] ifFalse:[

	"

	 if there is a corresponding file d_<displayName>.rc ...

	 thats the one to take.

	"

	s := Smalltalk systemFileStreamFor:('d_' , display , '.rc').

	s notNil ifTrue:[

	    displayType := display.

	    s close.

	].

	"

	 if the X-server gives some info,

	 take that as a base

	"

	displayType isNil ifTrue:[

	    ifTrue:[

		displayType := 'aix'

	    ].

	].

	"

	 otherwise ...

	"

	displayType isNil ifTrue:[

	    "

	     just an example - stuff can also be hardwired here ...

	    "

	    display notNil ifTrue:[

		(display startsWith:'clam') ifTrue:[

		    displayType := 'next'

		].

		(display startsWith:'porty') ifTrue:[

		    displayType := 'portable'

		].

		(display startsWith:'blue') ifTrue:[

		    displayType := 'iris'

		].

		(display startsWith:'sun') ifTrue:[

		    displayType := 'sun'

		].

		(display startsWith:'hp') ifTrue:[

		    displayType := 'hpux'

		].

		"

		 if, in your organization, the display type can

		 be deduced from the hostname,

		 use something like:

		"

"/                (display startsWith:'slsv') ifTrue:[

"/                    "all those machines at SEL are suns"

"/                    displayType := 'sun'

"/                ].

"/                (display startsWith:'frxt') ifTrue:[

"/                    "all those machines at AEG are xterminals"

"/                    displayType := 'xterminal'

"/                ].

"/                (display startsWith:'frlx') ifTrue:[

"/                    "all those machines at AEG are linux boxes with olwm"

"/                    displayType := 'linux_olwm'

"/                ].

	    ].

	].

    ].

    "

     final fallback: take OperatingSystem if we are running a local

     connection.

     the used name is one of:

	d_next.rc

	d_iris.rc

	etc.

    "

    displayType isNil ifTrue:[

	"use type of machine smalltalk is running on as default ..."

	(displayVar startsWith:':0') ifTrue:[

	    displayType := OperatingSystem getSystemType.

	] ifFalse:[

	    (displayVar startsWith:(OperatingSystem getHostName , ':0')) ifTrue:[

		displayType := OperatingSystem getSystemType.

	    ]

	]

    ]

].

"now, if the above mess found something, we have it in displayType;

 fileIn d_<displayType>.rc"

displayType notNil ifTrue:[

    (Smalltalk at:#'_ImageDisplayName') ~= displayType ifTrue:[

	"Default for supportsDeepIcons is false.

	 Set default value only when ImageDisplayName changes

	 and d_displayType is called.

	"

	Display supportsDeepIcons:false.

	Smalltalk isStandAloneApp ifFalse:[

	    ('trying display setup d_' , displayType , '.rc ...') errorPrintNL.

	].

	Smalltalk fileIn:('d_' , displayType , '.rc')

    ].

    Smalltalk at:#'_ImageDisplayName' put:displayType

]

!

"*

 * set a default style, if not been set by rc-file

 * this is set according the system we are running on.

 * Notice: normally, the below is not needed, since the style

 *         is always set by the d_xxx.rc file.

 *         Except, when the d_xxx.rc is not present.

 *"

|type|

View defaultStyle isNil ifTrue:[

    type := OperatingSystem getSystemType.

    type = 'sunos' ifTrue:[

	View defaultStyle:#openwin

    ].

    type = 'next' ifTrue:[

	View defaultStyle:#next

    ].

    type = 'iris' ifTrue:[

	View defaultStyle:#iris

    ].

    type = 'linux' ifTrue:[

	View defaultStyle:#iris 

    ].

    type = 'hpux' ifTrue:[

	View defaultStyle:#'motif' 

    ].

    type = 'ultrix' ifTrue:[

	View defaultStyle:#'motif_dec2' 

    ].

    type = 'os2' ifTrue:[

	View defaultStyle:#'os2' 

    ].

    (type = 'mswindows' or:[type = 'nt']) ifTrue:[

	View defaultStyle:#'mswindows' 

    ].

    type = 'win95' ifTrue:[

	View defaultStyle:#'mswindows3' 

    ].

    View defaultStyle isNil ifTrue:[

	Display hasGreyscales ifTrue:[

	    View defaultStyle:#iris

	] ifFalse:[

	    View defaultStyle:#normal

	]

    ].

    'no style set in display.rc - default to ' errorPrint.

    View defaultStyle errorPrintNL

]

!