Error ejecutando script .hrb

[jcenteno]

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

[thefull]

Al ser un script, tienes que asegurarte que las funciones que vayan a usarse en el script, estén linkadas, para ello;
REQUEST MsgInfo()

Recuerda que tienes que hacer el trabajo por el linker.

Saludos
Rafa Carmona

[jcenteno]

Estimado Rafa,

Gracias por tu sugerencia, probaré y te comento, pero el ejemplo también casca al pinchar el get.

molt amable

Saludos,

Jairo

[jcenteno]

No ha funcionado al declarar REQUEST MsgInfo,

Comentar que, cualquier función no es reconocida desde el ACTION de un objeto.

@ 10,10 BUTTON "Button 01" SIZE 100,20 PIXEL OF oWnd2 ACTION (MsgInfo("Prueba"),oWnd2:End())

Esto es con xHarbour, alguién sabe si en Harbour hay funcionalidad completa?

Saludos,

Jairo