[View]  [Edit]  [Lock]  [References]  [Attachments]  [History]  [Home]  [Changes]  [Search]  [Help] 

test[misc] internet access

"Accessing U8 service to get an image file"
| bytes read path |
path:= 'smalltalking/64/u8.image.js'.
read := (Smalltalk includesKey: #U8Configuration)
	ifTrue: [[U8Configuration default fileContentsAt: 'u8:',path]]
	ifFalse: [[('http://u8.smalltalking.net/profile/',path) fileContents]].
"1 timesRepeat: ["
	bytes := read value.
	self print: 'read ' ,bytes size ,#bytes.
"]"