TPrimitiveString

Croquet-Teapot

Comment: 

Main comment stating the purpose of this class and relevant relationship to other classes.

Possible useful expressions for doIt or printIt.

Structure:
 instVar1		type -- comment about the purpose of instVar1
 instVar2		type -- comment about the purpose of instVar2

Any further useful comments about the general approach of this implementation.

Hierarchy:

ProtoObject
Object
TObject
TFrame
TPrimitive
TPrimitiveString

Summary:

instance variables:

align color font string

methods:

instance class
accessing initialize render no messages

Detail:

instance variables:

align
color
font
string

instance methods:

accessing
font 

	^font
font: aFont 

	font := aFont.
	self boundsChanged.
string 

	^string
string: aString 

	string := aString asString.
	self boundsChanged.
text 

	^string asText
text: aText 

	string := aText asString.
	self boundsChanged.
textAlign 

	^align
textAlign: aSymbol 

	align := aSymbol.
	self boundsChanged.
textColor 

	^color
textColor: aColor 

	color := aColor.
	self boundsChanged.

initialize
initialize 

	super initialize.
	color := Color black.
	^self

render
renderPrimitive: ogl 

	string ifNil:[^self].
	ogl drawString: string at: 0@0@0 font: font color: color align: align.

class methods:

^top

- made by Dandelion -