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

    |message fileName replyPresenter|

    fileName := '/files/test4.html' asFilename. 
    fileName exists ifTrue:[
        message := fileName contents asString
    ] ifFalse:[
        message := 'file not available'
    ].

    replyPresenter := aRequest replyPresenter.
    replyPresenter title:'Embedding a File'.
    replyPresenter parametersAt:#secondHeadLine put:'Test5: Embedding a File'.
    aRequest
        nextPutLine:message.

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

Edit
Index