Index: TECH/enu/TextAlignment/AutoComplete.cls.xml
===================================================================
diff -u
--- TECH/enu/TextAlignment/AutoComplete.cls.xml	(revision 0)
+++ TECH/enu/TextAlignment/AutoComplete.cls.xml	(revision 2109)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.enu.TextAlignment.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="Center">
+<Type>TECH.enu.TextAlignment</Type>
+<InitialExpression>"C"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Left">
+<Type>TECH.enu.TextAlignment</Type>
+<InitialExpression>"L"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Right">
+<Type>TECH.enu.TextAlignment</Type>
+<InitialExpression>"R"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: TECH/enu/TextAlignment/Verwerker.cls.xml
===================================================================
diff -u
--- TECH/enu/TextAlignment/Verwerker.cls.xml	(revision 0)
+++ TECH/enu/TextAlignment/Verwerker.cls.xml	(revision 2109)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.enu.TextAlignment.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>TextAlignment:TECH.enu.TextAlignment</FormalSpec>
+<Implementation><![CDATA[
+	If TextAlignment = "C" {
+		Do ..VerwerkCenter()
+	} ElseIf TextAlignment = "L" {
+		Do ..VerwerkLeft()
+	} ElseIf TextAlignment = "R" {
+		Do ..VerwerkRight()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(TextAlignment,"TECH.enu.TextAlignment")
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkCenter">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkLeft">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkRight">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r2105 -r2109
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 2105)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 2109)
@@ -206,6 +206,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Align">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>InputString:TECH.String,Width:TECH.Integer,Alignment:TECH.enu.TextAlignment=##class(TECH.enu.TextAlignment).Left(),Filler:TECH.String=" "</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	If Alignment = ##class(TECH.enu.TextAlignment).Left() {
+		Quit ..AddTrailingChar(InputString, Filler, Width)
+	} ElseIf Alignment = ##class(TECH.enu.TextAlignment).Right() {
+		Quit ..AddLeadingChar(InputString, Filler, Width)
+	} ElseIf Alignment = ##class(TECH.enu.TextAlignment).Center() {
+		#dim TempString As TECH.String = ..AddLeadingChar(InputString, Filler, Width/2)
+		Quit ..AddTrailingChar(TempString, Filler, Width)
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(Alignment,"TECH.enu.TextAlignment")
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="TrimWhitespaces">
 <Description>
 Strip whitespaces ($C(9), $C(32), $C(160)).</Description>
Index: TECH/enu/TextAlignment.cls.xml
===================================================================
diff -u
--- TECH/enu/TextAlignment.cls.xml	(revision 0)
+++ TECH/enu/TextAlignment.cls.xml	(revision 2109)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.enu.TextAlignment">
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>;R;L;C</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Right;Left;Center</Default>
+</Parameter>
+
+<Method name="Right">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.enu.TextAlignment</ReturnType>
+<Implementation><![CDATA[	Quit "R"
+]]></Implementation>
+</Method>
+
+<Method name="Center">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.enu.TextAlignment</ReturnType>
+<Implementation><![CDATA[	Quit "C"
+]]></Implementation>
+</Method>
+
+<Method name="Left">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.enu.TextAlignment</ReturnType>
+<Implementation><![CDATA[	Quit "L"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>