class: GraphicsContext
changed:
#displayRoundRectangleX:y:width:height:wCorner:hCorner:
#fillRoundRectangleX:y:width:height:wCorner:hCorner:
eliminated the need to know what the platformname
of the windows device is
--- a/GraphicsContext.st Thu Apr 03 16:37:30 2014 +0200
+++ b/GraphicsContext.st Thu Apr 03 16:37:58 2014 +0200
@@ -1769,7 +1769,7 @@
"/ (if you change anything under Unix, make it X-platform specific.
"/ (there seem to be drawing incompatibilities between Win- and XWorkstation)
- isWin32 := device platformName = 'WIN32'.
+ isWin32 := device isWindowsPlatform.
right := left + width-1.
bottom := top + height-1.
@@ -2403,7 +2403,7 @@
wHalf := wC / 2.
hHalf := hC / 2.
- device platformName = #WIN32 ifTrue:[
+ device isWindowsPlatform ifTrue:[
"/ bug workaround
"top left arc"
self fillArcX:left y:top width:wC height:hC from:90 angle:90.
@@ -2512,11 +2512,11 @@
!GraphicsContext class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.134 2014-02-18 16:43:43 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.135 2014-04-03 14:37:58 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.134 2014-02-18 16:43:43 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.135 2014-04-03 14:37:58 cg Exp $'
! !