anchor.diff:    iCallTrace      := -1;
     InitializeDebugOutput;
     fpgInitMsgQueue;
  +  DefaultCanvasClass := TfpgCanvas;
   
   finalization
     uClipboard.Free;
  
positive.code:     procedure   SetParent(const AValue: TfpgWindow); reintroduce;
      function    GetParent: TfpgWindow; reintroduce;
      function    GetCanvas: TfpgCanvas; reintroduce;
    public
      constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
  
negative.code:   else
      FWindowType   := wtWindow;
  
    FCanvas := CreateCanvas;
  end;
  
  destructor TfpgWindow.Destroy;
  