Problemas xHarbour+HwGUI

[MarceloHenrique]

Estou iniciando a conversão de meu sistema para xHarbour.
Depois de fazer as alterações necessárias e conseguir compilar, estou tentando iniciar com HwGUI.
Uso o xHarbour 1.2.1 e xDEV 0.70.
Baixei a HwGUI, gerei as LIBs (BCC55) e coloquei no diretorio xharbour\lib (make_b32.bat da HwGUI).
Quando compilo o programa teste abaixo recebo erros:

Código: Selecionar todos

 Function Main
   Local oMainWnd, oFont
   Local aCombo := {"First","Second" }
   PREPARE FONT oFont NAME "MS Sans Serif" WIDTH 0 HEIGHT -13
   INIT WINDOW oMainWnd TITLE "Example" ;
           FONT oFont ;
           ON EXIT {||MsgYesNo("Really want to quit ?")}
   @ 20,10 EDITBOX "Hello, World!" ;
           SIZE 200,30 ;
   @ 270,10 COMBOBOX aCombo ;
           SIZE 100, 150 TOOLTIP "Combobox"
   @ 120,60 BUTTON "Close" ;
           SIZE 150,30 ;
           ON CLICK {||EndWindow()}
   MENU OF oMainWnd
           MENUITEM "About" ACTION MsgInfo("First HwGUI Application")
   ENDMENU
   ACTIVATE WINDOW oMainWnd 
   Return Nil 

Os erros reportados são:
Teste1.prg(5) Error E0030 Syntax error: "syntax error at 'FONT'"
Teste1.prg(8) Error E0030 Syntax error: "syntax error at 'WINDOW'"
Teste1.prg(12) Error E0030 Syntax error: "syntax error at '@'"
Teste1.prg(14) Error E0030 Syntax error: "syntax error at '@'"
Teste1.prg(18) Error E0030 Syntax error: "syntax error at '@'"
Teste1.prg(20) Error E0030 Syntax error: "syntax error at 'OF'"
Teste1.prg(21) Error E0030 Syntax error: "syntax error at 'About'"
Teste1.prg(22) Error E0020 Incomplete statement or unbalanced delimiters
Teste1.prg(24) Error E0030 Syntax error: "syntax error at 'WINDOW'"
9 errors
No code generated

Fiz o programa em clipper bom tempo atrás e estou precisando atualizar/alterar algumas coisas (diria que sou nivel intermediario).
Estou com as variáveis de ambiente setadas (windows XP); tanto que estou conseguindo compilar o programa em xHarbour após algumas alterações, mas sem ainda usar nada gráfico.
O que pode estar acontecendo com este programa exemplo acima? O que tenho que alterar para funcionar?
Abraço a todos,

Marcelo Henrique

[gralak]

Caro amigo Marcelo Henrique você esta fazendo os includes
Se não estiver e muito provavel que de esses erros de compilação mesmo ok

tenta ai ok qualquer coisa posta ai novamente ... té+++

[MarceloHenrique]

Gralak,

Obrigado pela resposta.
Primeiro passo era isto mesmo. Não falava nada no exemplo mas quando coloquei o #include "hwgui.ch" parou de dar erro.
Só que depois de compilado, sem erros, não acontece nada.
Vou bater cabeça um pouco, mas se mais alguem puder ajudar, agradeço.
Abraços,

Marcelo Henrique

[gralak]

Caro amigo Marcelo Henrique pode ser que vc esta tentando delclarar mais de uma janela MAIN
tenta declarar a janela como DIALOG na pasta samples tem exemplos pode ser que dessa vez de certo ok
abraço té+++

[sygecom]

Ou coloque o comando MAIN junto com INIT WINDOWS ficaria assim:

Código: Selecionar todos

INIT WINDOW oMainWnd MAIN TITLE "Example" ;
           FONT oFont ;
           ON EXIT {||MsgYesNo("Really want to quit ?")}

...
...
...

[MarceloHenrique]

Já consegui mais um passo.
Um dos problemas era com o xDev; mudei uma opcao e compilou e rodou.
Agora vou continuar meus estudos.
Dúvidas vão surgir e vou aparecer novamente.
Obrigado pela ajuda, um bom final de semana e abraços.

Marcelo Henrique

[sygecom]

Qualquer duvida, fique a vontade em perguntar.
No GoogleCode tem um pequeno sistema que pode servir como exemplo também:
http://code.google.com/p/scm/
Nota:tem que baixar via SVN.