mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-29 12:32:14 -05:00
18419b36cc
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@1 3f818213-9676-44b0-a9b4-5e4c4e03d09d
42 lines
580 B
ObjectPascal
42 lines
580 B
ObjectPascal
unit Client;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, MufasaTypes, Window, Input;
|
|
|
|
type
|
|
TClient = class(TObject)
|
|
constructor Create;
|
|
destructor Destroy; override;
|
|
|
|
public
|
|
MWindow: TMWindow;
|
|
MInput: TMInput;
|
|
|
|
end;
|
|
|
|
implementation
|
|
|
|
// Possibly pass arguments to a default window.
|
|
constructor TClient.Create;
|
|
begin
|
|
inherited Create;
|
|
|
|
MWindow := TMWindow.Create(Self);
|
|
MInput := TMInput.Create(Self);
|
|
end;
|
|
|
|
destructor TClient.Destroy;
|
|
begin
|
|
MWindow.Destroy;
|
|
MInput.Destroy;
|
|
|
|
inherited;
|
|
end;
|
|
|
|
end.
|
|
|