"/
"/ $Header$
"/
"/ MIMEType: application/x-smalltalk-source
"/
"/ if you dont like the splash banner at startup,
"/ simply remove or rename this file.
"/
"/ Notice: the image used here was bought by ObjectShare from Robert Tinney
"/ and placed into the Public Domain by ObjectShare.
"/ We would like to thank both for that.
"/ Feel free to use & spread it.

|d img view|

(OperatingSystem isUNIXlike
and:[Display notNil]) ifTrue:[
    (d := Display depth) <= 8 ifTrue:[
	d <= 4 ifTrue:[
	    d <= 2 ifTrue:[
		img := Image fromFile:'banner1.xpm'     "/ bw image
	    ] ifFalse:[
		img := Image fromFile:'banner3.xpm'     "/ 8 colors
	    ]
	] ifFalse:[
	    img := Image fromFile:'banner5.xpm'         "/ 24 colors
	].
    ] ifFalse:[
	img := Image fromFile:'banner8.xpm'             "/ 255 colors
    ].

    img notNil ifTrue:[
	Smalltalk at:#'__BannerView__' put:(view := PopUpBanner forImage:img).
	view showCentered.
    ].
].
!