equal
deleted
inserted
replaced
250 ! ! |
250 ! ! |
251 |
251 |
252 !MenuView class methodsFor:'defaults'! |
252 !MenuView class methodsFor:'defaults'! |
253 |
253 |
254 updateStyleCache |
254 updateStyleCache |
|
255 "extract values from the styleSheet and cache them in class variables" |
|
256 |
|
257 <resource: #style (#menuForegroundColor #menuBackgroundColor |
|
258 #menuViewBackground |
|
259 #menuShadowColor #menuLightColor |
|
260 #menuHilightForegroundColor #menuHilightBackgroundColor |
|
261 #menuHilightFrameColor #selectionHilightFrameColor |
|
262 #menuHilightLevel #menuHilightStyle |
|
263 #menuSeparatingLineLevel #menuSeparatingLineInset |
|
264 #menuDisabledForegroundColor #menuCheckColor |
|
265 #menuFont #menuShowAccelerators)> |
|
266 |
255 DefaultViewBackground := StyleSheet colorAt:'menuViewBackground'. |
267 DefaultViewBackground := StyleSheet colorAt:'menuViewBackground'. |
256 DefaultForegroundColor := StyleSheet colorAt:'menuForegroundColor'. |
268 DefaultForegroundColor := StyleSheet colorAt:'menuForegroundColor'. |
257 DefaultBackgroundColor := StyleSheet colorAt:'menuBackgroundColor'. |
269 DefaultBackgroundColor := StyleSheet colorAt:'menuBackgroundColor'. |
258 DefaultShadowColor := StyleSheet colorAt:'menuShadowColor'. |
270 DefaultShadowColor := StyleSheet colorAt:'menuShadowColor'. |
259 DefaultLightColor := StyleSheet colorAt:'menuLightColor'. |
271 DefaultLightColor := StyleSheet colorAt:'menuLightColor'. |
268 DefaultDisabledForegroundColor := StyleSheet colorAt:'menuDisabledForegroundColor' default:Color darkGrey. |
280 DefaultDisabledForegroundColor := StyleSheet colorAt:'menuDisabledForegroundColor' default:Color darkGrey. |
269 DefaultCheckColor := StyleSheet colorAt:'menuCheckColor'. |
281 DefaultCheckColor := StyleSheet colorAt:'menuCheckColor'. |
270 DefaultFont := StyleSheet fontAt:'menuFont'. |
282 DefaultFont := StyleSheet fontAt:'menuFont'. |
271 ShowAcceleratorKeys := StyleSheet at:'menuShowAccelerators' default:true. |
283 ShowAcceleratorKeys := StyleSheet at:'menuShowAccelerators' default:true. |
272 |
284 |
273 "Modified: 29.2.1996 / 03:56:53 / cg" |
285 "Modified: 1.3.1996 / 13:45:31 / cg" |
274 ! ! |
286 ! ! |
275 |
287 |
276 !MenuView methodsFor:'accessing-behavior'! |
288 !MenuView methodsFor:'accessing-behavior'! |
277 |
289 |
278 disable:indexOrName |
290 disable:indexOrName |
2244 ! ! |
2256 ! ! |
2245 |
2257 |
2246 !MenuView class methodsFor:'documentation'! |
2258 !MenuView class methodsFor:'documentation'! |
2247 |
2259 |
2248 version |
2260 version |
2249 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.51 1996-02-29 11:55:15 cg Exp $' |
2261 ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.52 1996-03-01 13:20:49 cg Exp $' |
2250 ! ! |
2262 ! ! |