DEFINITION MODULE MCCTime; (* ** ** Copyright © 1996-1997 Kai Hofmann. All rights reserved. ** Registered MUI custom class! ** ** $VER: MCCTime.def 12.5 (18.10.97) ** *) FROM SYSTEM IMPORT ADDRESS,BYTE; FROM UtilityD IMPORT TagItemPtr; FROM IntuitionD IMPORT ObjectPtr; CONST (*mcTime = "Time.mcc";*) maTimeMidnightSecs = 81EE0080H; maTimeHour = 81EE0081H; maTimeMinute = 81EE0082H; maTimeSecond = 81EE0083H; maTimeMinHour = 81EE0084H; maTimeMinMinute = 81EE0085H; maTimeMinSecond = 81EE0086H; maTimeMaxHour = 81EE0087H; maTimeMaxMinute = 81EE0088H; maTimeMaxSecond = 81EE0089H; maTimeZoneMinute = 81EE008BH; maTimeNextDay = 81EE008CH; maTimePrevDay = 81EE008DH; maTimeDaylightSaving = 81EE008EH; maTimeChangeHour = 81EE008FH; maTimeChangeDay = 81EE0095H; mvTimeChangeDayNormal = 0; mvTimeChangeDayWinterToSummer = 1; mvTimeChangeDaySummerToWinter = 2; mvTimeCompareLess = -1; mvTimeCompareEqual = 0; mvTimeCompareGreater = 1; mmTimeIncrease = 81EE0092H; mmTimeDecrease = 81EE0093H; mmTimeSetCurrent = 81EE0094H; mmTimeCompare = 81EE0096H; TYPE mpTimeIncrease = RECORD MethodID : LONGCARD; seconds : LONGCARD; END; mpTimeDecrease = RECORD MethodID : LONGCARD; seconds : LONGCARD; END; mpTimeSetCurrent = RECORD MethodID : LONGCARD; END; mpTimeCompare = RECORD MethodID : LONGCARD; obj : ObjectPtr; END; (*PROCEDURE TimeObject(tags : TagItemPtr) : ADDRESS;*) END MCCTime.