2115 ] ifFalse:[ |
2115 ] ifFalse:[ |
2116 hOutsideColor := handleColorBlack |
2116 hOutsideColor := handleColorBlack |
2117 ]. |
2117 ]. |
2118 |
2118 |
2119 (wasClipped := clipChildren) ifTrue:[ |
2119 (wasClipped := clipChildren) ifTrue:[ |
2120 self clippedByChildren:(clipChildren := false). |
2120 gc clippedByChildren:(clipChildren := false). |
2121 ]. |
2121 ]. |
2122 |
2122 |
2123 self handlesOf:aComponent do:[:aRectangle :what| |
2123 self handlesOf:aComponent do:[:aRectangle :what| |
2124 |l t w h| |
2124 |l t w h| |
2125 |
2125 |
2126 l := aRectangle left. |
2126 l := aRectangle left. |
2127 t := aRectangle top. |
2127 t := aRectangle top. |
2128 w := aRectangle width. |
2128 w := aRectangle width. |
2129 h := aRectangle height. |
2129 h := aRectangle height. |
2130 |
2130 |
2131 self paint:hOutsideColor. |
2131 gc paint:hOutsideColor. |
2132 self displayRectangleX:l y:t width:w height:h. |
2132 gc displayRectangleX:l y:t width:w height:h. |
2133 |
2133 |
2134 self paint:hInsideColor. |
2134 gc paint:hInsideColor. |
2135 |
2135 |
2136 what == #view ifTrue:[ |
2136 what == #view ifTrue:[ |
2137 self displayRectangleX:l+1 y:t+1 width:w-2 height:h-2 |
2137 gc displayRectangleX:l+1 y:t+1 width:w-2 height:h-2 |
2138 ] ifFalse:[ |
2138 ] ifFalse:[ |
2139 self fillRectangleX:l+1 y:t+1 width:w-2 height:h-2 |
2139 gc fillRectangleX:l+1 y:t+1 width:w-2 height:h-2 |
2140 ] |
2140 ] |
2141 ]. |
2141 ]. |
2142 |
2142 |
2143 wasClipped ifTrue:[ |
2143 wasClipped ifTrue:[ |
2144 self clippedByChildren:(clipChildren := true). |
2144 gc clippedByChildren:(clipChildren := true). |
2145 ] |
2145 ] |
2146 ] |
2146 ] |
2147 |
2147 |
2148 "Modified: / 6.12.2001 / 00:00:16 / cg" |
2148 "Modified: / 6.12.2001 / 00:00:16 / cg" |
2149 ! ! |
2149 ! ! |