1 files changed, 0 insertions, 66 deletions
diff --git a/extras/tiopf/mvp/view_impl.pas b/extras/tiopf/mvp/view_impl.pas
deleted file mode 100644
index 478ca9f9..00000000
--- a/extras/tiopf/mvp/view_impl.pas
+++ /dev/null
@@ -1,66 +0,0 @@
-unit view_impl;
-
-{$mode objfpc}{$H+}
-
-interface
-
-uses
-  Classes, gui_listbox, gui_combobox, basic_intf;
-  
-type
-
-  TListBoxView = class(TfpgListBox, IObserver)
-  private
-    procedure IObserver.Update = ObserverUpdate;
-    procedure ObserverUpdate(const ASubject: IInterface);
-  end;
-
-
-  TComboBoxView = class(TfpgComboBox, IObserver)
-  private
-    procedure IObserver.Update = ObserverUpdate;
-    procedure ObserverUpdate(const ASubject: IInterface);
-  end;
-
-
-implementation
-
-{ TListBoxView }
-
-procedure TListBoxView.ObserverUpdate(const ASubject: IInterface);
-var
-  Obj: IListModel;
-  i: integer;
-begin
-  ASubject.QueryInterface(IListModel, Obj);
-  if Obj <> nil then
-  begin
-    Items.BeginUpdate;
-    Items.Clear;
-//    for i := 0 to Obj.Count-1 do
-//      Items.Add(Obj.Item[i]);
-    Items.EndUpdate;
-  end;
-end;
-
-{ TComboBoxView }
-
-procedure TComboBoxView.ObserverUpdate(const ASubject: IInterface);
-var
-  Obj: IListModel;
-  i: integer;
-begin
-  ASubject.QueryInterface(IListModel, Obj);
-  if Obj <> nil then
-  begin
-    Items.BeginUpdate;
-    Items.Clear;
-//    for i := 0 to Obj.Count-1 do
-//      Items.Add(Obj.Item[i]);
-    FocusItem := 1;
-    Items.EndUpdate;
-  end;
-end;
-
-end.
-