trestle_by_example/src/confirm/ConfirmVBT.i3


INTERFACE ConfirmVBT;

IMPORT Trestle, VBT, HVSplit, ButtonVBT;

TYPE
  T = HVSplit.T OBJECT
      METHODS
        init (msg: TEXT; yaction := DeleteDialog; caction := DeleteDialog):
              T := Init
      END;

PROCEDURE DeleteDialog (v: ButtonVBT.T; READONLY cd: VBT.MouseRec);

PROCEDURE Init (self   : T;
                msg    : TEXT;
                yaction         := DeleteDialog;
                caction         := DeleteDialog  ): T;
New(...) is equivalent to NEW(T).init(...)
PROCEDURE New (msg: TEXT; yaction := DeleteDialog; caction := DeleteDialog):
  T;

END ConfirmVBT.