From e6a2a6ff7553ff718d851125a181eeb2eceba7f8 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Thu, 8 Jul 2010 15:52:15 +0200
Subject: Memo Mediator: Remove trailing whitespace.

Sometimes we had NewLine character or whitespace. We don't need
those, so trim it off.
---
 extras/tiopf/gui/tiMediators.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'extras/tiopf/gui')

diff --git a/extras/tiopf/gui/tiMediators.pas b/extras/tiopf/gui/tiMediators.pas
index b2dacea9..889f6540 100644
--- a/extras/tiopf/gui/tiMediators.pas
+++ b/extras/tiopf/gui/tiMediators.pas
@@ -581,7 +581,7 @@ end;
 
 procedure TtiMemoMediatorView.DoGuiToObject;
 begin
-  Subject.PropValue[FieldName] := View.Lines.Text;
+  Subject.PropValue[FieldName] := Trim(View.Lines.Text);
 end;
 
 procedure TtiMemoMediatorView.SetObjectUpdateMoment(const AValue: TtiObjectUpdateMoment);
-- 
cgit v1.2.3-70-g09d2