189
|
1 |
; View defaultStyle:#'fun_motif'
|
|
2 |
;
|
|
3 |
; like motif, but with different viewbackground
|
|
4 |
;
|
3258
|
5 |
; $Header: /cvs/stx/stx/libview/styles/oldStyles/fun_motif2.style,v 1.5 2000-08-16 14:27:26 ca Exp $
|
189
|
6 |
|
|
7 |
|
|
8 |
#include 'motif.style'
|
|
9 |
|
1440
|
10 |
comment 'Fun style. Like motif with rocky viewbackground,\nice buttons and menu highlightning.\May be too dark on some displays'
|
189
|
11 |
|
309
|
12 |
#if (Language == #german) or:[Language == #de]
|
|
13 |
comment 'Wie ''motif'', mit steinhartem, solidem Hintergrund\und edlen Knöpfen.\Erscheint auf vielen VGA Monitoren zu dunkel'
|
|
14 |
#endif
|
|
15 |
|
3258
|
16 |
#viewBackground (Smalltalk imageFromFileNamed:'bitmaps/granite.tiff' inPackage:'stx:libwidg3')
|
|
17 |
viewBackground (Smalltalk imageFromFileNamed:'bitmaps/wall2.tiff' inPackage:'stx:libwidg3')
|
|
18 |
; wooden (Smalltalk imageFromFileNamed:'bitmaps/wood2H.tiff' inPackage:'stx:libwidg3')
|
189
|
19 |
averageColor =viewBackground averageColor
|
|
20 |
|
1948
|
21 |
button.backgroundColor =averageColor
|
|
22 |
button.activeBackgroundColor =averageColor
|
|
23 |
button.shadowColor =averageColor darkened
|
|
24 |
button.lightColor =buttonLightColor
|
189
|
25 |
|
1948
|
26 |
arrowButton.activeForegroundColor =lightColor
|
189
|
27 |
|
1948
|
28 |
menu.hilightForegroundColor Color yellow
|
|
29 |
menu.hilightBackgroundColor Color red
|
189
|
30 |
|
1948
|
31 |
scroller.thumbColor =averageColor
|