equal
deleted
inserted
replaced
9 "/ Notice: the image used here was bought by ObjectShare from Robert Tinney |
9 "/ Notice: the image used here was bought by ObjectShare from Robert Tinney |
10 "/ and placed into the Public Domain by ObjectShare. |
10 "/ and placed into the Public Domain by ObjectShare. |
11 "/ We would like to thank both for that. |
11 "/ We would like to thank both for that. |
12 "/ Feel free to use & spread it. |
12 "/ Feel free to use & spread it. |
13 |
13 |
14 |img view| |
14 |d img view| |
15 |
15 |
16 Display depth <= 8 ifTrue:[ |
16 (OperatingSystem isUNIXlike |
17 Display depth <= 4 ifTrue:[ |
17 and:[Display notNil]) ifTrue:[ |
18 Display depth <= 2 ifTrue:[ |
18 (d := Display depth) <= 8 ifTrue:[ |
19 img := Image fromFile:'banner1.xpm' "/ bw image |
19 d <= 4 ifTrue:[ |
|
20 d <= 2 ifTrue:[ |
|
21 img := Image fromFile:'banner1.xpm' "/ bw image |
|
22 ] ifFalse:[ |
|
23 img := Image fromFile:'banner3.xpm' "/ 8 colors |
|
24 ] |
20 ] ifFalse:[ |
25 ] ifFalse:[ |
21 img := Image fromFile:'banner3.xpm' "/ 8 colors |
26 img := Image fromFile:'banner5.xpm' "/ 24 colors |
22 ] |
27 ]. |
23 ] ifFalse:[ |
28 ] ifFalse:[ |
24 img := Image fromFile:'banner5.xpm' "/ 24 colors |
29 img := Image fromFile:'banner8.xpm' "/ 255 colors |
25 ]. |
30 ]. |
26 ] ifFalse:[ |
|
27 img := Image fromFile:'banner8.xpm' "/ 255 colors |
|
28 ]. |
|
29 |
31 |
30 img notNil ifTrue:[ |
32 img notNil ifTrue:[ |
31 Smalltalk at:#'__BannerView__' put:(view := PopUpBanner forImage:img). |
33 Smalltalk at:#'__BannerView__' put:(view := PopUpBanner forImage:img). |
32 view showCentered. |
34 view showCentered. |
|
35 ]. |
33 ]. |
36 ]. |
34 ! |
37 ! |