3194
|
1 |
; View defaultStyle:#kde
|
|
2 |
;
|
|
3 |
; kde look-alike style
|
|
4 |
;
|
3350
|
5 |
;; $Header: /cvs/stx/stx/libview/styles/kde.style,v 1.5 2000-10-27 17:57:39 stefan Exp $
|
3194
|
6 |
|
|
7 |
#if Screen current hasGreyscales
|
|
8 |
;
|
|
9 |
; use #nearestOn to avoid dithered view backgrounds
|
|
10 |
;
|
3350
|
11 |
viewGrey (Color grey:75) exactOrNearestOn:(Screen current)
|
|
12 |
lightColor Color white
|
3194
|
13 |
shadowColor (Color grey:25) exactOrNearestOn:(Screen current)
|
|
14 |
mediumColor (Color grey:50) exactOrNearestOn:(Screen current)
|
3350
|
15 |
slightlyDarkerGrey (Color grey:62) exactOrNearestOn:(Screen current)
|
3194
|
16 |
#else
|
|
17 |
viewGrey Color white
|
|
18 |
lightColor Color grey:75
|
|
19 |
shadowColor Color black
|
|
20 |
mediumColor Color grey:50.
|
|
21 |
slightlyDarkerGrey =viewGrey
|
|
22 |
#endif
|
|
23 |
|
|
24 |
#include 'motif.common'
|
|
25 |
|
|
26 |
comment '`kde'' look alike.'
|
|
27 |
|
|
28 |
#if (Language == #german) or:[Language == #de]
|
|
29 |
comment 'An `kde'' angelehnter Stil'
|
|
30 |
#endif
|
|
31 |
#if (Language == #french) or:[Language == #fr]
|
|
32 |
comment 'Un style qui resemble `kde'''
|
|
33 |
#endif
|
|
34 |
|
3195
|
35 |
menuFont Font family:'helvetica' face:'medium' style:'roman' size:12
|
3194
|
36 |
|
3195
|
37 |
selectionFont =menuFont
|
|
38 |
labelFont =menuFont
|
|
39 |
menuFont =menuFont
|
3194
|
40 |
|
|
41 |
#try this:
|
|
42 |
#variablePanel.handleLevel -1
|
|
43 |
|
|
44 |
#or, try that:
|
|
45 |
#variablePanel.handleLevel 0
|
|
46 |
#variablePanel.handleColor Color black
|
|
47 |
#variablePanel.handleStyle #iris
|
|
48 |
|
|
49 |
;
|
|
50 |
; although the following is not really motif, it looks much better ...
|
|
51 |
;
|
|
52 |
#if Screen current hasColors
|
3350
|
53 |
editField.backgroundColor Color white
|
3255
|
54 |
editField.selectionBackgroundColor Color blue darkened
|
|
55 |
editField.selectionForegroundColor Color white
|
3194
|
56 |
#else
|
|
57 |
# if Screen current hasGrayscales not
|
|
58 |
editField.backgroundColor Color white
|
3255
|
59 |
editField.selectionBackgroundColor Color black
|
|
60 |
editField.selectionForegroundColor Color white
|
3194
|
61 |
# endif
|
|
62 |
#endif
|
|
63 |
|
|
64 |
checkToggle.activeBackgroundColor =slightlyDarkerGrey
|
|
65 |
scroller.viewBackground =slightlyDarkerGrey
|
|
66 |
arrowButton.activeBackgroundColor =slightlyDarkerGrey
|
|
67 |
button.activeBackgroundColor =slightlyDarkerGrey
|
|
68 |
|
3197
|
69 |
scrollBar.level -1
|
|
70 |
menuPanel.verticalInset 8
|
|
71 |
menu.itemSpace 10
|
3194
|
72 |
|
3255
|
73 |
menuPanel.enteredLevel 1
|
|
74 |
menuPanel.activeLevel -1
|
|
75 |
|
|
76 |
|