home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / sviluppo / mcc_monthnavigator / developer / modula / txt / mccmonthnavigator.def next >
Text File  |  1999-06-06  |  3KB  |  114 lines
  1. DEFINITION MODULE MCCMonthNavigator;
  2.  
  3. (*
  4. **
  5. ** Copyright © 1996-1997,1999 Dipl.-Inform. Kai Hofmann. All rights reserved.
  6. ** Registered MUI custom class!
  7. **
  8. ** $VER: MCCMonthNavigator.def 16.7 (06.06.99)
  9. **
  10. ** M2 interface model by Olaf Peters <olf@informatik.uni-bremen.de>
  11. **
  12. *)
  13.  
  14.   FROM SYSTEM      IMPORT ADDRESS,BYTE;
  15.   FROM UtilityD   IMPORT TagItemPtr;
  16.   FROM IntuitionD IMPORT ObjectPtr;
  17.  
  18.  
  19.   CONST
  20.     mcMonthNavigator            = "MonthNavigator.mcc";
  21.  
  22.     maMonthNavigatorShowWeekdayNames    = 81EE0005H;
  23.     maMonthNavigatorShowWeekNumbers    = 81EE0006H;
  24.     maMonthNavigatorInput        = 81EE0009H;
  25.     maMonthNavigatorUseFrames        = 81EE000AH;
  26.     maMonthNavigatorShowInvisibles    = 81EE000BH;
  27.     maMonthNavigatorWeekdayNamesSpacing = 81EE000CH;
  28.     maMonthNavigatorWeekNumbersSpacing    = 81EE000DH;
  29.     maMonthNavigatorLineWeekdayNames    = 81EE000EH;
  30.     maMonthNavigatorLineWeekNumbers    = 81EE000FH;
  31.     maMonthNavigatorDraggable        = 81EE0012H;
  32.     maMonthNavigatorMarkHook        = 81EE0013H;
  33.     maMonthNavigatorDropable        = 81EE0014H;
  34.     maMonthNavigatorDragQueryHook    = 81EE0015H;
  35.     maMonthNavigatorDragDropHook    = 81EE0016H;
  36.     maMonthNavigatorShowLastMonthDays    = 81EE0017H;
  37.     maMonthNavigatorShowNextMonthDays    = 81EE0018H;
  38.     maMonthNavigatorMonthAdjust     = 81EE0019H;
  39.     maMonthNavigatorFixedTo6Rows    = 81EE0033H;
  40.     maMonthNavigatorLayout        = 81EE0034H;
  41.  
  42.  
  43.     mmMonthNavigatorUpdate        = 81EE0010H;
  44.     mmMonthNavigatorMark        = 81EE0030H;
  45.     mmMonthNavigatorDragQuery        = 81EE0031H;
  46.     mmMonthNavigatorDragDrop        = 81EE0032H;
  47.  
  48.     mvMonthNavigatorInputModeNone    = 0;
  49.     mvMonthNavigatorInputModeRelVerify    = 1;
  50.     mvMonthNavigatorInputModeImmediate    = 2;
  51.  
  52.     mvMonthNavigatorLayoutAmerican    = 0;
  53.     mvMonthNavigatorLayoutEuropean    = 1;
  54.  
  55.     mvMonthNavigatorShowMDays_No        = 0;
  56.     mvMonthNavigatorShowMDays_OnlyFillUp    = 1;
  57.     mvMonthNavigatorShowMDays_Yes        = 2;
  58.  
  59.     mvMonthNavigatorMarkHookHiToday    = 1;
  60.  
  61.     mvMonthNavigatorMarkDayVersion    = 1;
  62.  
  63.     mcfgMonthNavigatorTodayUnderline    = 81EE002CH;
  64.     mcfgMonthNavigatorTodayBold     = 81EE002DH;
  65.     mcfgMonthNavigatorTodayItalic    = 81EE002EH;
  66.     mcfgMonthNavigatorTodayAlignment    = 81EE002FH;
  67.     mcfgMonthNavigatorTodayBackground    = 81EE001DH;
  68.     mcfgMonthNavigatorTodayPen        = 81EE001EH;
  69.     mcfgMonthNavigatorTodayShortHelp    = 81EE001FH;
  70.  
  71.  
  72.   TYPE
  73.     mpMonthNavigatorUpdate =
  74.       RECORD
  75.     MethodID : LONGCARD;
  76.       END;
  77.  
  78.     mpMonthNavigatorMark =
  79.       RECORD
  80.     MethodID : LONGCARD;
  81.     Year     : LONGINT;
  82.     Month     : LONGCARD;
  83.     Day     : LONGCARD;
  84.     dayobj     : ObjectPtr;
  85.       END;
  86.  
  87.     mpMonthNavigatorDragQuery =
  88.       RECORD
  89.     MethodID : LONGCARD;
  90.     Year     : LONGINT;
  91.     Month     : LONGCARD;
  92.     Day     : LONGCARD;
  93.     dayobj     : ObjectPtr;
  94.     obj     : ObjectPtr;
  95.       END;
  96.  
  97.     msMonthNavigatorMarkDay =
  98.       RECORD
  99.     Version     : LONGCARD;
  100.     Year        : LONGINT;
  101.     Month        : SHORTCARD;
  102.     Day        : SHORTCARD;
  103.  
  104.     PreParse    : POINTER TO CHAR;
  105.     Background    : LONGCARD;
  106.     ShortHelp    : POINTER TO CHAR;
  107.     Disabled    : BOOLEAN;
  108.       END;
  109.  
  110.  
  111.   PROCEDURE MonthNavigatorObject(tags : TagItemPtr) : ADDRESS;
  112.  
  113. END MCCMonthNavigator.
  114.