diff --git a/harbour/contrib/hgf/win32/tform.prg b/harbour/contrib/hgf/win32/tform.prg index 446d248088..07feb875a5 100644 --- a/harbour/contrib/hgf/win32/tform.prg +++ b/harbour/contrib/hgf/win32/tform.prg @@ -104,8 +104,6 @@ METHOD New() CLASS TForm DEFAULT ::lRegistered TO .f. - Super:New() - if ! ::lRegistered WinRegisterClass( "HB_TFORM" ) ::lRegistered = .t. diff --git a/harbour/contrib/hgf/win32/tmenu.prg b/harbour/contrib/hgf/win32/tmenu.prg index 13b5f16f6e..0e7d6d8657 100644 --- a/harbour/contrib/hgf/win32/tmenu.prg +++ b/harbour/contrib/hgf/win32/tmenu.prg @@ -66,8 +66,6 @@ ENDCLASS METHOD New( oForm ) CLASS TMenu - Super:New() - ::Items = {} if oForm != nil