anchor.diff:    else
       FWindowType   := wtWindow;
   
  -  FCanvas := TfpgCanvas.Create(self);
  +  FCanvas := CreateCanvas;
   end;
   
   destructor TfpgWindow.Destroy;
  
positive.code:   fpgCaret:  TfpgCaret;   { TODO -ograemeg : move this into fpgApplication }
    fpgImages: TfpgImages;  { TODO -ograemeg : move this into fpgApplication }
  
  // Application & Clipboard singletons
  function  fpgApplication: TfpgApplication;
  function  fpgClipboard: TfpgClipboard;
  
negative.code:   iCallTrace      := -1;
    InitializeDebugOutput;
    fpgInitMsgQueue;
    DefaultCanvasClass := TfpgCanvas;
  
  finalization
    uClipboard.Free;
  