7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
|
12 |
|
13 'From Smalltalk/X, Version:3.2.1 on 14-oct-1997 at 11:25:13 pm' ! |
12 |
14 |
13 SimpleView subclass:#VariablePanel |
15 SimpleView subclass:#VariablePanel |
14 instanceVariableNames:'barHeight barWidth separatingLine shadowForm lightForm showHandle |
16 instanceVariableNames:'barHeight barWidth separatingLine shadowForm lightForm showHandle |
15 handlePosition handleColor handleStyle handleLevel noColor |
17 handlePosition handleColor handleStyle handleLevel noColor |
16 trackLine redrawLocked orientation handleLabels knobHeight' |
18 trackLine redrawLocked orientation handleLabels knobHeight' |
600 ! |
602 ! |
601 |
603 |
602 updateStyleCache |
604 updateStyleCache |
603 "extract values from the styleSheet and cache them in class variables" |
605 "extract values from the styleSheet and cache them in class variables" |
604 |
606 |
605 <resource: #style (#variablePanelShowHandle #variablePanelHandleStyle |
607 <resource: #style (#'variablePanel.showHandle' #'variablePanel.handleStyle' |
606 #variablePanelHandlePosition #variablePanelHandleLevel |
608 #'variablePanel.handlePosition' #'variablePanel.handleLevel' |
607 #variablePanelTrackingLine #variablePanelTrackingStyle |
609 #'variablePanel.trackingLine' #'variablePanel.trackingStyle' |
608 #variablePanelSeparatingLine #variablePanelHandleColor)> |
610 #'variablePanel.separatingLine' #'variablePanel.handleColor')> |
609 |
611 |
610 |lineModeBoolean| |
612 |lineModeBoolean| |
611 |
613 |
612 DefaultShowHandle := StyleSheet at:'variablePanelShowHandle' default:true. |
614 DefaultShowHandle := StyleSheet at:'variablePanel.showHandle' default:true. |
613 DefaultHandleStyle := StyleSheet at:'variablePanelHandleStyle'. |
615 DefaultHandleStyle := StyleSheet at:'variablePanel.handleStyle'. |
614 DefaultHandlePosition := StyleSheet at:'variablePanelHandlePosition' default:#right. |
616 DefaultHandlePosition := StyleSheet at:'variablePanel.handlePosition' default:#right. |
615 DefaultHandleLevel := StyleSheet at:'variablePanelHandleLevel' default:2. |
617 DefaultHandleLevel := StyleSheet at:'variablePanel.handleLevel' default:2. |
616 DefaultTrackingLine := StyleSheet at:'variablePanelTrackingStyle' default:nil. |
618 DefaultTrackingLine := StyleSheet at:'variablePanel.trackingStyle' default:nil. |
617 DefaultTrackingLine isNil ifTrue:[ |
619 DefaultTrackingLine isNil ifTrue:[ |
618 lineModeBoolean := StyleSheet at:'variablePanelTrackingLine' default:false. |
620 lineModeBoolean := StyleSheet at:'variablePanel.trackingLine' default:false. |
619 lineModeBoolean ifTrue:[ |
621 lineModeBoolean ifTrue:[ |
620 DefaultTrackingLine := #solidLine |
622 DefaultTrackingLine := #solidLine |
621 ] ifFalse:[ |
623 ] ifFalse:[ |
622 DefaultTrackingLine := #solidRectangle |
624 DefaultTrackingLine := #solidRectangle |
623 ] |
625 ] |
624 ]. |
626 ]. |
625 |
627 |
626 DefaultSeparatingLine := StyleSheet at:'variablePanelSeparatingLine' default:false. |
628 DefaultSeparatingLine := StyleSheet at:'variablePanel.separatingLine' default:false. |
627 DefaultHandleColor := StyleSheet colorAt:'variablePanelHandleColor' default:Black. |
629 DefaultHandleColor := StyleSheet colorAt:'variablePanel.handleColor' default:Black. |
628 |
630 |
629 " |
631 " |
630 VariablePanel updateStyleCache |
632 VariablePanel updateStyleCache |
631 " |
633 " |
632 |
634 |
633 "Modified: 18.3.1997 / 17:16:10 / cg" |
635 "Modified: 14.10.1997 / 01:26:42 / cg" |
634 ! ! |
636 ! ! |
635 |
637 |
636 !VariablePanel methodsFor:'accessing'! |
638 !VariablePanel methodsFor:'accessing'! |
637 |
639 |
638 addSubView:aView |
640 addSubView:aView |