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