Error ejecutando script .hrb
Posted: Mon Jan 18, 2010 9:07 am
Hola a todos,
Estoy probando la ejecución de ficheros hrb desde mi aplicación con xHarbour, haciendo un simple MsgInfo('Hola') sin problema.
Construyo una ventana con un boton y dos gets sin problema, pero al pinchar en el botón, envia error. Al parecer, no esta soportando los eventos de los objetos.
#Include 'Fivewin.ch'
FUNCTION Test()
LOCAL sText := 'Implementando Scripts'
LOCAL oWnd2, oGet1, oGet2, cGet1, cGet2
Alert(sText)
//MsgInfo(sText)
DEFINE WINDOW oWnd2 FROM 0,0 TO 12,35 TITLE 'Test'
cGet1 := "Hola "
cGet2 := "Bye "
@ 10,10 BUTTON "Button 01" SIZE 100,20 PIXEL OF oWnd2 ACTION MsgInfo('Hola')
@ 40,10 GET oGet1 VAR cGet1 SIZE 100,20 PIXEL OF oWnd2
@ 70,10 GET oGet2 VAR cGet2 SIZE 100,20 PIXEL OF oWnd2
ACTIVATE WINDOW oWnd2
RETURN NIL
Este es el error:
Error description: Error BASE/1001 Undefined function: MSGINFO
Args:
[ 1] = C Hola
Stack Calls
===========
Called from: => MSGINFO(0)
Called from: PROGRAMS\Test_hrb.hrb => (b)TEST(12)
Alguna sugerencia?
Saludos,
Jairo
Estoy probando la ejecución de ficheros hrb desde mi aplicación con xHarbour, haciendo un simple MsgInfo('Hola') sin problema.
Construyo una ventana con un boton y dos gets sin problema, pero al pinchar en el botón, envia error. Al parecer, no esta soportando los eventos de los objetos.
#Include 'Fivewin.ch'
FUNCTION Test()
LOCAL sText := 'Implementando Scripts'
LOCAL oWnd2, oGet1, oGet2, cGet1, cGet2
Alert(sText)
//MsgInfo(sText)
DEFINE WINDOW oWnd2 FROM 0,0 TO 12,35 TITLE 'Test'
cGet1 := "Hola "
cGet2 := "Bye "
@ 10,10 BUTTON "Button 01" SIZE 100,20 PIXEL OF oWnd2 ACTION MsgInfo('Hola')
@ 40,10 GET oGet1 VAR cGet1 SIZE 100,20 PIXEL OF oWnd2
@ 70,10 GET oGet2 VAR cGet2 SIZE 100,20 PIXEL OF oWnd2
ACTIVATE WINDOW oWnd2
RETURN NIL
Este es el error:
Error description: Error BASE/1001 Undefined function: MSGINFO
Args:
[ 1] = C Hola
Stack Calls
===========
Called from: => MSGINFO(0)
Called from: PROGRAMS\Test_hrb.hrb => (b)TEST(12)
Alguna sugerencia?
Saludos,
Jairo