test6:aRequest
    "send a file
     - requires a test6.html file 
       to be found under the htmldialogs directory."

    "/aRequest nextPutLine:('htmldialogs/test6.html' asFilename contents asString)

    |replyPresenter|

    replyPresenter := aRequest replyPresenter.
    replyPresenter title:'Test6'.
    replyPresenter parametersAt:#secondHeadLine put:'Test6'.
    aRequest
        nextPutLine:'<h1>This test is not available</h1>'.

    self addLinksForSource:#'test6:' previous:#'test5:' next:#'test7:' to:aRequest.

Edit
Index