On Sun, 26 Oct 2008, Pritpal Bedi wrote: Hi Pritpal,
> #include "hbclass.ch" > #command BEGINMENU [<oMenu>] => WITH OBJECT <oMenu> := MyMenu():New() > CREATE CLASS TThread > VAR a > ENDCLASS > Generates this error: > ERRCLASS.prg(7) Error E0030 Syntax error: "syntax error at 'ALWAYS'" > 1 error Harbour code is correct and the problem is only with this line: #command BEGINMENU [<oMenu>] => WITH OBJECT <oMenu> := MyMenu():New() It converts all lines starting with BEGI letters so damage BEGIN SEQUENCE and other PP commands which may start with BEGI[NMENU] word. Use #xcommand. Otherwise only 1-st four characters are significant and shorter words are accepted, f.e. it translated BEGIN SEQUENCE to: WITH OBJECT SEQUENCE := MyMenu():New() what makes BEGIN SEQUENCE unusable. best regards, Przemek _______________________________________________ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
