30 the size-ratios of the subviews can be changed by moving this bar. |
30 the size-ratios of the subviews can be changed by moving this bar. |
31 |
31 |
32 The bar-handle is either an exposed knob (style == #motif) |
32 The bar-handle is either an exposed knob (style == #motif) |
33 or the forms defined in Scroller (style ~~ #motif) |
33 or the forms defined in Scroller (style ~~ #motif) |
34 |
34 |
35 $Header: /cvs/stx/stx/libwidg/Attic/VarVPanel.st,v 1.5 1994-01-08 17:31:30 claus Exp $ |
35 $Header: /cvs/stx/stx/libwidg/Attic/VarVPanel.st,v 1.6 1994-01-13 00:18:51 claus Exp $ |
36 |
36 |
37 written summer 91 by claus |
37 written summer 91 by claus |
38 '! |
38 '! |
39 |
39 |
40 !VariableVerticalPanel class methodsFor:'defaults'! |
40 !VariableVerticalPanel class methodsFor:'defaults'! |
189 "kludge for now" |
189 "kludge for now" |
190 (viewBackground colorId notNil |
190 (viewBackground colorId notNil |
191 and:[shadowColor colorId notNil |
191 and:[shadowColor colorId notNil |
192 and:[lightColor colorId notNil]]) ifTrue:[ |
192 and:[lightColor colorId notNil]]) ifTrue:[ |
193 self foreground:viewBackground background:noColor function:#xor. |
193 self foreground:viewBackground background:noColor function:#xor. |
194 self drawOpaqueForm:shadowForm x:hx y:hy. |
194 self displayOpaqueForm:shadowForm x:hx y:hy. |
195 self foreground:shadowColor function:#or. |
195 self foreground:shadowColor function:#or. |
196 self drawOpaqueForm:shadowForm x:hx y:hy. |
196 self displayOpaqueForm:shadowForm x:hx y:hy. |
197 self foreground:viewBackground function:#xor. |
197 self foreground:viewBackground function:#xor. |
198 self drawOpaqueForm:lightForm x:hx y:hy. |
198 self displayOpaqueForm:lightForm x:hx y:hy. |
199 self foreground:lightColor function:#or. |
199 self foreground:lightColor function:#or. |
200 self drawOpaqueForm:lightForm x:hx y:hy. |
200 self displayOpaqueForm:lightForm x:hx y:hy. |
201 |
201 |
202 self foreground:viewBackground. |
202 self foreground:viewBackground. |
203 paint := nil. "kludge to force paint to be really set" |
203 paint := nil. "kludge to force paint to be really set" |
204 self paint:viewBackground. |
204 self paint:viewBackground. |
205 self function:#copy |
205 self function:#copy |