author | Claus Gittinger <cg@exept.de> |
Mon, 19 Aug 2002 18:26:47 +0200 | |
changeset 3702 | 39cb49a47bc1 |
parent 3257 | 614ad81c445b |
child 3716 | d7739a80eac8 |
permissions | -rw-r--r-- |
2115 | 1 |
; View defaultStyle:#iris |
2 |
; |
|
3 |
; silicon graphics style |
|
4 |
; (somwehat like motif, but with smooth edges and bells&whistles) |
|
5 |
; |
|
3702 | 6 |
; $Header: /cvs/stx/stx/libview/styles/iris.common,v 1.15 2002-08-19 16:26:47 cg Exp $ |
2115 | 7 |
|
8 |
is3D true |
|
9 |
||
10 |
borderWidth 0 |
|
11 |
viewBackground =viewGrey |
|
12 |
||
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2578
diff
changeset
|
13 |
#if (Screen current serverVendor = 'microsoft') |
2315 | 14 |
popup.shadow false |
15 |
#else |
|
2115 | 16 |
popup.shadow true |
2315 | 17 |
#endif |
2578 | 18 |
popup.level 1 |
2115 | 19 |
popup.borderWidth 1 |
20 |
||
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2578
diff
changeset
|
21 |
#if (Screen current serverVendor = 'microsoft') |
2435 | 22 |
font Font family:'courier' size:10 |
2285 | 23 |
#endif |
24 |
||
2115 | 25 |
text.font Font family:'courier' size:12 |
26 |
text.lightColor =viewGrey |
|
27 |
||
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2578
diff
changeset
|
28 |
#if Screen current hasColors |
2115 | 29 |
textSelection.foregroundColor Color black |
30 |
textSelection.backgroundColor Color green |
|
31 |
#endif |
|
32 |
||
33 |
textCursor.foregroundColor Color white |
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2578
diff
changeset
|
34 |
#if Screen current hasColors |
2115 | 35 |
textCursor.backgroundColor Color red |
36 |
#else |
|
37 |
textCursor.backgroundColor Color black |
|
38 |
#endif |
|
39 |
||
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2578
diff
changeset
|
40 |
#if (Screen current hasColors and:[Screen current depth > 4]) |
2115 | 41 |
transcript.foregroundColor =veryLightGray |
42 |
transcript.backgroundColor Color red:0 green:0 blue:25 |
|
43 |
transcript.cursorForegroundColor =transcript.backgroundColor |
|
44 |
transcript.cursorBackgroundColor Color green |
|
45 |
#else |
|
46 |
transcript.foregroundColor Color white |
|
47 |
transcript.backgroundColor Color black |
|
48 |
transcript.cursorForegroundColor =transcript.backgroundColor |
|
49 |
transcript.cursorBackgroundColor =transcript.foregroundColor |
|
50 |
#endif |
|
51 |
||
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2578
diff
changeset
|
52 |
#if Screen current hasColors |
2115 | 53 |
; editField.backgroundColor Color red:100 green:75 blue:75 |
54 |
; editField.backgroundColor (Color scaledRed:16rB9B9 scaledGreen:16r8E8E scaledBlue:16r8E8E) exactOrNearestOn:(Screen current) |
|
55 |
editField.backgroundColor (Color scaledRed:16rB9B9 scaledGreen:16r8E8E scaledBlue:16r8E8E) exactOrNearestOn:(Screen current) |
|
56 |
editField.selectionBackgroundColor Color white |
|
57 |
editField.selectionForegroundColor Color black |
|
58 |
#endif |
|
59 |
||
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2578
diff
changeset
|
60 |
#if (Screen current serverVendor = 'Silicon Graphics' and:[(Font family:'screen' face:'bold' style:'roman' size:16) existsOn:Screen current]) |
2115 | 61 |
editField.font Font family:'screen' face:'bold' style:'roman' size:16 |
62 |
#else |
|
63 |
editField.font Font family:'courier' face:'medium' style:'roman' size:12 |
|
64 |
#endif |
|
65 |
||
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2578
diff
changeset
|
66 |
#if (Screen current serverVendor = 'microsoft') |
2285 | 67 |
variableFont Font family:'helvetica' face:'medium' style:'roman' size:10 |
68 |
#else |
|
69 |
variableFont Font family:'helvetica' face:'medium' style:'roman' size:12 |
|
70 |
#endif |
|
2115 | 71 |
selection.font =variableFont |
72 |
label.font =variableFont |
|
73 |
||
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2578
diff
changeset
|
74 |
#if Screen current hasColors |
2115 | 75 |
toggle.showLamp true |
76 |
toggle.lampColor Color yellow |
|
77 |
checkToggle.checkColor Color red |
|
78 |
checkToggle.bitmapFile 'CheckOnColor.xpm' |
|
79 |
checkToggle.labelOverMargin true |
|
2568 | 80 |
checkToggle.activeBackgroundColor =viewGrey |
2115 | 81 |
radioButton.showLamp false |
82 |
#endif |
|
83 |
||
84 |
scroller.level -1 |
|
85 |
scroller.thumbLevel 3 |
|
86 |
scroller.thumbColor =viewGrey |
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2578
diff
changeset
|
87 |
#if Screen current hasGreyscales |
2115 | 88 |
scroller.thumbEnteredColor =veryLightGray |
89 |
#endif |
|
90 |
scroller.thumbEdgeStyle #soft |
|
91 |
scroller.NTallyMarks 3 |
|
92 |
scroller.tallyLevel 1 |
|
93 |
scroller.ghostColor =mediumGray |
|
94 |
scroller.ghostLevel -1 |
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2578
diff
changeset
|
95 |
#if Screen current hasGreyscales not |
2115 | 96 |
scroller.viewBackground Color white |
97 |
#endif |
|
98 |
scroller.middleButtonJump true |
|
99 |
||
100 |
slider.NTallyMarks 1 |
|
101 |
slider.tallyLevel 1 |
|
102 |
||
103 |
button.edgeStyle #soft |
|
104 |
button.activeLevel -1 |
|
105 |
button.passiveLevel 3 |
|
106 |
button.disabledForegroundColor =darkGray |
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2578
diff
changeset
|
107 |
#if Screen current hasGreyscales |
2115 | 108 |
button.enteredBackgroundColor =veryLightGray |
109 |
button.activeBackgroundColor nil |
|
110 |
button.activeForegroundColor Color black |
|
111 |
#else |
|
112 |
button.enteredBackgroundColor Color white |
|
113 |
button.activeForegroundColor Color white |
|
114 |
button.activeBackgroundColor Color black |
|
115 |
#endif |
|
116 |
||
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2578
diff
changeset
|
117 |
#if (Screen current serverVendor = 'Silicon Graphics') |
2115 | 118 |
menu.font Font family:'helvetica' face:'bold' style:'oblique' size:10 |
119 |
#else |
|
120 |
menu.font Font family:'helvetica' face:'bold' style:'roman' size:12 |
|
121 |
#endif |
|
122 |
||
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2578
diff
changeset
|
123 |
#if (Screen current serverVendor = 'microsoft') |
2285 | 124 |
menu.font Font family:'helvetica' face:'bold' style:'roman' size:10 |
125 |
text.font Font family:'courier' size:10 |
|
126 |
variableFont Font family:'helvetica' face:'medium' style:'roman' size:10 |
|
127 |
selection.font =variableFont |
|
128 |
label.font =variableFont |
|
129 |
#endif |
|
130 |
||
3166 | 131 |
noteBook.halfLightColor Color red |
132 |
noteBook.halfShadowColor Color green |
|
133 |
noteBook.shadowColor =darkGray |
|
134 |
noteBook.lightColor =veryLightGray |
|
135 |
"/ noteBook.foregroundColor Color red |
|
136 |
"/ noteBook.disabledForegroundColor Color red darkened |
|
137 |
noteBook.canvasFrameLevel 1 |
|
138 |
noteBook.edgeStyle #soft |
|
139 |
||
2115 | 140 |
menu.hilightBackgroundColor Color white |
141 |
menu.hilightForegroundColor Color black |
|
142 |
menu.hilightLevel 1 |
|
143 |
; menuShowAccelerators false |
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2578
diff
changeset
|
144 |
#if Screen current hasColors |
2115 | 145 |
menu.checkColor Color red |
146 |
#endif |
|
3257 | 147 |
menu.mainMenu.tabable true |
2115 | 148 |
|
149 |
pullDownMenu.font =menu.font |
|
3176 | 150 |
pullDownMenu.menuLevel 2 |
3702 | 151 |
pullDownMenu.level 1 |
152 |
;; pullDownMenu.level 0 |
|
2115 | 153 |
pullDownMenu.hilightLevel 2 |
154 |
pullDownMenu.edgeStyle #soft |
|
155 |
||
156 |
variablePanel.handleColor =darkGray |
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2578
diff
changeset
|
157 |
#if Screen current hasGreyscales |
2115 | 158 |
variablePanel.handleEnteredColor =veryLightGray |
159 |
#endif |
|
2135 | 160 |
variablePanel.barHeight 10 |
2115 | 161 |
|
162 |
activeHelp.backgroundColor Color yellow lightened |
|
163 |
activeHelp.borderWidth 2 |
|
164 |
||
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2578
diff
changeset
|
165 |
#if Screen current hasGrayscales not |
2115 | 166 |
html.anchorUnderline true |
167 |
html.anchorForegroundColor Color black |
|
168 |
html.backgroundColor Color white |
|
169 |
html.activeAnchorForegroundColor Color black |
|
170 |
html.activeAnchorBackgroundColor =html.backgroundColor |
|
171 |
html.visitedAnchorForegroundColor Color black |
|
172 |
html.exampleAnchorForegroundColor Color black |
|
173 |
#endif |
|
2359
fefa0776f9dd
use smaller bitmaps (arrow & combo-down) on small displays
Claus Gittinger <cg@exept.de>
parents:
2315
diff
changeset
|
174 |
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2578
diff
changeset
|
175 |
#if Screen current width <= 800 |
2359
fefa0776f9dd
use smaller bitmaps (arrow & combo-down) on small displays
Claus Gittinger <cg@exept.de>
parents:
2315
diff
changeset
|
176 |
|
fefa0776f9dd
use smaller bitmaps (arrow & combo-down) on small displays
Claus Gittinger <cg@exept.de>
parents:
2315
diff
changeset
|
177 |
viewSpacing 2 "/ pixels |
fefa0776f9dd
use smaller bitmaps (arrow & combo-down) on small displays
Claus Gittinger <cg@exept.de>
parents:
2315
diff
changeset
|
178 |
arrowButton.downFormFile 'ScrollDn.12.xbm' |
fefa0776f9dd
use smaller bitmaps (arrow & combo-down) on small displays
Claus Gittinger <cg@exept.de>
parents:
2315
diff
changeset
|
179 |
arrowButton.upFormFile 'ScrollUp.12.xbm' |
fefa0776f9dd
use smaller bitmaps (arrow & combo-down) on small displays
Claus Gittinger <cg@exept.de>
parents:
2315
diff
changeset
|
180 |
arrowButton.leftFormFile 'ScrollLt.12.xbm' |
fefa0776f9dd
use smaller bitmaps (arrow & combo-down) on small displays
Claus Gittinger <cg@exept.de>
parents:
2315
diff
changeset
|
181 |
arrowButton.rightFormFile 'ScrollRt.12.xbm' |
fefa0776f9dd
use smaller bitmaps (arrow & combo-down) on small displays
Claus Gittinger <cg@exept.de>
parents:
2315
diff
changeset
|
182 |
comboView.downFormFile 'ComboDn.12.xbm' |
fefa0776f9dd
use smaller bitmaps (arrow & combo-down) on small displays
Claus Gittinger <cg@exept.de>
parents:
2315
diff
changeset
|
183 |
|
fefa0776f9dd
use smaller bitmaps (arrow & combo-down) on small displays
Claus Gittinger <cg@exept.de>
parents:
2315
diff
changeset
|
184 |
#endif |
fefa0776f9dd
use smaller bitmaps (arrow & combo-down) on small displays
Claus Gittinger <cg@exept.de>
parents:
2315
diff
changeset
|
185 |
|
2991
918e2f570098
removed all direct references to Display (must use Screen current)
Stefan Vogel <sv@exept.de>
parents:
2578
diff
changeset
|
186 |
#if Screen current width <= 640 |
2359
fefa0776f9dd
use smaller bitmaps (arrow & combo-down) on small displays
Claus Gittinger <cg@exept.de>
parents:
2315
diff
changeset
|
187 |
|
fefa0776f9dd
use smaller bitmaps (arrow & combo-down) on small displays
Claus Gittinger <cg@exept.de>
parents:
2315
diff
changeset
|
188 |
arrowButton.downFormFile 'ScrollDn.8.xbm' |
fefa0776f9dd
use smaller bitmaps (arrow & combo-down) on small displays
Claus Gittinger <cg@exept.de>
parents:
2315
diff
changeset
|
189 |
arrowButton.upFormFile 'ScrollUp.8.xbm' |
fefa0776f9dd
use smaller bitmaps (arrow & combo-down) on small displays
Claus Gittinger <cg@exept.de>
parents:
2315
diff
changeset
|
190 |
arrowButton.leftFormFile 'ScrollLt.8.xbm' |
fefa0776f9dd
use smaller bitmaps (arrow & combo-down) on small displays
Claus Gittinger <cg@exept.de>
parents:
2315
diff
changeset
|
191 |
arrowButton.rightFormFile 'ScrollRt.8.xbm' |
fefa0776f9dd
use smaller bitmaps (arrow & combo-down) on small displays
Claus Gittinger <cg@exept.de>
parents:
2315
diff
changeset
|
192 |
comboView.downFormFile 'ComboDn.8.xbm' |
fefa0776f9dd
use smaller bitmaps (arrow & combo-down) on small displays
Claus Gittinger <cg@exept.de>
parents:
2315
diff
changeset
|
193 |
|
fefa0776f9dd
use smaller bitmaps (arrow & combo-down) on small displays
Claus Gittinger <cg@exept.de>
parents:
2315
diff
changeset
|
194 |
#endif |
fefa0776f9dd
use smaller bitmaps (arrow & combo-down) on small displays
Claus Gittinger <cg@exept.de>
parents:
2315
diff
changeset
|
195 |