David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.336.mcz

==================== Summary ====================

Name: Morphic-dtl.336
Author: dtl
Time: 10 February 2010, 5:51:45.712 pm
UUID: 9ad43be5-29ba-46f5-be2e-07b21434b70f
Ancestors: Morphic-dtl.335

Handle #saveContents update from Workspace in PluggableTextMorph. Removes MVC/Morphic dependency in Workspace.
Add PluggableTextMorph>>isTextView to support TranscriptStream>>countOpenTranscripts without #isKindOf: tests on MVC and Morphic views.

=============== Diff against Morphic-dtl.335 ===============

Item was added:
+ ----- Method: PluggableTextMorph>>isTextView (in category 'testing') -----
+ isTextView
+ 	"True if the reciever is a view on a text model, such as a view on a TranscriptStream"
+ 	^true!

Item was changed:
  ----- Method: PluggableTextMorph>>update: (in category 'updating') -----
  update: aSymbol 
  	aSymbol ifNil: [^self].
  	aSymbol == #flash ifTrue: [^self flash].
  	aSymbol == getTextSelector 
  		ifTrue: 
  			[self setText: self getText.
  			^self setSelection: self getSelection].
  	aSymbol == getSelectionSelector 
  		ifTrue: [^self setSelection: self getSelection].
  	(aSymbol == #autoSelect and: [getSelectionSelector notNil]) 
  		ifTrue: 
  			[self handleEdit: 
  					[(textMorph editor)
  						abandonChangeText; "no replacement!!"
  						setSearch: model autoSelectString;
  						againOrSame: true]].
  	aSymbol == #clearUserEdits ifTrue: [^self hasUnacceptedEdits: false].
  	aSymbol == #wantToChange 
  		ifTrue: 
  			[self canDiscardEdits ifFalse: [^self promptForCancel].
  			^self].
  	aSymbol == #appendEntry 
  		ifTrue: 
  			[self handleEdit: [self appendEntry].
  			^self refreshWorld].
  	aSymbol == #clearText 
  		ifTrue: 
  			[self handleEdit: [self changeText: Text new].
  			^self refreshWorld].
  	aSymbol == #bs 
  		ifTrue: 
  			[self handleEdit: [self bsText].
  			^self refreshWorld].
  	aSymbol == #codeChangedElsewhere 
  		ifTrue: 
  			[self hasEditingConflicts: true.
+ 			^self changed].
+ 	aSymbol == #saveContents
+ 		ifTrue:
+ 			[^self saveContentsInFile]!
- 			^self changed]!