Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r355 -r591
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 355)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 591)
@@ -5,6 +5,38 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 
+<Method name="IsEnumeratie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlasseNaam:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set Klasse = ##class(%Dictionary.CompiledClass).%OpenId(KlasseNaam)
+	#dim IsEnumeratie As %Boolean = ((Klasse.ClassType="datatype") && ('Klasse.System))
+	Set:IsEnumeratie IsEnumeratie = '..IsZuiverDataType(Klasse)
+	Quit IsEnumeratie
+]]></Implementation>
+</Method>
+
+<Method name="IsZuiverDataType">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlasseNaam:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Klasse = ##class(%Dictionary.CompiledClass).%OpenId(KlasseNaam)
+	#dim IsZuiverDataType As %Boolean = ((Klasse.ClassType="datatype") && ('Klasse.System))
+	If IsZuiverDataType {
+		Set ParameterIt = ##class(TECH.ListIterator).%New(Klasse.Parameters)
+		While ParameterIt.HasNext(){
+			#dim Parameter As %Dictionary.CompiledParameter = ParameterIt.Next()
+			If (Parameter.Name = "VALUELIST") && '##class(TECH.StringUtils).StartsWith(Parameter.Origin,"%") {
+				Set IsZuiverDataType = 0
+			}
+		}
+	}
+	Quit IsZuiverDataType
+]]></Implementation>
+</Method>
+
 <Method name="IsOurs">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Classname:%String</FormalSpec>
Index: TECH/enu/DatePart.cls.xml
===================================================================
diff -u -r9 -r591
--- TECH/enu/DatePart.cls.xml	(.../DatePart.cls.xml)	(revision 9)
+++ TECH/enu/DatePart.cls.xml	(.../DatePart.cls.xml)	(revision 591)
@@ -5,6 +5,11 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%String</Super>
 
+<Parameter name="VALUELIST">
+<Type>%String</Type>
+<Default>;yy;mm;wk;dd;hh;mi;ss;ms</Default>
+</Parameter>
+
 <Method name="Jaar">
 <ClassMethod>1</ClassMethod>
 <ReturnType>TECH.enu.DatePart</ReturnType>
Index: TECH/LedDisplay/enu/Kleur.cls.xml
===================================================================
diff -u -r238 -r591
--- TECH/LedDisplay/enu/Kleur.cls.xml	(.../Kleur.cls.xml)	(revision 238)
+++ TECH/LedDisplay/enu/Kleur.cls.xml	(.../Kleur.cls.xml)	(revision 591)
@@ -5,6 +5,11 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%String</Super>
 
+<Parameter name="VALUELIST">
+<Type>%String</Type>
+<Default>;GEEL;ORANJE;ROOD;GROEN;DIMGROEN;DIMRED;AMBER;Brown</Default>
+</Parameter>
+
 <Method name="Geel">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%String</ReturnType>
Index: TECH/LedDisplay/enu/DisplayMode.cls.xml
===================================================================
diff -u -r238 -r591
--- TECH/LedDisplay/enu/DisplayMode.cls.xml	(.../DisplayMode.cls.xml)	(revision 238)
+++ TECH/LedDisplay/enu/DisplayMode.cls.xml	(.../DisplayMode.cls.xml)	(revision 591)
@@ -5,6 +5,11 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%String</Super>
 
+<Parameter name="VALUELIST">
+<Type>%String</Type>
+<Default>;FLASH;HOLD;ROTATE</Default>
+</Parameter>
+
 <Method name="Knipper">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%String</ReturnType>