551 updateStyleCache |
551 updateStyleCache |
552 "extract values from the styleSheet and cache them in class variables" |
552 "extract values from the styleSheet and cache them in class variables" |
553 |
553 |
554 <resource: #style (#variablePanelShowHandle #variablePanelHandleStyle |
554 <resource: #style (#variablePanelShowHandle #variablePanelHandleStyle |
555 #variablePanelHandlePosition #variablePanelHandleLevel |
555 #variablePanelHandlePosition #variablePanelHandleLevel |
556 #variablePanelTrackingLine |
556 #variablePanelTrackingLine #variablePanelTrackingStyle |
557 #variablePanelSeparatingLine #variablePanelHandleColor)> |
557 #variablePanelSeparatingLine #variablePanelHandleColor)> |
|
558 |
|
559 |lineModeBoolean| |
558 |
560 |
559 DefaultShowHandle := StyleSheet at:'variablePanelShowHandle' default:true. |
561 DefaultShowHandle := StyleSheet at:'variablePanelShowHandle' default:true. |
560 DefaultHandleStyle := StyleSheet at:'variablePanelHandleStyle'. |
562 DefaultHandleStyle := StyleSheet at:'variablePanelHandleStyle'. |
561 DefaultHandlePosition := StyleSheet at:'variablePanelHandlePosition' default:#right. |
563 DefaultHandlePosition := StyleSheet at:'variablePanelHandlePosition' default:#right. |
562 DefaultHandleLevel := StyleSheet at:'variablePanelHandleLevel' default:2. |
564 DefaultHandleLevel := StyleSheet at:'variablePanelHandleLevel' default:2. |
563 DefaultTrackingLine := StyleSheet at:'variablePanelTrackingLine' default:false. |
565 DefaultTrackingLine := StyleSheet at:'variablePanelTrackingStyle' default:nil. |
|
566 DefaultTrackingLine isNil ifTrue:[ |
|
567 lineModeBoolean := StyleSheet at:'variablePanelTrackingLine' default:false. |
|
568 lineModeBoolean ifTrue:[ |
|
569 DefaultTrackingLine := #solidLine |
|
570 ] ifFalse:[ |
|
571 DefaultTrackingLine := #solidRectangle |
|
572 ] |
|
573 ]. |
|
574 |
564 DefaultSeparatingLine := StyleSheet at:'variablePanelSeparatingLine' default:false. |
575 DefaultSeparatingLine := StyleSheet at:'variablePanelSeparatingLine' default:false. |
565 DefaultHandleColor := StyleSheet colorAt:'variablePanelHandleColor' default:Black. |
576 DefaultHandleColor := StyleSheet colorAt:'variablePanelHandleColor' default:Black. |
566 |
577 |
567 "Modified: 1.3.1996 / 13:51:24 / cg" |
578 " |
|
579 VariablePanel updateStyleCache |
|
580 " |
|
581 |
|
582 "Modified: 18.3.1997 / 17:16:10 / cg" |
568 ! ! |
583 ! ! |
569 |
584 |
570 !VariablePanel methodsFor:'accessing'! |
585 !VariablePanel methodsFor:'accessing'! |
571 |
586 |
572 addSubView:aView |
587 addSubView:aView |
973 ! |
988 ! |
974 |
989 |
975 invertHandleBarAtX:hx y:hy |
990 invertHandleBarAtX:hx y:hy |
976 self noClipByChildren. |
991 self noClipByChildren. |
977 self xoring:[ |
992 self xoring:[ |
978 |y x| |
993 |yL xL halfHeight| |
979 |
994 |
980 orientation == #vertical ifTrue:[ |
995 halfHeight := barHeight // 2. |
981 trackLine ifTrue:[ |
996 yL := hy + halfHeight. |
982 y := hy + (barHeight // 2). |
997 xL := hx + halfHeight. |
983 self displayLineFromX:0 y:y toX:width y:y. |
998 |
984 ] ifFalse:[ |
999 orientation == #vertical ifTrue:[ |
985 self fillRectangleX:0 y:hy width:width height:barHeight |
1000 trackLine == #solidLine ifTrue:[ |
986 ] |
1001 self displayLineFromX:0 y:yL toX:width y:yL. |
987 ] ifFalse:[ |
1002 ] ifFalse:[ |
988 trackLine ifTrue:[ |
1003 trackLine == #dashedLine ifTrue:[ |
989 x := hx + (barHeight // 2). |
1004 self lineStyle:#dashed. |
990 self displayLineFromX:x y:0 toX:x y:height. |
1005 self displayLineFromX:0 y:yL toX:width y:yL. |
991 ] ifFalse:[ |
1006 self lineStyle:#solid. |
992 self fillRectangleX:hx y:0 width:barHeight height:height |
1007 ] ifFalse:[ |
993 ] |
1008 self fillRectangleX:0 y:hy width:width height:barHeight |
994 ] |
1009 ] |
|
1010 ] |
|
1011 ] ifFalse:[ |
|
1012 trackLine == #solidLine ifTrue:[ |
|
1013 self displayLineFromX:xL y:0 toX:xL y:height. |
|
1014 ] ifFalse:[ |
|
1015 trackLine == #dashedLine ifTrue:[ |
|
1016 self lineStyle:#dashed. |
|
1017 self displayLineFromX:xL y:0 toX:xL y:height. |
|
1018 self lineStyle:#solid. |
|
1019 ] ifFalse:[ |
|
1020 self fillRectangleX:hx y:0 width:barHeight height:height |
|
1021 ] |
|
1022 ] |
|
1023 ] |
995 ]. |
1024 ]. |
996 self clipByChildren. |
1025 self clipByChildren. |
|
1026 |
|
1027 "Modified: 18.3.1997 / 17:19:34 / cg" |
997 ! |
1028 ! |
998 |
1029 |
999 lockRedraw |
1030 lockRedraw |
1000 redrawLocked := true |
1031 redrawLocked := true |
1001 ! |
1032 ! |