[BUG] Missing methods in 3.4 beta
Swan, Dean
Dean_Swan at Mitel.COM
Wed Jan 8 17:57:48 UTC 2003
sw is Scott Wallace.
-Dean
-----Original Message-----
From: Lic. Edgar J. De Cleene [mailto:edgardec2001 at yahoo.com.ar]
Sent: Tuesday, January 07, 2003 4:22 AM
To: squakdev
Subject: [BUG] Missing methods in 3.4 beta
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
More information about the Squeak-dev
mailing list
|