... <- TitledWindow <- GadgetWindow <- ContainerWindow <- Annotation <- ErasableAnnotation |
|
|
ChangedContents |
|
UseBuiltInScrollArrows |
instance ErasableAnnotation tag;
relativeOrigin: <0.0,0.0>;
contentSize: <0.0,0.0>;
viewFlags: 0x00000000;
labelStyle: nilObject;
color: 0;
altColor: 0;
shadow: nilObject;
sound: nilObject;
border: nilObject;
canCoexist: false;
persistentWindow: false;
dontAutoExtend: false;
ignoreGrid: false;
closeAfterTouch: false;
closeBeforeTouch: false;
autoPosition: false;
noCloseBox: false;
downArrowVisible: false;
upArrowVisible: false;
rightArrowVisible: false;
leftArrowVisible: false;
autoMoveContents: false;
searchable: false;
customTitleColor: false;
scaleWindowTitle: false;
noBuiltInArrows: false;
noZoom: false;
autoCopyWindow: false;
titleColor: 0;
titleHeight: <0.0>;
dependents: nilObject;
balloonDot: <0.0,0.0>;
target: nilObject;
scrollOffset: <0.0,0.0>;
gridSize: <0.0,0.0>;
gridOffset: <0.0,0.0>;
topArrow: nilObject;
bottomArrow: nilObject;
info: nilObject;
notesField: nilObject;
buttonBorder: nilObject;
buttonWidth: <0.0>;
closeBoxMargin: <0.0>;
buttonName: nilObject;
buttonTarget: nilObject;
buttonOperation: nilOperation;
buttonIsShowing: false;
end instance;
Define Class ErasableAnnotation;
inherits from Annotation;
inherits from HasButtonInTitleBar;
// Post-1.0, added an Erase button to the title bar of Annotations.
// To avoid breaking compatibility, added this in subclass.
overrides ChangedContents;
// keeps ButtonIsShowing up to date
overrides UseBuiltInScrollArrows;
// for compatibility with old versions of the software, we do
// not use built in scroll arrows regardless of the setting of
// the flag in class ContainerWindow
end class;