eXept Software AG Logo

Smalltalk/X Webserver

Smalltalk Dynamic Web Pages - Source of WebDemoApp1-test3:

Home

everywhere
www.exept.de
for:
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
Index


ST/X 7.1.0.0; WebServer 1.653 at exept.de:8081; Mon, 23 Oct 2017 00:46:06 GMT