anchor.diff:    fpgCaret:  TfpgCaret;   { TODO -ograemeg : move this into fpgApplication }
     fpgImages: TfpgImages;  { TODO -ograemeg : move this into fpgApplication }
   
  +  DefaultCanvasClass: TfpgCanvasBaseClass = nil;
  +
   // Application & Clipboard singletons
   function  fpgApplication: TfpgApplication;
   function  fpgClipboard: TfpgClipboard;
  
positive.code:   else
      FWindowType   := wtWindow;
  
    FCanvas := TfpgCanvas.Create(self);
  end;
  
  destructor TfpgWindow.Destroy;
  
negative.code:     procedure   SetParent(const AValue: TfpgWindow); reintroduce;
      function    GetParent: TfpgWindow; reintroduce;
      function    GetCanvas: TfpgCanvas; reintroduce;
      function    CreateCanvas: TfpgCanvasBase; virtual;
    public
      constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
  