Object <- Viewable <- Stamp <- Button <- LessonButton |
|
|
Action |
|
Lesson ShouldCloseWindow UseScaledText |
| Field | Type | |
|---|---|---|
| Viewable: | superview: | Viewable |
| relativeOrigin: | Dot | |
| contentSize: | Dot | |
| viewFlags: | Flags | |
| labelStyle: | TextStyle | |
| color: | Unsigned | |
| altColor: | Unsigned | |
| shadow: | Shadow | |
| sound: | Playable | |
| Stamp: | image: | Image |
| HasBorder: | border: | Border |
| LessonButton: | lesson: | LessonStepList |
| leapTo: | Object |
instance LessonButton tag;
relativeOrigin: <0.0,0.0>;
contentSize: <0.0,0.0>;
viewFlags: 0x00000000;
labelStyle: nilObject;
color: 0;
altColor: 0;
shadow: nilObject;
sound: nilObject;
image: nilObject;
border: nilObject;
lesson: nilObject;
leapTo: nilObject;
end instance;
Define Class LessonButton;
inherits from Button;
field lesson: LessonStepList, getter, setter;
// the lesson called by this button
field leapTo: Object, weak;
// scene or card to jump to before starting lesson (usually nilObject)
attribute Lesson: LessonStepList;
attribute ShouldCloseWindow: Boolean, readOnly;
// if true, close enclosing window (if any) before starting lesson; true at this level
overrides Action;
// start the lesson
#ifdef SCALED_SCREEN
overrides UseScaledText;
#endif
end class;