MiHTMLData
Last updated at 12:02 pm UTC on 8 December 2021
An example of a "dumb" DATA class (in the sense of Data-Context-Interaction).
The object wraps HTML source data downloaded from a website.
Alternatively it could also contain data which is constructed by Smalltalk code..
'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'!