Hi,

I found the following bugs is lazarus:

1) In TGtkObject.RemoveCallBacks

ImplWidget is set as :

if WinWidgetInfo nil then
   ImplWidget := WinWidgetInfo^.ImplementationWidget;..

But if WinWidgetInfo = nil ImplWidget is not set at all and therefor not initialized.

2) In TGtkObject.Destroy

In following code

 if (FGDIObjects.Count > 0)
  then begin
    WriteLN(Format('[TgtkObject.Destroy] WARNING: There are %d unreleased GDIObjects, a detailed dump follows:' ,[FGDIObjects.Count]));
--> for GDIType := Low(GDIType) to High(GDIType) do
    begin
--->    for GDIType := Low(GDIType) to High(GDIType) do
        GDITypeCount[GDIType] := 0;

I think that the First 'for loop' can be removed.

3) INTERFACEBASE.INC TINTERFACEBASE.EXCLUDECLIPRECT

'Result' is initilized when first if/then is not true. This method should contain

begin
     Result := ERROR; {CHanged}
     Clip := ....
     if .... then

4) PROPEDITS.PP TPROPERTYEDITOR.LISTDRAWVALUE
TPROPERTYEDITOR.PROPDRAWNAME
The Variable Style , wich is used in a call to ACanvas.TextRec, contains a field SystemFont wich isn't initialised in the methode LISTDRAWVALUE and PROPDRAWNAME

Saluti,
Jer

_____________________________________________________________ Get 25MB, POP3, Spam Filtering with LYCOS MAIL PLUS for $19.95/year. http://login.mail.lycos.com/brandPage.shtml?pageId=plus&ref=lmtplus