Squeak
  links to this page:    
View this PageEdit this PageUploads to this PageHistory of this PageTop of the SwikiRecent ChangesSearch the SwikiHelp Guide
MiHTMLData
Last updated at 8:09 pm UTC on 30 June 2018
An example of a DATA class (in the sense of Data-Context-Interaction).

The object wraps HTML data downloaded but it could as well be constructed.

'From MinimalMorphic of 8 December 2006 [latest update: #7246] on 27 January 2010 at 10:23:03 am'!
Object subclass: #MiHTMLData
	instanceVariableNames: 'title body date color links indexValue css ip'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'NaughtieWiki'!

!MiHTMLData methodsFor: 'accessing' stamp: 'edc 1/4/2010 16:44'!
body
	"Answer the value of body"

	^ body! !

!MiHTMLData methodsFor: 'accessing' stamp: 'edc 1/4/2010 16:44'!
body: anObject
	"Set the value of body"

	body := anObject! !

!MiHTMLData methodsFor: 'accessing' stamp: 'edc 1/12/2010 09:47'!
color
	"Answer the value of color"

	^ color! !

!MiHTMLData methodsFor: 'accessing' stamp: 'edc 1/12/2010 09:47'!
color: anObject
	"Set the value of color"

	color := anObject! !

!MiHTMLData methodsFor: 'accessing' stamp: 'edc  1/22/2010 07:52'!
css
	"Answer the value of css"

	^ css ifNil: ['Default' ]! !

!MiHTMLData methodsFor: 'accessing' stamp: 'edc 1/19/2010 06:26'!
css: anObject
	"Set the value of css"

	css := anObject! !

!MiHTMLData methodsFor: 'accessing' stamp: 'edc 1/4/2010 16:44'!
date
	"Answer the value of date"

	^ date! !

!MiHTMLData methodsFor: 'accessing' stamp: 'edc 1/4/2010 16:44'!
date: anObject
	"Set the value of date"

	date := anObject! !

!MiHTMLData methodsFor: 'accessing' stamp: 'edc 1/17/2010 08:33'!
indexValue
	"Answer the value of indexValue"

	^ indexValue! !

!MiHTMLData methodsFor: 'accessing' stamp: 'edc 1/17/2010 08:33'!
indexValue: anObject
	"Set the value of indexValue"

	indexValue := anObject! !

!MiHTMLData methodsFor: 'accessing' stamp: 'edc 1/19/2010 11:00'!
ip
	"Answer the value of ip"

	^ ip ifNil:['localhost']! !

!MiHTMLData methodsFor: 'accessing' stamp: 'edc 1/19/2010 10:59'!
ip: anObject
	"Set the value of ip"

	ip := anObject! !

!MiHTMLData methodsFor: 'accessing' stamp: 'edc 1/11/2010 10:26'!
links
^ links ifNil:[String new]! !

!MiHTMLData methodsFor: 'accessing' stamp: 'edc 1/12/2010 09:47'!
links: anObject
	"Set the value of links"

	links := anObject! !

!MiHTMLData methodsFor: 'accessing' stamp: 'edc 1/4/2010 16:44'!
title
	"Answer the value of title"

	^ title! !

!MiHTMLData methodsFor: 'accessing' stamp: 'edc 1/4/2010 16:44'!
title: anObject
	"Set the value of title"

	title := anObject! !

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

MiHTMLData class
	instanceVariableNames: 'current'!