122
|
1 |
; View defaultStyle:#'fun_sofia'
|
|
2 |
;
|
|
3 |
; children will love it ... but you wont work with this one.
|
180
|
4 |
; fun style for my little daughter, sofia ...
|
122
|
5 |
; like motif, but with different view background
|
|
6 |
;
|
3258
|
7 |
; $Header: /cvs/stx/stx/libview/styles/oldStyles/fun_sofia.style,v 1.7 2000-08-16 14:27:26 ca Exp $
|
122
|
8 |
|
|
9 |
|
|
10 |
#include 'motif.style'
|
|
11 |
|
1440
|
12 |
comment 'Fun style. Like motif with funny viewbackground.\\Not usable, but my doughter loves it ;-)'
|
309
|
13 |
|
|
14 |
#if (Language == #german) or:[Language == #de]
|
|
15 |
comment 'Wie ''motif'', aber mit lustigem Hintergrund.\Nicht schön aber meine Tochter liebt ihn ...'
|
|
16 |
#endif
|
144
|
17 |
|
122
|
18 |
shadowColor Color black
|
|
19 |
lightColor Color lightGrey
|
|
20 |
|
3258
|
21 |
viewBackground (Smalltalk imageFromFileNamed:'gifImages/garfield.gif' inPackage:'stx:goodies') magnifyBy:0.2
|
122
|
22 |
menuBackground =viewBackground
|
1948
|
23 |
selection.backgroundColor =viewBackground
|
|
24 |
selection.hilightBackgroundColor =viewBackground
|
|
25 |
selection.hilightForegroundColor Color white
|
|
26 |
menu.backgroundColor =viewBackground
|
122
|
27 |
|
1948
|
28 |
scroller.viewBackground =viewBackground
|
|
29 |
button.activeBackgroundColor =viewBackground
|
|
30 |
button.activeForegroundColor Color white
|