[lazarus] New Bug Entered

bugtracker at miraclec.com bugtracker at miraclec.com
Sun Nov 3 15:35:29 EST 2002

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 := ......

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 := ....

More information about the Lazarus mailing list