*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 26 Jan 2000 17:17:45 +0100
changeset 419 5e539a896aad
parent 418 a40b1f54e841
child 420 0375b64c2a10
*** empty log message ***
showBanner.rc
--- 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.
+    ].
 ].
 !