'From Squeak3.6alpha of ''17 March 2003'' [latest update: #5240] on 10 June 2003 at 11:00:56 pm'!
"Change Set:		examplesForUrl
Date:			10 June 2003
Author:			Markus Gaelli

First set of examples."!


!HttpUrl class methodsFor: '*Eg-example-objects' stamp: 'mga 6/10/2003 09:05'!
exampleSqueak
	^'http://www.squeak.org' asUrl! !


!Text class methodsFor: '*Eg-example-objects' stamp: 'mga 6/10/2003 09:08'!
exampleSqueakLink
	^self string: 'Squeak!!' attribute: TextURL exampleSqueak! !


!TextMorph class methodsFor: '*Eg-example-objects' stamp: 'mga 6/10/2003 09:15'!
exampleSqueakLink
	"self exampleSqueakLink openInWorld"

	^self new contents: Text exampleSqueakLink! !


!TextURL class methodsFor: '*Eg-example-objects' stamp: 'mga 6/10/2003 09:14'!
exampleSqueak
	^self new url: 'http://www.squeak.org'! !


!TextURL class reorganize!
('as yet unclassified' scanFrom:)
('*Eg-example-objects' exampleSqueak)
!


!TextMorph class reorganize!
('class initialization' initialize registerInFlapsRegistry unload)
('new-morph participation' includeInNewMorphMenu)
('parts bin' borderedPrototype descriptionForPartsBin exampleBackgroundField exampleBackgroundLabel fancyPrototype supplementaryPartsDescriptions)
('scripting' additionsToViewerCategories authoringPrototype)
('*Eg-example-objects' exampleSqueakLink)
!


!Text class reorganize!
('class initialization' initTextConstants initialize)
('instance creation' fromString: fromUser new: streamContents: string:attribute: string:attributes: string:emphasis:)
('private' addAttribute:toArray: string:runs:)
('*Eg-example-objects' exampleSqueakLink)
!


!HttpUrl class reorganize!
('as yet unclassified' shutDown)
('*Eg-example-objects' exampleSqueak)
!

