home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / macberon.sit / MacOberon 2.4(0) / MacDialogs.Mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1991-10-17  |  4.2 KB  |  82 lines
  1. Syntax10.Scn.Fnt
  2. MODULE MacDialogs;    (*Macintosh OS Interface Module for MacOberon 2.2, Michael Franz, 9.10.91*)
  3.     IMPORT
  4.         TY:= MacTypes, QD:= MacQuickDraw, WM:= MacWindows, EM:= MacEvents;
  5.     CONST
  6.         (* Item Types *)
  7.             btnCtrl= 0; chkCtrl= 1; radCtrl= 2; resCtrl= 3;
  8.             userItem= 0; ctrlItem= 4; statText= 8; editText= 16; iconItem= 32; picItem= 64;
  9.         (* Item Disable Flag *)
  10.             itemDisable= 128;
  11.         (* Standard Buttons *)
  12.             ok= 1; cancel= 2;
  13.         (* Standard Icon Resource Numbers *)
  14.             stopIcon= 0; noteIcon= 1; cautionIcon= 2;
  15.     TYPE
  16.         DialogRecord*= RECORD
  17.             (WM.WindowRecord)
  18.             items*: TY.Handle;
  19.             textH*: TY.Handle;    (* TEHandle *)
  20.             editField*: INTEGER;
  21.             editOpen: INTEGER;
  22.             aDefItem*: INTEGER
  23.         END;
  24.         DialogPtr*= WM.WindowPtr;
  25.         DialogPeek*= POINTER- TO DialogRecord;
  26.         DialogTemplate*= RECORD
  27.             (TY.Data)
  28.             boundsRect*: TY.Rect;
  29.             procID*, visible*, filler1, goAwayFlag*, filler2: BOOLEAN;
  30.             refCon*: LONGINT;
  31.             itemsID*: INTEGER;
  32.             title*: TY.Str255
  33.         END;
  34.         DialogTPtr*= POINTER- TO DialogTemplate;
  35.         DialogTHndl*= POINTER- TO RECORD p*: DialogTPtr END;
  36.         StageList*= RECORD
  37.             boldItm4*: SHORTINT; boxDrwn4*: BOOLEAN; sound4*: SHORTINT;
  38.             boldItm3*: SHORTINT; boxDrwn3*: BOOLEAN; sound3*: SHORTINT;
  39.             boldItm2*: SHORTINT; boxDrwn2*: BOOLEAN; sound2*: SHORTINT;
  40.             boldItm1*: SHORTINT; boxDrwn1*: BOOLEAN; sound1*: SHORTINT
  41.         END;
  42.         AlertTemplate*= RECORD
  43.             (TY.Data)
  44.             boundsRect*: TY.Rect;
  45.             itemsID*: INTEGER;
  46.             stages*: StageList
  47.         END;
  48.         AlertTPtr*= POINTER- TO AlertTemplate;
  49.         AlertTHndl*= POINTER- TO RECORD p*: AlertTPtr END;
  50.     PROCEDURE - InitDialogs*(resumeProc: TY.ProcPtr) 0A9H, 07BH;
  51.     PROCEDURE - ErrorSound*(soundProc: TY.ProcPtr) 0A9H, 08CH;
  52.     PROCEDURE - NewDialog*(wStorage: TY.Ptr; boundsRect: TY.Rect; title: TY.Str255; visible: BOOLEAN; procID: INTEGER; behind: WM.WindowPtr; goAwayFlag: BOOLEAN; refCon: LONGINT; itmLstHndl: TY.Handle): DialogPtr 0A9H, 07DH;
  53.     PROCEDURE - GetNewDialog*(dialogID: INTEGER; dStorage: TY.Ptr; behind: WM.WindowPtr): DialogPtr 0A9H, 07CH;
  54.     PROCEDURE - CloseDialog*(theDialog: DialogPtr) 0A9H, 082H;
  55.     PROCEDURE - DisposDialog*(theDialog: DialogPtr) 0A9H, 083H;
  56.     PROCEDURE - CouldDialog*(dialogID: INTEGER) 0A9H, 079H;
  57.     PROCEDURE - FreeDialog*(dialogID: INTEGER) 0A9H, 07AH;
  58.     PROCEDURE - ParamText*(param0, param1, param2, param3: TY.Str255) 0A9H, 08BH;
  59.     PROCEDURE - ModalDialog*(filterProc: TY.ProcPtr; VAR itemHit: INTEGER) 0A9H, 091H;
  60.     PROCEDURE - IsDialogEvent*(theEvent: EM.EventRecord): BOOLEAN 0A9H, 07FH;
  61.     PROCEDURE - DialogSelect*(theEvent: EM.EventRecord; VAR theDialog: DialogPtr; VAR itemHit: INTEGER): BOOLEAN 0A9H, 080H;
  62.     PROCEDURE - DrawDialog*(theDialog: DialogPtr) 0A9H, 081H;
  63.     PROCEDURE - UpdtDialog*(theDialog: DialogPtr; updateRgn: QD.RgnHandle) 0A9H, 078H;
  64.     PROCEDURE - Alert*(alertID: INTEGER; filterProc: TY.Ptr): INTEGER 0A9H, 085H;    (* filterProc : ProcPtr *)
  65.     PROCEDURE - StopAlert*(alertID: INTEGER; filterProc: TY.ProcPtr): INTEGER 0A9H, 086H;
  66.     PROCEDURE - NoteAlert*(alertID: INTEGER; filterProc: TY.ProcPtr): INTEGER 0A9H, 087H;
  67.     PROCEDURE - CautionAlert*(alertID: INTEGER; filterProc: TY.ProcPtr): INTEGER 0A9H, 088H;
  68.     PROCEDURE - CouldAlert*(alertID: INTEGER) 0A9H, 089H;
  69.     PROCEDURE - FreeAlert*(alertID: INTEGER) 0A9H, 08AH;
  70.     PROCEDURE - GetDItem*(theDialog: DialogPtr; itemNo: INTEGER; VAR itemType: INTEGER; VAR item: TY.Handle; VAR box: TY.Rect) 0A9H, 08DH;
  71.     PROCEDURE - SetDItem*(theDialog: DialogPtr; itemNo, itemType: INTEGER; item: TY.Handle; box: TY.Rect) 0A9H, 08EH;
  72.     PROCEDURE - HideDItem*(theDialog: DialogPtr; itemNo: INTEGER) 0A8H, 027H;
  73.     PROCEDURE - ShowDItem*(theDialog: DialogPtr; itemNo: INTEGER) 0A8H, 028H;
  74.     PROCEDURE - SelIText*(theDialog: DialogPtr; itemNo, strtSel, endSel: INTEGER) 0A9H, 07EH;
  75.     PROCEDURE - GetIText*(item: TY.Handle; VAR text: TY.Str255) 0A9H, 090H;
  76.     PROCEDURE - SetIText*(item: TY.Handle; text: TY.Str255) 0A9H, 08FH;
  77.     PROCEDURE - FindDItem*(theDialog: DialogPtr; thePt: TY.Point): INTEGER 0A9H, 084H;
  78.     PROCEDURE - NewCDialog*(dStorage: TY.Ptr; boundsRect: TY.Rect; title: TY.Str255; visible: BOOLEAN; procID: INTEGER; behind: WM.WindowPtr; goAwayFlag: BOOLEAN; refCon: LONGINT; items: TY.Handle): DialogPtr 0AAH, 04BH;
  79.     PROCEDURE - GetAlrtStage*(): INTEGER 03EH, 0B8H, 00AH, 09AH;
  80.     PROCEDURE - ResetAlrtStage*() 042H, 078H, 00AH, 09AH;
  81. END MacDialogs.
  82.