994 |
994 |
995 halfHeight := barHeight // 2. |
995 halfHeight := barHeight // 2. |
996 yL := hy + halfHeight. |
996 yL := hy + halfHeight. |
997 xL := hx + halfHeight. |
997 xL := hx + halfHeight. |
998 |
998 |
|
999 trackLine == #dashedLine ifTrue:[ |
|
1000 self lineStyle:#dashed. |
|
1001 ]. |
999 orientation == #vertical ifTrue:[ |
1002 orientation == #vertical ifTrue:[ |
1000 trackLine == #solidLine ifTrue:[ |
1003 (trackLine == #solidLine |
|
1004 or:[trackLine == #dashedLine]) ifTrue:[ |
1001 self displayLineFromX:0 y:yL toX:width y:yL. |
1005 self displayLineFromX:0 y:yL toX:width y:yL. |
1002 ] ifFalse:[ |
1006 ] ifFalse:[ |
1003 trackLine == #dashedLine ifTrue:[ |
1007 self fillRectangleX:0 y:hy width:width height:barHeight |
1004 self lineStyle:#dashed. |
|
1005 self displayLineFromX:0 y:yL toX:width y:yL. |
|
1006 self lineStyle:#solid. |
|
1007 ] ifFalse:[ |
|
1008 self fillRectangleX:0 y:hy width:width height:barHeight |
|
1009 ] |
|
1010 ] |
1008 ] |
1011 ] ifFalse:[ |
1009 ] ifFalse:[ |
1012 trackLine == #solidLine ifTrue:[ |
1010 (trackLine == #solidLine |
|
1011 or:[trackLine == #dashedLine]) ifTrue:[ |
1013 self displayLineFromX:xL y:0 toX:xL y:height. |
1012 self displayLineFromX:xL y:0 toX:xL y:height. |
1014 ] ifFalse:[ |
1013 ] ifFalse:[ |
1015 trackLine == #dashedLine ifTrue:[ |
1014 self fillRectangleX:hx y:0 width:barHeight height:height |
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 ] |
1015 ] |
1023 ] |
1016 ]. |
|
1017 trackLine == #dashedLine ifTrue:[ |
|
1018 self lineStyle:#solid. |
|
1019 ]. |
1024 ]. |
1020 ]. |
1025 self clipByChildren. |
1021 self clipByChildren. |
1026 |
1022 |
1027 "Modified: 18.3.1997 / 17:19:34 / cg" |
1023 "Modified: 19.3.1997 / 10:26:55 / cg" |
1028 ! |
1024 ! |
1029 |
1025 |
1030 lockRedraw |
1026 lockRedraw |
1031 redrawLocked := true |
1027 redrawLocked := true |
1032 ! |
1028 ! |