38 lines
922 B
Plaintext
38 lines
922 B
Plaintext
IMPORT util
|
|
|
|
MAIN
|
|
DEFINE rec RECORD
|
|
mywebcomp STRING,
|
|
result STRING
|
|
END RECORD
|
|
|
|
OPEN FORM f FROM "wc_echo"
|
|
DISPLAY FORM f
|
|
|
|
INPUT BY NAME rec.* ATTRIBUTES(UNBUFFERED)
|
|
ON ACTION get_title
|
|
|
|
CALL ui.Interface.frontCall("webcomponent","getTitle",
|
|
["formonly.mywebcomp"],[rec.result])
|
|
ON ACTION echo_string
|
|
|
|
LET rec.result = wc_call("formonly.mywebcomp", "echoString", "Hello!")
|
|
ON ACTION echo_object
|
|
|
|
LET rec.result = wc_call("formonly.mywebcomp", "echoObject",
|
|
'{"id":"235","name":"Doorman"}')
|
|
END INPUT
|
|
|
|
END MAIN
|
|
|
|
FUNCTION wc_call(fn,fc,p1)
|
|
DEFINE fn,fc,p1 STRING
|
|
DEFINE res STRING
|
|
TRY
|
|
CALL ui.Interface.frontCall("webcomponent","call",[fn,fc,p1],[res])
|
|
CATCH
|
|
ERROR err_get(status)
|
|
RETURN NULL
|
|
END TRY
|
|
RETURN res
|
|
END FUNCTION |