axlEnterEvent using of DONE during the active FORM

Hi JuriV, ok this time let us have a look into that for you by consulting with a skill expert. We shall get back to you on that within a few days.  

Because you call a Form which has a certain program mode, interactive or general you cannot call directly a different (interactive) command such like axlEnterEvent().

To do such you need to register the test1 function as a 'sub command' and call this command with axlShell().

According to the api:  "sub_cmd"  Must be called inside an interactive command. Use for pop-ups.

Something like this: 

axlCmdRegister( "test" 'test  ?cmdType "interactive")
form = axlFormCreate( (gensym) "FORM.form" nil test_run t)
;register a 'sub command'
axlCmdRegister("startTest1" 'test1 ?cmdType "sub_cmd")

;when deinitializing the program do a unregister command.
axlCmdUnregister("startTest1")


procedure( test_run(form)
    case( form -> curField  ; funktioniert nicht mit "fields" anstelle von curField
    ('button1
        axlShell("startTest1")
    )
    ('button2
           test2()
    )
);end case
); end procedure test_run

procedure( test1()
    loop = t                          
    while( loop
        event = axlEnterEvent(list('PICK 'DONE 'CANCEL nil nil)

        caseq(event->type

        ('PICK
            do something one
        ); end PICK

        ('DONE
            do something two
        ); end DONE
        )

    )

Hi JuriV, it seems you have received a good answer from the community. (thank you B Bruekers). If you are satisfied with the donated information then you have the ability to vote your thanks. Simply select MORE at the end of the comment and select "Verify Answer".