Object <- ChooseableTool <- DrawTool |
|
|
DrawImage IsWritingTool MakeViewable ReinitializeClass ShouldFreezeScreen TouchTarget |
|
LineStyle |
| Field | Type | |
|---|---|---|
| ChooseableTool: | image: | Image |
| HasLineStyleAttribute: | lineStyle: | LineStyle |
instance DrawTool tag; image: nilObject; lineStyle: nilObject; end instance;
Define Class DrawTool; // a tool that draws inherits from ChooseableTool, HasLineStyleAttribute; overrides DrawImage, ReinitializeClass; overrides IsWritingTool; overrides MakeViewable; overrides SetLineStyle; overrides ShouldFreezeScreen; overrides TouchTarget; end class;