"/ Encoding: iso8859-1
"/
"/ $Header$
"/
"/ MIMEType: application/x-smalltalk-source
"/
"/ if you dont like the splash banner at startup,
"/ simply remove or rename this file.
"/
"/ if you like another image to be shown (especially for applications),
"/ copy this file to the apps startup directory,
"/ and edit the bitmap-file names found below as required.
"/ (notice, that the code below uses an image which does not allocate
"/  to many colors for the particular display in use - it may be useful
"/  to do so for you own images as well, to avoid slowing down startup)
"/
"/ 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 imgFileName img view|

"/ for now: cannot do this under DOZE;
"/ win does not support viewBackgrounds and
"/ no event handling takes place at this time. sigh.
"/ Display connections with round-trip-time >= 20 ms are
"/ considered slow and no banner is shown

(OperatingSystem isUNIXlike
 and:[(Smalltalk at:#XPMReader) notNil  "maybe minimal configuration"
 and:[Display notNil
 and:[Display roundTripTime < 20]]]) ifTrue:[
    "/ choose one of the banners
    "/ (select the one which fits our screen depth best,
    "/  avoiding allocation of too many colors)
    (d := Display depth) <= 8 ifTrue:[
	d <= 4 ifTrue:[
	    d <= 2 ifTrue:[
		imgFileName := 'banner1.xpm'     "/ bw image
	    ] ifFalse:[
		imgFileName := 'banner3.xpm'     "/ 8 colors
	    ]
	] ifFalse:[
	    imgFileName := 'banner5.xpm'         "/ 24 colors
	].
    ] ifFalse:[
	imgFileName := 'banner8.xpm'             "/ 255 colors
    ].

    img := Image fromFile:imgFileName.
    img notNil ifTrue:[
	"/ ('showBanner.rc [info]: launch splash screen banner.') infoPrintCR.
	"/ remember the bannerView - will be destroyed by
	"/ the hideBanner script.
	view := PopUpBanner forImage:img.
	view showCentered.
	Display flush.
	Smalltalk addStartBlock:[view destroy].
    ].
].
!