[lazarus] New Bug Entered

[Jesus Reyes]

> >> > 3) TGtkObject.SelectClipRgn.
> >> > The first lines of this routine is:
> >> >
> >> > if not isValidDc(DC) then
> >> >   Result := Error;
> >> > if Result <> Error then
> >> >
> >> > This should be something like:
> >> >
> >> > Error := 0
> >> > if not IsValidDc(DC) then
> >> >     Result := Error;
> >> > if Result <> Error then
> >>
> >>This is not a bug, ERROR is a Win32 defined const, which is declared
> >>elsewhere.
> >
> >I think Jeroen ment Result=0 instead of Error=0.
> >
> >Result is uninitialized.
> >
> >Marc
>
> whoops. looks like you may be right. So..
>
> Fixed.
>
> Andrew
>

Sorry if this message is repeated.
...

I think this would be a problem anyway because Error was declared as Error =
0; in lcltype.pp
so Result:=0 is the same as Result:=Error.  DC is always treated as Invalid
and Result <> Error is false.

 This happen to be a problem in some other routines.... ExtSelectClipRGN,
ExcludeClipRect, getClipBox, getClipRGN, SelectClipRGN, IntersectClipRect.
At least I can confirm this with getClipBox
But I could be wrong....

Regards.

Jesus Reyes A.


_________________________________________________________
Do You Yahoo!?
La emoción e intensidad del deporte en Yahoo! Deportes. http://deportes.yahoo.com.mx