[Seaside] (no subject)

Philippe Marschall philippe.marschall at gmail.com
Sun Jul 22 09:23:44 UTC 2007


2007/7/22, Keith Hodges <keith_hodges at yahoo.co.uk>:
> Maarten MOSTERT wrote:
> > Hi,
> > I am trying to add a download button to my application to serve a 20MB application file.
> > I don't manage figure out how to make button that triggers a download dialog ?
> > I also wonder if MyFileLibrary is the right way to do so ?
> > Thanks in adavance,
> > @+Maarten,
> >
> >
> Hello Maarten,
>
> some code from Gjallar for doing this
>
>  Rendering the anchor:
>
>                     html
>                             anchor
>                             callback: [attachment downloadInSession:
> self session]
>                             tooltip: 'Download file';
>                             with: [ html html: attachment localFileName].
>
>
> Attachment-downloadInSession: session
>
>     | stream |
>     stream := self readStream.
>     session download: stream mimeType: stream mimeType filename:
> localFileName
>
>
> WASession-download: contents mimeType: mimeType filename: fileName
>     self respond: [:url |
>         (WAResponse new)
>             contentType: mimeType;
>             doNotCache;
>             headerAt: 'Content-Disposition' put: 'attachment;
> filename="' , fileName , '"';
>             headerAt: 'Content-length' put: contents size printString;
>             contents: contents;
>             yourself]


Will this block the sesion until the download is finished?

Philippe

> This download method is available as an extension to base seaside in
> repository  http://www.squeaksource.com/Jetsam
>
> cheers
>
> Keith
> _______________________________________________
> Seaside mailing list
> Seaside at lists.squeakfoundation.org
> http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside
>


More information about the Seaside mailing list