Todd Blanchard puso en su mail :

> I like that I can say 'http://www.somthing.com' asUrl
> retrieveContents.  This is cool.
> 
> I wish I could say 'https://www.securesomething.com' asUrl
> retrieveContents and have it work.  I've heard of stunnel and am just
> beginning to read the docs.  It seems to have a glimmer of a chance
> to let me do this (I'm using the Unix VM) but I thought I'd check and
> see if anyone had something all built already.
> 
> Thanks.
> 
> Todd Blanchard
File in a Squeak what have Network-HTML.xxx.mcz loaded and do
HTMLScrollableField oddNews
 
A poor , poor man read html.
I have how to use this and drag and drop a regular .htm .html or iCab (for
Mac) and read html , just in case you have interest

edgar

-------------- next part --------------
'From SqueakLight.16 of 26 September 2005 [latest update: #5989] on 18 February 2006 at 5:12:51 pm'!
ScrollableField subclass: #HTMLScrollableField
	instanceVariableNames: 'visitedUrls'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'SqueakRos'!

!HTMLScrollableField methodsFor: 'accessing' stamp: 'edc 12/29/2005 11:56'!
visitedUrls
	"Answer the value of visitedUrls"

	^ visitedUrls! !

!HTMLScrollableField methodsFor: 'accessing' stamp: 'edc 12/29/2005 11:56'!
visitedUrls: anObject
	"Set the value of visitedUrls"

	visitedUrls _ anObject! !


!HTMLScrollableField methodsFor: 'as yet unclassified' stamp: 'edc 12/29/2005 12:34'!
jumpToUrl: url

self halt.! !

"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

HTMLScrollableField class
	instanceVariableNames: ''!

!HTMLScrollableField class methodsFor: 'as yet unclassified' stamp: 'edc 12/29/2005 11:58'!
oddNews
	"HTMLScrollableField oddNews"
	| stream aText sf |
	stream := HTTPSocket httpGet: 'http://www.newsoftheodd.com/'.
	
	aText := (HtmlParser parse: stream) formattedText.
	sf := HTMLScrollableField default.
	sf setMyText: aText.
	sf visitedUrls add: 'http://www.newsoftheodd.com/'.
	^sf openInWorld! !

!HTMLScrollableField class methodsFor: 'as yet unclassified' stamp: 'edc 12/29/2005 11:57'!
default
	| newInstance r |
	newInstance := self newStandAlone.
	newInstance
		color: (Color
				r: 0.972
				g: 0.972
				b: 0.662).
	r := Rectangle
				left: World left + 50
				right: World right - 50
				top: World top + 100
				bottom: World bottom - 50.
	newInstance bounds: r.
	newInstance visitedUrls: OrderedCollection new.
	^ newInstance! !