[lazarus] New Bug Entered

Mattias Gaertner nc-gaertnma at netcologne.de
Sun Nov 3 15:47:03 EST 2002


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

> 
> Title: Bogus IF
> 
> Entered by: Jeroen van Iddekinge
> 
> in TGtkObject.SendPaintMessageForInternalWidgets Contains
> (After the nested routines, in the main part):
> With Context do begin
>     MainWidget := PGTkWidget..
>     if MainWidget = nil then exit
>     if MainWindow <> nil then
>         MainWIndow := ......
>     else
>        exit
> 
> The \'if MainWindow <> nil then\'  is I think wrong because this
> variable  is not yet initialized. This should be (I think)
> 
> With Context do begion
>      MainWidget := PGtkWidget...
>      if MainWidget  = nil then exit;
>      MainWidget := ....

Thx.
Fixed.

Mattias






More information about the Lazarus mailing list