equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1992 by Claus Gittinger |
4 COPYRIGHT (c) 1992 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
2306 Notice: the cornerPoint itself is NOT included" |
2308 Notice: the cornerPoint itself is NOT included" |
2307 |
2309 |
2308 self fillRectangleX:(origin x) y:(origin y) width:(extent x) height:(extent y) |
2310 self fillRectangleX:(origin x) y:(origin y) width:(extent x) height:(extent y) |
2309 ! |
2311 ! |
2310 |
2312 |
|
2313 fillRectangleOrigin:origin width:w height:h |
|
2314 "draw a filled rectangle. |
|
2315 Notice: the cornerPoint itself is NOT included" |
|
2316 |
|
2317 self fillRectangleX:(origin x) y:(origin y) width:w height:h |
|
2318 ! |
|
2319 |
2311 fillRoundRectangleX:left y:top width:width height:height wCorner:wCorn hCorner:hCorn |
2320 fillRoundRectangleX:left y:top width:width height:height wCorner:wCorn hCorner:hCorn |
2312 |right bottom wC hC wHalf hHalf| |
2321 |right bottom wC hC wHalf hHalf| |
2313 |
2322 |
2314 right := left + width. |
2323 right := left + width. |
2315 bottom := top + height. |
2324 bottom := top + height. |