Comment #7 on issue 1097 by ryd...@gmail.com: Not all shapes support borderColor/borderWidth https://code.google.com/p/moose-technology/issues/detail?id=1097
As per the linked thread, you can do it with the athens drawing API already..
ellipsisOfExtent := [:builder :anExtent | | halfX halfY | halfX := anExtent x / 2. halfY := anExtent y / 2. "We expect relative builder, and start the ellipsis at anExtent x / 2 @ 0" builder curveVia: 0@(halfY negated * 0.55) and: (0.45 * halfX)@halfY negated to: halfX@ halfY negated; curveVia: halfX* 0.55 @ 0 and: halfX@ (0.45 * halfY) to: halfX @ halfY; curveVia: 0 @ (halfY * 0.55 ) and: (0.45 * halfX negated @ halfY) to: halfX negated @ halfY; curveVia: (halfX negated * 0.55) @ 0 and: halfX negated @ (halfY negated * 0.45) to: halfX negated @ halfY negated; close].
AthensSceneView new scene: [ :can | | path |
path := can createPath: [ :builder | builder moveTo: 10@60. ellipsisOfExtent value: builder value: 200@100 ]. (can setPaint: Color blue; drawShape: path; setStrokePaint: Color red) width: 8 asFloat. can drawShape: path ] ; openInWindow