Book

CalcBorderBox CalcContentBox CalcOpaqueBox CanAcceptCoupon ChangedContainers DefaultReceiverForSelf DragTrack Draw Finalize

GoTo PositionBookIfInLibrary Pressed PutAway RepositionBooks SearchForObject SetPartColor Tap

Attributes

AutoMove CanGoTo CanStretch Image Shelf

Fields

instance Book 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;
    destination: nilObject;
          image: nilObject;
 titleForeColor: 0;
 titleBackColor: 0;
      openImage: nilObject;
          shelf: nilObject;
  shelfPosition: <0.0,0.0>;
end instance;

Define Class Book;
    inherits from Box;
    inherits from Entrance;
    inherits from HasGoTo;

    field image: Image, getter;
    field titleForeColor: Unsigned;
    field titleBackColor: Unsigned;
    field openImage: Image;
    field shelf: Shelf, weak, getter, setter;
    field shelfPosition: Dot;

    overrides SetImage;
    attribute Shelf: Shelf;

    overrides AutoMove;
    overrides CalcBorderBox;
    overrides CalcContentBox, CanStretch;
    overrides CalcOpaqueBox;
    overrides CanAcceptCoupon;
    overrides CanGoTo;
    overrides ChangedContainers;
    overrides DefaultReceiverForSelf;
    overrides DragTrack;
    overrides Draw;
    overrides Finalize;
    overrides GoTo;
    overrides Pressed;
    overrides PutAway;
    overrides SearchForObject;
        // calls AddSearchCandidate on each page of the book
    overrides SetPartColor;
    overrides Tap;

    operation PositionBookIfInLibrary(useAcc: Boolean), intrinsic;
    operation RepositionBooks(), intrinsic;
    
end class;