"Change Set: IndentingListItemFont-nop Date: 10 February 2001 Author: Jay Carlson IndentingListItemMorphs should use the user's list font preference. Well, really they should not be hardwiring a font selection at all, but this at least hardwires a better font."! !IndentingListItemMorph methodsFor: 'initialization' stamp: 'nop 2/10/2001 15:06'! initWithContents: anObject prior: priorMorph forList: hostList indentLevel: newLevel container _ hostList. complexContents _ anObject. self initWithContents: anObject asString font: Preferences standardListFont emphasis: nil. indentLevel _ 0. isExpanded _ false. nextSibling _ firstChild _ nil. priorMorph ifNotNil: [ priorMorph nextSibling: self. ]. indentLevel _ newLevel. ! !