;**
;** Copyright (c) 1997 Kai Hofmann. All rights reserved.
;** Registered MUI custom class!
;**
;** $VER: Date_mcc.asc 12.1 (17.08.97)
;**
;** Experimental version, please report bugs/improvements!
;**

Macro MUIC_Date: "Date.mcc" End Macro

#MUIA_Date_Day			= $81ee0001
#MUIA_Date_Month		= $81ee0002
#MUIA_Date_Year			= $81ee0003
#MUIA_Date_FirstWeekday         = $81ee0004
#MUIA_Date_Language             = $81ee0007
#MUIA_Date_Country		= $81ee0008
#MUIA_Date_MinDay		= $81ee0041
#MUIA_Date_MinMonth		= $81ee0042
#MUIA_Date_MinYear		= $81ee0043
#MUIA_Date_MaxDay		= $81ee0044
#MUIA_Date_MaxMonth		= $81ee0045
#MUIA_Date_MaxYear		= $81ee0046
#MUIA_Date_JD			= $81ee0053
#MUIA_Date_MJD			= $81ee0054
#MUIA_Date_YDay			= $81ee0056
#MUIA_Date_Week			= $81ee0057
#MUIA_Date_Weekday		= $81ee0058

#MUIV_Date_Country_Unknown      =  0
#MUIV_Date_Country_Italia       =  1
#MUIV_Date_Country_Deutschland  =  2
#MUIV_Date_Country_Schweiz      =  3
#MUIV_Date_Country_Danmark      =  4
#MUIV_Date_Country_Nederland    =  5
#MUIV_Date_Country_GreatBritain	=  6

#MUIV_Date_Weekday_Monday	=  1
#MUIV_Date_Weekday_Tuesday	=  2
#MUIV_Date_Weekday_Wednesday	=  3
#MUIV_Date_Weekday_Thursday	=  4
#MUIV_Date_Weekday_Friday	=  5
#MUIV_Date_Weekday_Saturday	=  6
#MUIV_Date_Weekday_Sunday	=  7

#MUIV_Date_Lang_Locale		=  0
#MUIV_Date_Lang_English		=  1
#MUIV_Date_Lang_Deutsch		=  2
#MUIV_Date_Lang_Frangais	=  3
#MUIV_Date_Lang_Espaqol		=  4
#MUIV_Date_Lang_Portugujs	=  5
#MUIV_Date_Lang_Dansk		=  6
#MUIV_Date_Lang_Italiano	=  7
#MUIV_Date_Lang_Nederlands	=  8
#MUIV_Date_Lang_Norsk		=  9
#MUIV_Date_Lang_Svenska		= 10
#MUIV_Date_Lang_Polski		= 11
#MUIV_Date_Lang_Suomi		= 12
#MUIV_Date_Lang_Magyar		= 13
#MUIV_Date_Lang_Greek		= 14
#MUIV_Date_Lang_Esperanto	= 15
#MUIV_Date_Lang_Latina		= 16
#MUIV_Date_Lang_Russian		= 17
#MUIV_Date_Lang_Czech		= 18
#MUIV_Date_Lang_Catalonian	= 19

#MUIV_Date_Compare_Less		= -1
#MUIV_Date_Compare_Equal	=  0
#MUIV_Date_Compare_Greater	=  1

#MUIM_Date_SetCurrent		= $81ee0048
NEWTYPE.MUIP_Date_SetCurrent
 MethodID.l
End NEWTYPE

#MUIM_Date_IncreaseDays		= $81ee0049
NEWTYPE.MUIP_Date_IncreaseDays
 MethodID.l
 days.l
End NEWTYPE

#MUIM_Date_DecreaseDays		= $81ee004a
NEWTYPE.MUIP_Date_DecreaseDays
 MethodID.l
 days.l
End NEWTYPE

#MUIM_Date_IncreaseMonths	= $81ee004b
NEWTYPE.MUIP_Date_IncreaseMonths
 MethodID.l
 months.l
End NEWTYPE

#MUIM_Date_DecreaseMonths	= $81ee004c
NEWTYPE.MUIP_Date_DecreaseMonths
 MethodID.l
 months.l
End NEWTYPE

#MUIM_Date_IncreaseYears	= $81ee004d
NEWTYPE.MUIP_Date_IncreaseYears
 MethodID.l
 years.l
End NEWTYPE

#MUIM_Date_DecreaseYears	= $81ee004e
NEWTYPE.MUIP_Date_DecreaseYears
 MethodID.l
 years.l
End NEWTYPE

#MUIM_Date_IncreaseToWeekday	= $81ee004f
NEWTYPE.MUIP_Date_IncreaseToWeekday
 MethodID.l
 weekday.l
End NEWTYPE

#MUIM_Date_DecreaseToWeekday	= $81ee0052
NEWTYPE.MUIP_Date_DecreaseToWeekday
 MethodID.l
 weekday.l
End NEWTYPE

#MUIM_Date_Compare		= $81ee0055
NEWTYPE.MUIP_Date_DecreaseToWeekday
 MethodID.l
 *obj.Object
End NEWTYPE