Form locked when callback fails

 Hi,

The skill below is used to create a simple form containing a string field with a modifyCallback.

Eveything goes fine writing in the string field, but when the callback generates an error  (artificially reproduced typing "abc")  the form is locked and "OK"/"Cancel" buttons can't be used anymore. Once this happens, even if the form is invoked again or it is set to 'unbound in the CIW, the issue persists.

Could someone be so kind and explain me why this wrong behaviour?

Thank you

let(()

    hiCreateAppForm(

            ?name 'test_form

            ?formTitle "TEST"

            ?fields list(

                  list( hiCreateStringField(?name 'myString ?prompt "->" ?modifyCallback "matchCB" ?editable t) 10:10 200:20 100 ))

            ?buttonLayout list( 'OKCancelDef)

            ?callback list(   "printf(\"OK\")" "printf(\"CANCEL\")")

      )

      hiDisplayForm('test_form)

))

procedure(matchCB( @rest arg)

let(( )

      stringItem = test_form->myString->value

      if( equal(stringItem "abc") then

            printf("ERROR %s \n" )              ;;;; ERROR HERE, it locks the form

      else

            printf("Hello world %s \n" stringItem)

      )

      t     ;any value is allowed in the string field

))