"/ 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].

    ].

].

!