[squeak-dev] The Trunk: Morphic-mt.956.mcz

commits at source.squeak.org commits at source.squeak.org
Fri May 1 18:52:46 UTC 2015


Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.956.mcz

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

Name: Morphic-mt.956
Author: mt
Time: 1 May 2015, 8:52:04.62 pm
UUID: 9c194491-b261-5b4b-8e79-9806c257dc69
Ancestors: Morphic-mt.955

Some assumptions on model interface removed from text fields.

Missing #appendEntryLater added to text fields, which is needed for deferred transcript updates.

=============== Diff against Morphic-mt.955 ===============

Item was changed:
  ----- Method: PluggableTextMorph>>promptForCancel (in category 'unaccepted edits') -----
  promptForCancel
  	"Ask if it is OK to cancel changes to text"
  	(self confirm:
  'Changes have not been saved.
  Is it OK to cancel those changes?' translated)
+ 		ifTrue: [model changed: #clearUserEdits].
- 		ifTrue: [model clearUserEditFlag].
  !

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.
  			getSelectionSelector
  				ifNotNil: [self setSelection: self getSelection].
  			^ self].
  	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 == #appendEntryLater
+ 		ifTrue: [self handleEdit: [self appendEntry]].
  	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]!



More information about the Squeak-dev mailing list