From 356c7a0620cef65d7675150d3b635f8f8158c10c Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Fri, 23 Oct 2009 15:57:59 +0200
Subject: With new mediator refactoring the CheckBox mediator can be
 simplified.

---
 extras/tiopf/gui/tiMediators.pas | 16 +---------------
 1 file changed, 1 insertion(+), 15 deletions(-)

(limited to 'extras')

diff --git a/extras/tiopf/gui/tiMediators.pas b/extras/tiopf/gui/tiMediators.pas
index db125aca..736d782d 100644
--- a/extras/tiopf/gui/tiMediators.pas
+++ b/extras/tiopf/gui/tiMediators.pas
@@ -101,8 +101,6 @@ type
   { Base class to handle TfpgCheckBox controls }
   TtiCheckBoxMediatorView = class(TtiControlMediatorView)
   protected
-    procedure   DoObjectToGUI; override;
-    procedure   DoGUIToObject; override;
     procedure   SetObjectUpdateMoment(const AValue: TtiObjectUpdateMoment); override;
   public
     constructor Create; override;
@@ -723,18 +721,6 @@ end;
 
 { TtiCheckBoxMediatorView }
 
-procedure TtiCheckBoxMediatorView.DoObjectToGUI;
-begin
-  inherited DoObjectToGUI;
-  View.Checked := (Subject.PropValue[FieldName] = 'True');
-end;
-
-procedure TtiCheckBoxMediatorView.DoGUIToObject;
-begin
-  inherited DoGUIToObject;
-  Subject.PropValue[FieldName] := View.Checked
-end;
-
 procedure TtiCheckBoxMediatorView.SetObjectUpdateMoment(
   const AValue: TtiObjectUpdateMoment);
 begin
@@ -749,7 +735,7 @@ end;
 constructor TtiCheckBoxMediatorView.Create;
 begin
   inherited Create;
-  GuiFieldName:='Checked';
+  GuiFieldName := 'Checked';
 end;
 
 function TtiCheckBoxMediatorView.View: TfpgCheckBox;
-- 
cgit v1.2.3-70-g09d2