Is possible reevalulate a say witha codeblock? - xharbour

try this..

FUNCTION MAIN
A=3
B=2
@ 1,1 GET A
@ 2,1 GET B
@ 3,1 GET C WHEN {|o| o:varput(A*B) , .F.}
READ
RETURN



"Massimo Belgrano" <massimo.belgrano@gmail.com> wrote in message
news:1183545434.593193.291140@w5g2000hsg.googlegroups.com...
> In old xbase++ prg i have found this sample that non work in xharbour
> Is possible reevalutate say after changhing of a or b?
> without writing valid function
>
> FUNCTION MAIN
> A=3
> B=2
> @ 1,1 GET A
> @ 2,1 GET B
> @ 3,1 SAY eval{||A*B}
> READ
> RETURN
>

Hi


FUNCTION MAIN
A=3
B=2
@ 1,1 GET A valid {|| c:=a*b, aEval(GetList, {|o| oisplay() }) ,.t.}
@ 2,1 GET B valid {|| c:=a*b, aEval(GetList, {|o| oisplay() }) ,.t.}
@ 3,1 GET C WHEN .F.
READ
RETURN


Greeting,
Vladimir