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