On Friday 05 September 2008 02:39:16 pm [EMAIL PROTECTED] wrote: > Hi, this ugly code fails to compile. Is this expected? > > ---cut--- > PROCEDURE CheckState() CLASS TCounter > local lBold := ::lBold > if HB_IsObject( ::oBtnBold ) ; if !( lBold == ::lBold ) ; > > ::oBtnBold:Refresh( .f. ) ; endif ; endif > > return > ---cut--- > > .\counter.prg(115) Error E0004 LOCAL declaration follows executable > statement
1. In Harbour/xHarbour you don't have to get the E0004 error, that indicates that the "PROCEDURE CheckState() CLASS TCounter" has a executable statement. 2. The code following the LOCAL var declaration ( if ; ... ) can be reduced to: IF .T. ; IF .T. ; ? "True" ; ENDIF ; ENDIF In Harbour the above code fails to compile. In xHarbour compiles ok. Try to get a .ppo for this source ( -p compiler option ) and lets see the corresponding code that follows the "PROCEDURE .. CLASS... " section. best regards Teo _______________________________________________ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
