home *** CD-ROM | disk | FTP | other *** search
/ MACD 7 / MACD7.iso / mui / mcc_datetext / developer / cluster / txt / mccdatetext.def next >
Encoding:
Text File  |  1998-01-12  |  1.3 KB  |  58 lines
  1. |##########|
  2. |#MAGIC   #|GDJAFBCC
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#LINK    #|""
  6. |#GUIDE   #|""
  7. |#STACK   #|"4096"
  8. |#FLAGS   #|xx---x-xxxx--xx-----------------
  9. |#USERSW  #|--x-----------------------------
  10. |#USERMASK#|--------------------------------
  11. |#SWITCHES#|xx---xxxxx-xx---
  12. |##########|
  13. DEFINITION MODULE MCCDateText;
  14.  
  15. (*
  16. **
  17. ** Copyright © 1997 Kai Hofmann. All rights reserved.
  18. ** Registered MUI custom class!
  19. **
  20. ** $VER: MCCDateText.def 12.0 (19.08.97)
  21. **
  22. ** Cluster interface model by Henning Thielemann <iakd0@mlucom.urz.uni-halle.de>
  23. *)
  24.  
  25. FROM SYSTEM    IMPORT SysStringPtr;
  26. FROM Intuition IMPORT MsgRoot;
  27. FROM Utility   IMPORT HookPtr;
  28. FROM MuiO      IMPORT AreaRec, MuiTags, MethodID;
  29.  
  30.  
  31. CONST
  32.   cDateText        = "DateText.mcc"
  33.  
  34. TYPE
  35.   DateTextRec    = RECORD OF AreaRec END;
  36.   DateTextObject = POINTER TO DateTextRec;
  37.  
  38.   DateTextTags = TAGS OF MuiTags
  39.     datestringFormat        = $81EE0059 : SysStringPtr;
  40.   END;
  41.  
  42.   DateTextTagAPtr = POINTER TO ARRAY OF DateTextTags;
  43.  
  44.  
  45. PROCEDURE MakeDateTextObjectA(tags : DateTextTagAPtr) : DateTextObject;
  46. PROCEDURE MakeDateTextObject(tags : LIST OF DateTextTags) : DateTextObject;
  47.  
  48. GROUP
  49.   Essential =
  50.     cDateText,
  51.     DateTextRec,            DateTextObject,
  52.     DateTextTags,        DateTextTagAPtr,
  53.     MakeDateTextObject,    MakeDateTextObjectA;
  54.  
  55.   All = Essential;
  56.  
  57. END MCCDateText.
  58.