anchor.diff:    public
       constructor Create; override;
       destructor  Destroy; override;
  -
  -  end;
  -
  -
  -  { TfpgWindowImpl }
  +  end;
  +
   
     TfpgWindowImpl = class(TfpgWindowBase)
     protected
  
positive.code: var
    LastClickWindow: TfpgWinHandle;
    LastWinClickTime: longword;
  
  
  //const
    // map X11 event types to custom event types
  //  MSG_SCROLL      = 65;
  //  MSG_RESIZE      = 66;
  //  MSG_POPUPCLOSE  = 67;
  //  MSG_MOVE        = 68;
  //  MSG_DOUBLECLICK = 69;
  
  
   // some externals
  
negative.code: var
    aCapStyle: Longint;
  begin
    aCapStyle := CapNotLast;
    if awidth < 0 then
    begin
      { Alternative line drawing - Using X algorithm instead of hardware algorithm }
      awidth := -awidth;
      if (awidth > 1) and (astyle = lsSolid) then
        aCapStyle := CapButt;
    end
    else
      awidth := 0;
  
    case AStyle of
      lsDot:
          begin
            XSetLineAttributes(xapplication.display, Fgc, 1,
              LineOnOffDash, aCapStyle, JoinMiter);
            XSetDashes(xapplication.display, Fgc, 0, cDot, 2);
          end;
      lsDash:
          begin
            XSetLineAttributes(xapplication.display, Fgc, 1,
              LineOnOffDash, aCapStyle, JoinMiter);
            XSetDashes(xapplication.display, Fgc, 0, cDash, 2);
          end;
      lsDashDot:
          begin
            XSetLineAttributes(xapplication.display, Fgc, 1,
              LineOnOffDash, aCapStyle, JoinMiter);
            XSetDashes(xapplication.display, Fgc, 0, cDashDot, 4);
          end;
      lsDashDotDot:
          begin
            XSetLineAttributes(xapplication.display, Fgc, 1,
              LineOnOffDash, aCapStyle, JoinMiter);
            XSetDashes(xapplication.display, Fgc, 0, cDashDotDot, 6);
          end;
      else  // which includes lsSolid
        XSetLineAttributes(xapplication.display, Fgc, awidth,
          LineSolid, aCapStyle, JoinMiter);
    end;  { case }
  end;
  
  procedure TfpgCanvasImpl.DoDrawString(x, y: TfpgCoord; const txt: string);
  