Object <- Viewable <- Stamp <- Icon <- ArchiveIcon |
|
|
Action Draw FileCard FinishInstallingSelf HighlightOrigin Pressed PutAway Swallow |
|
Lock |
| Field | Type | |
|---|---|---|
| Viewable: | superview: | Viewable |
| relativeOrigin: | Dot | |
| contentSize: | Dot | |
| viewFlags: | Flags | |
| labelStyle: | TextStyle | |
| color: | Unsigned | |
| altColor: | Unsigned | |
| shadow: | Shadow | |
| sound: | Playable | |
| Stamp: | image: | Image |
| HasDestination: | destination: | Viewable |
| Icon: | nativeContainer: | Viewable |
| nativePosition: | Dot | |
| HasLock: | lock: | Lock |
| ArchiveIcon: | highlightOffset: | Dot |
| folderTray: | FolderTray |
instance ArchiveIcon 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;
destination: nilObject;
nativeContainer: nilObject;
nativePosition: <0.0,0.0>;
lock: nilObject;
highlightOffset: <0.0,0.0>;
folderTray: nilObject;
end instance;
Define Class ArchiveIcon;
inherits from Icon;
inherits from HasLock;
field highlightOffset: Dot;
field folderTray: FolderTray, weak;
operation FileCard(card: Card), safe, common;
overrides Action, Draw, HighlightOrigin, FinishInstallingSelf, PutAway, Pressed, Swallow;
overrides SetLock;
// removes file folder's scene from history list when file cabinet is locked
end class;