test3:aRequest
    "a dialogForm; when submitted, test3Action is invoked.

     Invoke via the browser as URL:
        host:port/<N>,test3:
     where <N> is the registered name of this service.
    "
    |replyPresenter|

    replyPresenter := aRequest replyPresenter.
    replyPresenter title:'Simple Dialog Example'.
    replyPresenter parametersAt:#secondHeadLine put:'Test3: Simple Dialog Example'.
    aRequest
        nextPutLine:'<h1>Form example</h1>

This is test3 showing a dialog.

<FORM action="',(aRequest linkIdFor:self selector:#'test3Action:'), '" method=POST>
  Name:     <INPUT               name="username" size=15 value="defaultName"></INPUT>
  Password: <INPUT type=password name="password" size=15>                    </INPUT>
<BR>
            <INPUT type=submit value="Submit"></INPUT>


</form>
'.
    self addLinksForSource:#'test3:' previous:#'test2:' next:#'test4:' to:aRequest.

Edit (disabled)
Index