Refactor email handling to use Trim command directly and remove unused _Tools.trimSpaces() function

Author: yannicktrinh

Project/Sources/Classes/_EmailAddress.4dm

@@ -12,8 +12,8 @@ Class constructor($inName : Text; $inAddress : Text)
 			This.fromString($inName)
 		Else 
 
-			This.name:=cs._Tools.me.trimSpaces($inName)
-			This.email:=cs._Tools.me.trimSpaces($inAddress)
+			This.name:=Trim($inName)
+			This.email:=Trim($inAddress)
 	End case 
 
 
@@ -28,11 +28,11 @@ Function fromString($inValue : Text)
 
 	If (($startMailPos>0) && ($endMailPos>$startMailPos))
 
-		This.name:=cs._Tools.me.trimSpaces(Substring($inValue; 1; $startMailPos-1))
-		This.email:=cs._Tools.me.trimSpaces(Substring($inValue; $startMailPos+1; $endMailPos-$startMailPos-1))
+		This.name:=Trim(Substring($inValue; 1; $startMailPos-1))
+		This.email:=Trim(Substring($inValue; $startMailPos+1; $endMailPos-$startMailPos-1))
 	Else 
 
-		var $email : Text:=cs._Tools.me.trimSpaces($inValue)
+		var $email : Text:=Trim($inValue)
 		If (cs._Tools.me.isValidEmail($email))
 			This.email:=$email
 		End if 

Project/Sources/Classes/_Tools.4dm

@@ -458,25 +458,6 @@ Function stopWebServer() : Boolean
 	// ----------------------------------------------------
 
 
-Function trimSpaces($inText : Text) : Text
-	
-	var $startPos : Integer:=1
-	var $endPos : Integer:=Length($inText)
-	
-	While (($startPos<=$endPos) && ($inText[[$startPos]]=" "))
-		$startPos+=1
-	End while 
-	
-	While (($endPos>=$startPos) && ($inText[[$endPos]]=" "))
-		$endPos-=1
-	End while 
-	
-	return Substring($inText; $startPos; $endPos-$startPos+1)
-	
-	
-	// ----------------------------------------------------
-	
-	
 Function urlDecode($inURL : Text) : Text
 
 /*