TiddlyWikiPharo/repository/TiddlyWiki/FedWikiItem.class.st

35 lines
577 B
Smalltalk

Class {
#name : #FedWikiItem,
#superclass : #Object,
#instVars : [
'text',
'id',
'type'
],
#category : 'TiddlyWiki-Model'
}
{ #category : #accessing }
FedWikiItem >> fromDictionary: aDictionary [
text := aDictionary at: 'text'.
id := aDictionary at: 'id'.
type := aDictionary at: 'type'.
]
{ #category : #accessing }
FedWikiItem >> printOn: aStream [
super printOn: aStream.
aStream
nextPutAll: '( ',self type, ' | ', self text, ' )'
]
{ #category : #accessing }
FedWikiItem >> text [
^ text
]
{ #category : #accessing }
FedWikiItem >> type [
^ type
]