Object <- ChooseableTool <- TouchTool <- ConstrainedTouchTool |
|
|
ShouldFreezeScreen TouchTarget |
|
Target |
| Field | Type | |
|---|---|---|
| ChooseableTool: | image: | Image |
| ConstrainedTouchTool: | target: | Object |
instance ConstrainedTouchTool tag; image: nilObject; target: nilObject; end instance;
Define Class ConstrainedTouchTool; inherits from TouchTool; field target: Object, weak, getter, setter; attribute Target: Object; overrides ShouldFreezeScreen, TouchTarget; end class;