TiddlyWikiPharo/repository/TiddlyWiki/FedWikiItem.class.st

35 lines
583 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
]