summaryrefslogtreecommitdiff
path: root/src/corelib/gfx_command_intf.pas
blob: 61eb89cdf6feab50bbda00ac722dc54ff19312d6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
{
  This is based on the Command design pattern. Use Google if you don't
  know what design patterns are. The Command pattern is very similar to
  Delphi's TAction feature.
}
unit gfx_command_intf;

{$mode objfpc}{$H+}

interface

type
  ICommand = interface(IInterface)
  ['{28D72102-D883-41A1-9585-D86B24D9C628}']
    procedure   Execute;
  end;
  
  
  ICommandHolder = interface(IInterface)
  ['{695BA6E1-1120-42D4-A2C3-54F98D5CDA46}']
    function    GetCommand: ICommand;
    procedure   SetCommand(ACommand: ICommand);
  end;
  

implementation


end.