anchor.diff:    iCallTrace      := -1;
     InitializeDebugOutput;
     fpgInitMsgQueue;
  +  DefaultCanvasClass := TfpgCanvas;
   
   finalization
     uClipboard.Free;
  
positive.code:   else
      FWindowType   := wtWindow;
  
    FCanvas := TfpgCanvas.Create(self);
  end;
  
  destructor TfpgWindow.Destroy;
  
negative.code:   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;
  