diff options
Diffstat (limited to 'extras/tiopf/mvp/basic_intf.pas')
| -rw-r--r-- | extras/tiopf/mvp/basic_intf.pas | 205 |
1 files changed, 0 insertions, 205 deletions
diff --git a/extras/tiopf/mvp/basic_intf.pas b/extras/tiopf/mvp/basic_intf.pas deleted file mode 100644 index a569db9a..00000000 --- a/extras/tiopf/mvp/basic_intf.pas +++ /dev/null @@ -1,205 +0,0 @@ -unit basic_intf; - -{$mode objfpc}{$H+} - -interface - -type - // forward declarations - ISubject = interface; - IMVPView = interface; - ICommandMenuItem = interface; - IString = interface; - - - // event types - TSelectStringEvent = procedure(const AString: IString) of object; - - - IObserver = interface(IInterface) - ['{16CD208B-5F37-41FC-82A4-BFDD16DB3203}'] - procedure Update(const ASubject: IInterface); - end; - - - ISubject = interface(IInterface) - ['{004B3299-C221-4A44-87A7-7657D90B6493}'] - procedure Attach(Observer: IObserver); - procedure Detach(Observer: IObserver); - procedure Notify; - procedure BeginUpdate; - procedure EndUpdate; - end; - - - IVisitor = interface(IInterface) - ['{35E154D2-6573-42DA-9854-156F3B19C95F}'] - // empty interface - end; - - IVisited = interface(IInterface) - ['{7CF62F51-9412-445C-9E8C-DE94F2B1E280}'] - procedure Accept(const Visitor: IVisitor); - end; - - - IListModel = interface(IInterface) - ['{1A772375-1263-4790-8827-F7BEA358674A}'] - function GetCount: Integer; - function GetItem(Idx: Integer): IInterface; - procedure Add(const Item: IInterface); - procedure Clear; - function IndexOf(const Item: IInterface): Integer; - procedure Insert(const Item, Before: IInterface); - procedure Move(const Item, Before: IInterface); - procedure Remove(const Item: IInterface); - property Count: Integer read GetCount; - property Item[Idx: Integer]: IInterface read GetItem; - end; - -(* - IController = interface(IInterface) - ['{4A99C01A-D025-4562-8E94-3A0C873CE894}'] - function GetModel: IModel; - function GetView: IView; - procedure SetModel(const AValue: IModel); - procedure SetView(const AValue: IView); - property Model: IModel read GetModel write SetModel; - property View: IView read GetView write SetView; - end; -*) - - IString = interface(IInterface) - ['{E76984A4-1287-4353-8370-A7332B9FB1CB}'] - function GetAsString: string; - procedure SetAsString(const AValue: string); - property AsString: string read GetAsString write SetAsString; - end; - - - IStringListModel = interface(IListModel) - ['{769804CD-89E4-43C7-B8EF-783BFE27214E}'] - function GetItem(Idx: Integer): IString; overload; - property Item[Idx: Integer]: IString read GetItem; - end; - - - ISelection = interface(IInterface) - ['{F4DDA0EA-E982-4785-8602-5B32E8DD6DA2}'] - procedure AddItem(const Item: IInterface); - procedure Clear; - function GetCount: integer; - procedure RemoveItem(const Item: IInterface); - property Count: integer read GetCount; - end; - - - ICommand = interface(IInterface) - ['{B333C7E1-B124-4D08-A640-DC02F36264C7}'] - procedure BindSelection(const Selection: ISelection); - function Execute: Boolean; - function GetEnabled: Boolean; - function GetText: string; - property Enabled: Boolean read GetEnabled; - property Text: string read GetText; - end; - - - ICommandSet = interface(IInterface) - ['{1622FF69-3104-47EA-8741-9C1B05ADA30B}'] - // empty interface - end; - - - ICommandVisitor = interface(IVisitor) - ['{628B3A4A-30D1-48D3-8B46-090F08AD2AC8}'] - procedure VisitComand(const Command: ICommand); - end; - - - ICommandMenu = interface(IInterface) - ['{3C666D8F-6BED-454B-8BFE-28422943B300}'] - function AddItem(const Caption: string; Enabled: Boolean): ICommandMenuItem; - end; - - - ICommandMenuItem = interface(IInterface) - ['{7DFCF2BD-70DA-4DAC-B8D5-C6FB882267CF}'] - function GetCaption: string; - function GetChecked: Boolean; - function GetCommand: ICommand; - procedure SetCaption(const AValue: string); - procedure SetChecked(const AValue: Boolean); - procedure SetCommand(const AValue: ICommand); - property Caption: string read GetCaption write SetCaption; - property Checked: Boolean read GetChecked write SetChecked; - property Command: ICommand read GetCommand write SetCommand; - end; - - - IStringVisitor = interface(IVisitor) - ['{DA12355F-0727-41B3-9080-DDAF20797FC5}'] - function GetTheString: IString; - procedure VisitString(const Str: IString); - property TheString: IString - read GetTheString; - end; - - - IMVPModel = interface(IInterface) - ['{85223140-B263-4413-89E3-BFA37E9D3112}'] - function GetCommandSet: ICommandSet; - function GetCurrentSelection: ISelection; - property CommandSet: ICommandSet read GetCommandSet; - property CurrentSelection: ISelection read GetCurrentSelection; - end; - - - IMVPPresenter = interface(IInterface) - ['{5B8477DA-A006-4DE1-B304-9512BFAD7507}'] - function GetCommandMenu: ICommandMenu; - function GetModel: IMVPModel; - function GetView: IMVPView; - procedure SetCommandMenu(const AValue: ICommandMenu); - procedure SetModel(const AValue: IMVPModel); - procedure SetView(const AValue: IMVPView); - property CommandMenu: ICommandMenu read GetCommandMenu write SetCommandMenu; - property Model: IMVPModel read GetModel write SetModel; - property View: IMVPView read GetView write SetView; - end; - - - IMVPView = interface(IInterface) - ['{2C575FE7-BACD-46EC-9D72-AEDA44836B20}'] - procedure AdoptCommandMenu(const Value: ICommandMenu); - procedure OrphanCommandMenu(const Value: ICommandMenu); - end; - - - IStringListView = interface(IMVPView) - ['{D834710A-9C1A-42D1-A29B-7F9F8FB46426}'] - function GetOnSelectString: TSelectStringEvent; - procedure SetOnSelectString(const AValue: TSelectStringEvent); - property OnSelectString: TSelectStringEvent read GetOnSelectString write SetOnSelectString; - end; - - - IStringMoveVisitor = interface(IStringVisitor) - ['{DB89C96F-DA90-43ED-A621-51B70E6C600E}'] - function GetCanDemote: Boolean; - function GetCanPromote: Boolean; - property CanDemote: Boolean read GetCanDemote; - property CanPromote: Boolean read GetCanPromote; - end; - - - - - -implementation - - - - -end. - |