[lazarus] New Bug Entered

[bugtracker at miraclec.com]

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