GadgetWindow

Appear BalloonDot CanAccept ChangedContents Disappear MakeActive MakeValid SetUpTargetWindow ZoomFromWhere

Attributes

Target

Fields

instance GadgetWindow 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;
end instance;

 
 
Define Class GadgetWindow;
    inherits from TitledWindow;
    inherits from BalloonSpout;
    has dispatcher hintdata;

    field target: Object, weak, getter;
        // used by Target attribute

    attribute Target: Object, safe;
        // the viewable (usually a gadget) that the window points to
        // setter dirties balloon box of self before and after setting value in field

    operation SetUpTargetWindow(viewTarget: Viewable; attributeTarget: Object);
        //  set target of self to viewTarget; set target of all controls in self to attributeTarget

    overrides Appear;
        // positions self if autoPosition flag in windowFlags is set; calls TargetChanged on target if it's a gadget
    overrides Disappear;
        // calls TargetChanged on target if it's a gadget
    overrides CanAccept;
        // rejects its own target
    overrides BalloonDot;
        // gets the dot from its target
    overrides ZoomFromWhere;
        // gets the zoom origin from BalloonDot
    overrides ChangedContents;
        // calls TargetChanged on target if it's a gadget
    overrides MakeValid;
        // adds self to iMakeActive list
    overrides MakeActive;
        // calls TargetChanged on target if it's a gadget
end class;