[BUG] Missing methods in 3.4 beta
Lic. Edgar J. De Cleene
edgardec2001 at yahoo.com.ar
Tue Jan 7 09:21:57 UTC 2003
I found the followint method missing from 3.4 beta
'From Squeak3.2 of 11 July 2002 [latest update: #4956] on 7 January 2003 at
6:01:17 am'!
!PolygonMorph methodsFor: 'geometry' stamp: 'sw 9/14/97 18:22'!
flipVAroundY: centerY
"Flip me vertically around the center. If centerY is nil, compute my
center of gravity."
| cent |
cent _ centerY
ifNil: [bounds center y
"cent _ 0.
vertices do: [:each | cent _ cent + each y].
cent asFloat / vertices size"] "average is the center"
ifNotNil: [centerY].
self setVertices: (vertices collect: [:vv |
vv x @ ((vv y - cent) * -1 + cent)]) reversed.! !
Also I suggest add the following
!PolygonMorph methodsFor: 'geometry' stamp: 'EDC 3/20/2002 14:24'!
flipHAroundX: centerX
"Flip me horizontally around the center. If centerX is nil, compute my
center of gravity."
| cent |
cent _ centerX
ifNil: [bounds center x
"cent _ 0.
vertices do: [:each | cent _ cent + each x].
cent asFloat / vertices size"] "average is the center"
ifNotNil: [centerX].
self setVertices: (vertices collect: [:vv |
((vv x - cent) * -1 + cent) @ vv y]) reversed.! !
By the way , I like know who is sw , to who I copy and say thanks.
Edgar
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20030107/c60c2057/attachment.htm
More information about the Squeak-dev
mailing list
|