(* Oberon interface by Thore Boeckelmann <tboeckel@guardian.infox.com> *)

MODULE  MonthNavigator;

  IMPORT
    mb := MuiBasics,
    u  := Utility,
    y  := SYSTEM;

  CONST
    cMonthNavigator                    * = "MonthNavigator.mcc"

    aMonthNavigatorDay                 * = 081EE0001H;
    aMonthNavigatorMonth               * = 081EE0002H;
    aMonthNavigatorYear                * = 081EE0003H;
    aMonthNavigatorFirstWeekday        * = 081EE0004H;
    aMonthNavigatorShowWeekdayNames    * = 081EE0005H;
    aMonthNavigatorShowWeekNumbers     * = 081EE0006H;
    aMonthNavigatorLanguage            * = 081EE0007H;
    aMonthNavigatorCountry             * = 081EE0008H;
    aMonthNavigatorInput               * = 081EE0009H;
    aMonthNavigatorUseFrames           * = 081EE000AH;
    aMonthNavigatorShowInvisibles      * = 081EE000BH;
    aMonthNavigatorWeekdayNamesSpacing * = 081EE000CH;
    aMonthNavigatorWeekNumbersSpacing  * = 081EE000DH;
    aMonthNavigatorLineWeekdayNames    * = 081EE000EH;
    aMonthNavigatorLineWeekNumbers     * = 081EE000FH;

    vMonthNavigatorInputModeNone       * = 0;
    vMonthNavigatorInputModeRelVerify  * = 1;
    vMonthNavigatorInputModeImmediate  * = 2;


  PROCEDURE MonthNavigatorObject * {"MonthNavigator.MonthNavigatorObjectA"} (tags{9}..: u.Tag);


  PROCEDURE MonthNavigatorObjectA * (tags{9}: u.TagListPtr);

  BEGIN
    mb.NewObjectA(y.ADR(cMonthNavigator),tags);
  END MonthNavigatorObjectA;

END MonthNavigator.