enterBox() used to option form

hi, 

I 'm confused about the post: community.cadence.com/.../how-to-store-values-for-the-form-fields

1. is there any ways to keep not display the form when commands repeat?

2. When I replace the button with ApplyHideCancel, does the program execute as:

    testDoneProc(win done bBox)   =>   done -> t  ;  bBox  ->  nil

the code copied from the above post:

procedure(testDoneProc(wid done box)
  ;----------------------------------------------------------------------
  ; don't do anything if cancelled
  ;----------------------------------------------------------------------
  when(done
    printf("%L\n" box)
    if(optionsForm->Type->value == "type1" then printf("%L\n" car(box)))
    if(optionsForm->Type->value == "type2" then printf("%L\n" cadr(box)))
    ;--------------------------------------------------------------------
    ; enterBox doesn't seem to honour modalCommands itself ("Repeat Commands"
    ; on the Editor Options form) so achieve the same thing
    ; by enqueuing the original command again
    ;--------------------------------------------------------------------
    when(envGetVal("layout" "modalCommands")
      hiEnqueueCmd("test()")
    )
  )
)
procedure(test()
  let((optionsForm box)
    cv=geGetEditCellView()
    ;--------------------------------------------------------------------
    ; Only create the form if it doesn't exist already; always
    ; stored in a global variable, so make sure the name is unique
    ;--------------------------------------------------------------------
    unless(boundp('CCFuniqueOptionsForm)
      ;------------------------------------------------------------------
      ; hiCreateAppForm has more control than hiCreateOptionsForm
      ;------------------------------------------------------------------
      hiCreateAppForm(
        ?name 'CCFuniqueOptionsForm
        ?formTitle "Options"
        ?formType 'options
        ?fields list(
          hiCreateRadioField(
            ?name 'Type
            ?prompt "Type"
            ?choices list("type1" "type2")
          );end Type 
        );end list
        ;----------------------------------------------------------------
        ; Control buttons and initial form size
        ;----------------------------------------------------------------
        ?buttonLayout 'HideCancelDef
        ?initialSize 300:60
      );end optionsForm
    )
    optionsForm=CCFuniqueOptionsForm

    ;--------------------------------------------------------------------
    ; Moved the processing into the doneProc
    ;--------------------------------------------------------------------
    box = enterBox(
      ?form eval(optionsForm)
      ?doneProc "testDoneProc"
    )
  );end let
);end procedure

hiSetBindKey("Layout" "<Key>z" "test()")