28 Jul
2007
28 Jul
'07
5:20 p.m.
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/
--------------------------------------------