Comment #1 on issue 869 by chisvasi...(a)gmail.com: Smalltalk code presentation does not populate the text port http://code.google.com/p/moose-technology/issues/detail?id=869 Adding a changedAction when building the morph seems to fix this problem (all tests are green): changedAction: [:aText| aText asString trimBoth ifNotEmpty: [aTextModel text: aText] ]; This should work because PluggableTextMorph>>textChanged triggers this action and is used in the case where we want to listen for live changes in a text morph, without triggering the accept behavior.