I'm totally amazed

Torsten Sadowski moehl at akaflieg.extern.tu-berlin.de
Mon Nov 25 23:11:58 UTC 2002


because below is everything needed for a BezierMorph. It doesn't do
anything useful yet and don't touch the green ones but if I hadn't wanted
it to appear bigger I wouldn't even have needed the initialize method.

Torsten

I already love it even if I don't yet really understand it.

'From Squeak3.2 of 11 July 2002 [latest update: #4956] on 26 November 2002
at 12:06:23 am'!
PolygonMorph subclass: #TSBezierMorph
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Sketch'!

!TSBezierMorph methodsFor: 'as yet unclassified' stamp: 'TS 11/25/2002
23:59'!
drawOn: aCanvas
aCanvas asBalloonCanvas drawBezierShape: vertices color: nil borderWidth:
borderWidth
			borderColor: borderColor.
! !

!TSBezierMorph methodsFor: 'as yet unclassified' stamp: 'TS 11/25/2002
23:28'!
initialize
	super initialize.
        vertices _ Array with: 5 at 5 with: 5 at 100 with: 100 at 100.
	borderWidth _ 2.
	borderColor _ Color r: 0.0 g: 0.419 b: 0.935.
	self computeBounds.! !






More information about the Squeak-dev mailing list