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>