Smalltalk › Frameworks & Tools › Magritte, Pier and Related Tools

PRViewRenderer>>visitFile:

_‹ Previous Topic Next Topic _›

Classic

List

Threaded

2 messages Options

NISHIHARA Satoshi

PRViewRenderer>>visitFile:

At Pier 1.0.9.201, should it be *file*?

PRViewRenderer>>visitFile: anObject
| file url |
file := anObject file ifNil: [ ^ self ].
file isText
ifTrue: [ ^ html preformatted: anObject contents ].
"^^^^^^^^"

" file?"
url := file urlOn: html.
file isImage
ifTrue: [ ^ html image url: url; altText: anObject title ].
html anchor url: url; with: anObject title

--
--------------------------------------------
西原聡士 (NISHIHARA Satoshi)
URL: http://www.zephyr.dti.ne.jp/~nishis/
--------------------------------------------

_______________________________________________
SmallWiki, Magritte, Pier and Related Tools ...
https://www.iam.unibe.ch/mailman/listinfo/smallwiki

Lukas Renggli-2

Re: PRViewRenderer>>visitFile:

Thanks for reporting. This is fixed in Pier-All-lr.219.

Lukas

On 28.07.2007, at 17:20, NISHIHARA Satoshi wrote:

> At Pier 1.0.9.201, should it be *file*?
>
>
> PRViewRenderer>>visitFile: anObject
> | file url |
> file := anObject file ifNil: [ ^ self ].
> file isText
> ifTrue: [ ^ html preformatted: anObject contents ].
> "^^^^^^^^"
>
> " file?"
> url := file urlOn: html.
> file isImage
> ifTrue: [ ^ html image url: url; altText: anObject title ].
> html anchor url: url; with: anObject title
>
> --
> --------------------------------------------
> 西原聡士 (NISHIHARA Satoshi)
> URL: http://www.zephyr.dti.ne.jp/~nishis/
> --------------------------------------------
>
>
> _______________________________________________
> SmallWiki, Magritte, Pier and Related Tools ...
> https://www.iam.unibe.ch/mailman/listinfo/smallwiki

--
Lukas Renggli
http://www.lukas-renggli.ch

_______________________________________________
SmallWiki, Magritte, Pier and Related Tools ...
https://www.iam.unibe.ch/mailman/listinfo/smallwiki

smime.p7s (5K) Download Attachment