Simba/Units/MMLCore/client.pas

unit Client;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, MufasaTypes, Window, Input, Files, Finder, Bitmaps, dtm;

type
    TClient = class(TObject)
        constructor Create;
        destructor Destroy; override;

        public
            MWindow: TMWindow;
            MInput: TMInput;
            MFiles: TMFiles;
            MFinder: TMFinder;
            MBitmaps : TMBitmaps;
            MDTM: TMDTM;

    end;

implementation

// Possibly pass arguments to a default window.
constructor TClient.Create;
begin
  inherited Create;

  MWindow := TMWindow.Create;
  MInput := TMInput.Create(Self);
  MFiles := TMFiles.Create;
  MFinder := TMFinder.Create(Self);
  MBitmaps := TMBitmaps.Create(self);
  MDTM := MDTM.Create(self);
end;

destructor TClient.Destroy;
begin
  MDTM.Free;
  MBitmaps.Free;
  MFinder.Free;
  MFiles.Free;
  MInput.Free;
  MWindow.Free;



  inherited;
end;

end.