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 ]