[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