![]() |
Smalltalk/X WebserverSmalltalk Dynamic Web Pages - Source of WebDemoApp1-test3: |
|
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. |
|
ST/X 7.2.0.0; WebServer 1.670 at bd0aa1f87cdd.unknown:8081; Fri, 08 Dec 2023 02:52:09 GMT
|