374 |
374 |
375 ^ Scroller handleShadowFormOn:aDisplay |
375 ^ Scroller handleShadowFormOn:aDisplay |
376 ! |
376 ! |
377 |
377 |
378 updateStyleCache |
378 updateStyleCache |
|
379 "extract values from the styleSheet and cache them in class variables" |
|
380 |
|
381 <resource: #style (#variablePanelShowHandle #variablePanelHandleStyle |
|
382 #variablePanelHandlePosition #variablePanelHandleLevel |
|
383 #variablePanelTrackingLine |
|
384 #variablePanelSeparatingLine #variablePanelHandleColor)> |
|
385 |
379 DefaultShowHandle := StyleSheet at:'variablePanelShowHandle' default:true. |
386 DefaultShowHandle := StyleSheet at:'variablePanelShowHandle' default:true. |
380 DefaultHandleStyle := StyleSheet at:'variablePanelHandleStyle'. |
387 DefaultHandleStyle := StyleSheet at:'variablePanelHandleStyle'. |
381 DefaultHandlePosition := StyleSheet at:'variablePanelHandlePosition' default:#right. |
388 DefaultHandlePosition := StyleSheet at:'variablePanelHandlePosition' default:#right. |
382 DefaultHandleLevel := StyleSheet at:'variablePanelHandleLevel' default:2. |
389 DefaultHandleLevel := StyleSheet at:'variablePanelHandleLevel' default:2. |
383 DefaultTrackingLine := StyleSheet at:'variablePanelTrackingLine' default:false. |
390 DefaultTrackingLine := StyleSheet at:'variablePanelTrackingLine' default:false. |
384 DefaultSeparatingLine := StyleSheet at:'variablePanelSeparatingLine' default:false. |
391 DefaultSeparatingLine := StyleSheet at:'variablePanelSeparatingLine' default:false. |
385 DefaultHandleColor := StyleSheet colorAt:'variablePanelHandleColor' default:Black. |
392 DefaultHandleColor := StyleSheet colorAt:'variablePanelHandleColor' default:Black. |
|
393 |
|
394 "Modified: 1.3.1996 / 13:51:24 / cg" |
386 ! ! |
395 ! ! |
387 |
396 |
388 !VariablePanel methodsFor:'accessing'! |
397 !VariablePanel methodsFor:'accessing'! |
389 |
398 |
390 addSubView:aView |
399 addSubView:aView |