TSpellBox is a test object used to allow the pointer to select a tool.
ProtoObjectObjectTObjectTFrameTGroupTButtonTSpellBox
| spellClass |
| instance | class |
|---|---|
| events initialize | instance creation
|
| spellClass |
|---|
| events |
|---|
| pointerUp: pointer |
(super pointerUp: pointer) ifTrue:[ pointer setSpell: spellClass. ]. |
| initialize |
|---|
| initializeClass: class texture: txtr |
| box | super initialize. box _ TCube new. box texture: txtr. box extent: (B3DVector3 x: 0.25 y: 0.25 z:0.25). super initializeFrame: box. self persist: true. spellClass _ class. ^self |
| initializeWithFrame: frm class: class |
super initializeWithFrame: frm. spellClass _ class. ^self |