--- a/showBanner.rc Wed Jan 26 17:00:13 2000 +0100
+++ b/showBanner.rc Wed Jan 26 17:17:45 2000 +0100
@@ -11,24 +11,27 @@
"/ We would like to thank both for that.
"/ Feel free to use & spread it.
-|img view|
+|d img view|
-Display depth <= 8 ifTrue:[
- Display depth <= 4 ifTrue:[
- Display depth <= 2 ifTrue:[
- img := Image fromFile:'banner1.xpm' "/ bw image
+(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:'banner3.xpm' "/ 8 colors
- ]
+ img := Image fromFile:'banner5.xpm' "/ 24 colors
+ ].
] ifFalse:[
- img := Image fromFile:'banner5.xpm' "/ 24 colors
+ img := Image fromFile:'banner8.xpm' "/ 255 colors
].
-] ifFalse:[
- img := Image fromFile:'banner8.xpm' "/ 255 colors
-].
-img notNil ifTrue:[
- Smalltalk at:#'__BannerView__' put:(view := PopUpBanner forImage:img).
- view showCentered.
+ img notNil ifTrue:[
+ Smalltalk at:#'__BannerView__' put:(view := PopUpBanner forImage:img).
+ view showCentered.
+ ].
].
!