[lazarus] New Bug Entered

[Mattias Gaertner]

On Sun, 3 Nov 2002 15:28:37 -0500
bugtracker at miraclec.com wrote:

> 
> Title: Uninitialized vars part 2
> 
> Entered by: Jeroen van Iddekinge
> 
> In the following method\'s:
> TGtkObject.GetClipBox
> TGtkObject.ExtSelectClipRgn
> TGtkObject.ExcludeClipRect
> TGtkObject.GetClipRgn
> TGtkObject.IntersectClipRect
> 
> The First lines are:
> begin
>   if not ValidDc(DC) then
>      Result := Error
> 
> This shoud be
> 
> begin
>      Result := 0;
>      if not ValidDC(DC) then
>               Result := Error

All 5 functions starts with:

begin
  Result := SIMPLEREGION;
  If not IsValidDC(DC) then
    Result := ERROR;

Looks correct to me.


Mattias