DEFINITION MODULE MCCMonthNavigator ;

  FROM SYSTEM   IMPORT ADDRESS, BYTE ;
  FROM UtilityD IMPORT TagItemPtr ;

  (*
  ** $VER: MCCMonthNavigator.def (11.05.96)
  **
  ** MonthNavigator.mcc (c) by Kai Hofmann
  **
  ** Registered class of the Magic User Interface.
  **
  ** M2 interface by Olaf Peters <olf@informatik.uni-bremen.de>
  ** mostly untested, report bugs to the above address.
  *)

  CONST
    mcMonthNavigator = "MonthNavigator.mcc" ;

    maMonthNavigatorDay                 = 81EE0001H;
    maMonthNavigatorMonth               = 81EE0002H;
    maMonthNavigatorYear                = 81EE0003H;
    maMonthNavigatorFirstWeekday        = 81EE0004H;
    maMonthNavigatorShowWeekdayNames    = 81EE0005H;
    maMonthNavigatorShowWeekNumbers     = 81EE0006H;
    maMonthNavigatorLanguage            = 81EE0007H;
    maMonthNavigatorCountry             = 81EE0008H;
    maMonthNavigatorInput               = 81EE0009H;
    maMonthNavigatorUseFrames           = 81EE000AH;
    maMonthNavigatorShowInvisibles      = 81EE000BH;
    maMonthNavigatorWeekdayNamesSpacing = 81EE000CH;
    maMonthNavigatorWeekNumbersSpacing  = 81EE000DH;
    maMonthNavigatorLineWeekdayNames    = 81EE000EH;
    maMonthNavigatorLineWeekNumbers     = 81EE000FH;

    mvMonthNavigatorInputModeNone       = 0;
    mvMonthNavigatorInputModeRelVerify  = 1;
    mvMonthNavigatorInputModeImmediate  = 2;


  PROCEDURE MonthNavigatorObject(tags : TagItemPtr) : ADDRESS ;

END MCCMonthNavigator.