LabelMaker

AboutToShow CalcBoundsBox CalcInsidePart CanAcceptCoupon Clear Draw MoveTouch

SetTextStyle Tap TextStyle Touch TypeKeys Unlink

Attributes

AutoMove

Fields

instance LabelMaker 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;
     couponText: nilObject;
end instance;

Define Class LabelMaker;
    inherits from Stamp, AcceptsTyping;

    field couponText: Text;

    operation Clear(), noFail, safe;
    
    overrides AboutToShow;  
        // makes self the current typing target

    overrides AutoMove;
    overrides CalcBoundsBox, CalcInsidePart;
    overrides CanAcceptCoupon;
    overrides Draw;
    overrides TextStyle, SetTextStyle;
    overrides Touch, Tap, MoveTouch;
    overrides TypeKeys;
    overrides Unlink;
end class;