Web photo viewer

Lic. Edgar J. De Cleene edgardec2001 at yahoo.com.ar
Tue Nov 29 10:40:32 UTC 2005


Finally I solve my own questions.

Here I share the interin solution.

asWebImage
    | aStream writerClass imgType|
aStream := RWBinaryOrTextStream on: ''.
writerClass := ((Smalltalk includesKey: #JPEGReadWriter2)
        and: [(Smalltalk at: #JPEGReadWriter2) new isPluginPresent])
        ifTrue: ['jpg']
        ifFalse: ['gif'].
(writerClass = 'jpg') ifTrue: [writerClass := JPEGReadWriter2.
imgType := 'image/jpg']
ifFalse:[writerClass := GIFReadWriter.
imgType := 'image/gif'].


Thanks to who answer and who view Rosario images.
Now I share Argentina views on :

http://200-122-104-133.cab.prima.net.ar:8084/



	

	
		
___________________________________________________________ 
1GB gratis, Antivirus y Antispam 
Correo Yahoo!, el mejor correo web del mundo 
http://correo.yahoo.com.ar 




More information about the Squeak-dev mailing list