equal
deleted
inserted
replaced
1767 |
1767 |
1768 "/ BIG KLUDGE WARNING HERE: the code below looks "good" on windows displays; |
1768 "/ BIG KLUDGE WARNING HERE: the code below looks "good" on windows displays; |
1769 "/ (if you change anything under Unix, make it X-platform specific. |
1769 "/ (if you change anything under Unix, make it X-platform specific. |
1770 "/ (there seem to be drawing incompatibilities between Win- and XWorkstation) |
1770 "/ (there seem to be drawing incompatibilities between Win- and XWorkstation) |
1771 |
1771 |
1772 isWin32 := device platformName = 'WIN32'. |
1772 isWin32 := device isWindowsPlatform. |
1773 |
1773 |
1774 right := left + width-1. |
1774 right := left + width-1. |
1775 bottom := top + height-1. |
1775 bottom := top + height-1. |
1776 |
1776 |
1777 wC := wCorn. |
1777 wC := wCorn. |
2401 hC := hCorn. |
2401 hC := hCorn. |
2402 |
2402 |
2403 wHalf := wC / 2. |
2403 wHalf := wC / 2. |
2404 hHalf := hC / 2. |
2404 hHalf := hC / 2. |
2405 |
2405 |
2406 device platformName = #WIN32 ifTrue:[ |
2406 device isWindowsPlatform ifTrue:[ |
2407 "/ bug workaround |
2407 "/ bug workaround |
2408 "top left arc" |
2408 "top left arc" |
2409 self fillArcX:left y:top width:wC height:hC from:90 angle:90. |
2409 self fillArcX:left y:top width:wC height:hC from:90 angle:90. |
2410 "top right arc" |
2410 "top right arc" |
2411 self fillArcX:(right - wC - 1) y:top width:wC height:hC from:0 angle:90. |
2411 self fillArcX:(right - wC - 1) y:top width:wC height:hC from:0 angle:90. |
2510 ! ! |
2510 ! ! |
2511 |
2511 |
2512 !GraphicsContext class methodsFor:'documentation'! |
2512 !GraphicsContext class methodsFor:'documentation'! |
2513 |
2513 |
2514 version |
2514 version |
2515 ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.134 2014-02-18 16:43:43 stefan Exp $' |
2515 ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.135 2014-04-03 14:37:58 cg Exp $' |
2516 ! |
2516 ! |
2517 |
2517 |
2518 version_CVS |
2518 version_CVS |
2519 ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.134 2014-02-18 16:43:43 stefan Exp $' |
2519 ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.135 2014-04-03 14:37:58 cg Exp $' |
2520 ! ! |
2520 ! ! |
2521 |
2521 |
2522 |
2522 |
2523 GraphicsContext initialize! |
2523 GraphicsContext initialize! |