INTERFACENew(...) is equivalent to NEW(T).init(...)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;
PROCEDURE New (msg: TEXT; yaction := DeleteDialog; caction := DeleteDialog): T; END ConfirmVBT.