Michael Schimmel
31 lines
556 B
ObjectPascal
31 lines
556 B
ObjectPascal
unit TestModule;
|
|
|
|
interface
|
|
|
|
uses
|
|
Myc.Aura.Module;
|
|
|
|
type
|
|
TTestModule = class(TMycAuraNode, IAuraModule)
|
|
private
|
|
FId: Integer;
|
|
public
|
|
constructor Create(const AName: string; AId: Integer);
|
|
procedure SetupWorkspace(const Workspace: IAuraWorkspace);
|
|
end;
|
|
|
|
implementation
|
|
|
|
constructor TTestModule.Create(const AName: string; AId: Integer);
|
|
begin
|
|
inherited Create(AName);
|
|
FId := AId;
|
|
end;
|
|
|
|
procedure TTestModule.SetupWorkspace(const Workspace: IAuraWorkspace);
|
|
begin
|
|
|
|
end;
|
|
|
|
end.
|