The Trunk: Morphic-dtl.297.mcz

> David T. Lewis uploaded a new version of Morphic to project The Trunk:
> http://source.squeak.org/trunk/Morphic-dtl.297.mcz
>
> ==================== Summary ====================
>
> Name: Morphic-dtl.297
> Author: dtl
> Time: 3 January 2010, 11:54:26 am
> UUID: b656a757-aedc-47a4-9014-21327212c021
> Ancestors: Morphic-ar.296
>
> Add TextEditor>>explainDelimitor: copied from ParagraphEditor, required for explain function in code panes.
>
> Run FixUnderscores on package Morphic to update methods adopted from Cuis.
> Note: Did not fix underscores in MorphicModel class>>compileAccessorsFor:

>
>
> =============== Diff against Morphic-ar.296 ===============
>
> Item was changed:
>  ----- Method: TextEditor>>reverseSelection (in category 'current selection') -----
>  reverseSelection
>   "Reverse the valence of the current selection highlighting."
> + selectionShowing := selectionShowing not.
> - selectionShowing _ selectionShowing not.
>   paragraph reverseFrom: self pointBlock to: self markBlock!
>
> Item was changed:
>  ----- Method: TextEditor>>completeSymbol:lastOffering: (in category 'private') -----
>  completeSymbol: hintText lastOffering: selectorOrNil
>   "Invoked by Ctrl-q when there is only a caret.
>   Do selector-completion, i.e., try to replace the preceding identifier by a
>   selector that begins with those characters & has as many keywords as possible.
>   Leave two spaces after each colon (only one after the last) as space for
>   arguments.  Put the caret after the space after the first keyword.  If the
>   user types Ctrl-q again immediately, choose a different selector.
>   Undoer: #undoQuery:lastOffering:; Redoer: itself.
>   If redoing, just redisplay the last offering, selector[OrNil]."
>
>   | firstTime input prior caret newStart sym kwds outStream |
> + firstTime := self isRedoing
> + ifTrue: [prior := sym := selectorOrNil. true]
> - firstTime _ self isRedoing
> - ifTrue: [prior _ sym _ selectorOrNil. true]
>   ifFalse: [hintText isNil].
>   firstTime
>   ifTrue: "Initial Ctrl-q (or redo)"
> + [caret := self startIndex.
> - [caret _ self startIndex.
>   self selectPrecedingIdentifier.
> + input := self selection]
> - input _ self selection]
>   ifFalse: "Repeated Ctrl-q"
> + [caret := UndoInterval first + hintText size.
> - [caret _ UndoInterval first + hintText size.
>   self selectInvisiblyFrom: UndoInterval first to: UndoInterval last.
> + input := hintText.
> + prior := selectorOrNil].
> - input _ hintText.
> - prior _ selectorOrNil].
>   (input size ~= 0 and: [sym ~~ nil or:
> + [(sym := Symbol thatStarts: input string skipping: prior) ~~ nil]])
> - [(sym _ Symbol thatStarts: input string skipping: prior) ~~ nil]])
>   ifTrue: "found something to offer"
> + [newStart := self startIndex.
> + outStream := WriteStream on: (String new: 2 * sym size).
> + 1 to: (kwds := sym keywords) size do:
> - [newStart _ self startIndex.
> - outStream _ WriteStream on: (String new: 2 * sym size).
> - 1 to: (kwds _ sym keywords) size do:
>   [:i |
>   outStream nextPutAll: (kwds at: i).
> + i = 1 ifTrue: [caret := newStart + outStream contents size + 1].
> - i = 1 ifTrue: [caret _ newStart + outStream contents size + 1].
>   outStream nextPutAll:
>   (i < kwds size ifTrue: ['  '] ifFalse: [' '])].
> + UndoSelection := input.
> - UndoSelection _ input.
>   self deselect; zapSelectionWith: outStream contents asText.
>   self undoer: #undoQuery:lastOffering: with: input with: sym]
>   ifFalse: "no more matches"
>   [firstTime ifFalse: "restore original text & set up for a redo"
> + [UndoSelection := self selection.
> - [UndoSelection _ self selection.
>   self deselect; zapSelectionWith: input.
>   self undoer: #completeSymbol:lastOffering: with: input with: prior.
> + Undone := true].
> - Undone _ true].
>   morph flash].
>   self selectAt: caret!
>
> Item was changed:
>  ----- Method: SmalltalkEditor class>>initializeShiftCmdKeyShortcuts (in category 'keyboard shortcut tables') -----
>  initializeShiftCmdKeyShortcuts
>   "Initialize the shift-command-key (or control-key) shortcut table."
>   "NOTE: if you don't know what your keyboard generates, use Sensor kbdTest"
>   "wod 11/3/1998: Fix setting of cmdMap for shifted keys to actually use the
>   capitalized versions of the letters.
>   TPR 2/18/99: add the plain ascii values back in for those VMs that don't return the shifted values."
>
>   "SmalltalkEditor initialize"
>
>   | cmds |
>   super initializeShiftCmdKeyShortcuts.
>
> + cmds := #(
> - cmds _ #(
>   $a argAdvance:
>   $b browseItHere:
>   $e methodStringsContainingIt:
>   $f displayIfFalse:
>   $g fileItIn:
>   $i exploreIt:
>   $n referencesToIt:
>   $t displayIfTrue:
>   $v pasteInitials:
>   $w methodNamesContainingIt:
>   ).
>   1 to: cmds size by: 2 do: [ :i |
>   shiftCmdActions at: ((cmds at: i) asciiValue + 1) put: (cmds at: i + 1). "plain keys"
>   shiftCmdActions at: ((cmds at: i) asciiValue - 32 + 1) put: (cmds at: i + 1). "shifted keys"
>   shiftCmdActions at: ((cmds at: i) asciiValue - 96 + 1) put: (cmds at: i + 1). "ctrl keys"
>   ].!
>
> Item was changed:
>  ----- Method: TextEditor>>crWithIndent: (in category 'typing/selecting keys') -----
>  crWithIndent: characterStream
>   "Replace the current text selection with CR followed by as many tabs
>   as on the current line (+/- bracket count) -- initiated by Shift-Return."
>   | char s i tabCount |
>   sensor keyboard. "flush character"
> + s := paragraph string.
> + i := self stopIndex.
> + tabCount := 0.
> + [(i := i-1) > 0 and: [(char := s at: i) ~= Character cr]]
> - s _ paragraph string.
> - i _ self stopIndex.
> - tabCount _ 0.
> - [(i _ i-1) > 0 and: [(char _ s at: i) ~= Character cr]]
>   whileTrue:  "Count tabs and brackets (but not a leading bracket)"
> + [(char = Character tab and: [i < s size and: [(s at: i+1) ~= $[ ]]) ifTrue: [tabCount := tabCount + 1].
> + char = $[ ifTrue: [tabCount := tabCount + 1].
> + char = $] ifTrue: [tabCount := tabCount - 1]].
> - [(char = Character tab and: [i < s size and: [(s at: i+1) ~= $[ ]]) ifTrue: [tabCount _ tabCount + 1].
> - char = $[ ifTrue: [tabCount _ tabCount + 1].
> - char = $] ifTrue: [tabCount _ tabCount - 1]].
>   characterStream crtab: tabCount.  "Now inject CR with tabCount tabs"
>   ^ false!
>
> Item was changed:
>  ----- Method: Editor>>selectWord (in category 'new selection') -----
>  selectWord
>   "Select delimited text or word--the result of double-clicking."
>
>   | openDelimiter closeDelimiter direction match level leftDelimiters rightDelimiters
>   string here hereChar start stop |
> + string := self string.
> + here := self pointIndex.
> - string _ self string.
> - here _ self pointIndex.
>   (here between: 2 and: string size)
>   ifFalse: ["if at beginning or end, select entire string"
>   ^self selectFrom: 1 to: string size].
> + leftDelimiters := '([{<''"
> - leftDelimiters _ '([{<''"
>  '.
> + rightDelimiters := ')]}>''"
> - rightDelimiters _ ')]}>''"
>  '.
> + openDelimiter := string at: here - 1.
> + match := leftDelimiters indexOf: openDelimiter.
> - openDelimiter _ string at: here - 1.
> - match _ leftDelimiters indexOf: openDelimiter.
>   match > 0
>   ifTrue:
>   ["delimiter is on left -- match to the right"
> + start := here.
> + direction := 1.
> + here := here - 1.
> + closeDelimiter := rightDelimiters at: match]
> - start _ here.
> - direction _ 1.
> - here _ here - 1.
> - closeDelimiter _ rightDelimiters at: match]
>   ifFalse:
> + [openDelimiter := string at: here.
> + match := rightDelimiters indexOf: openDelimiter.
> - [openDelimiter _ string at: here.
> - match _ rightDelimiters indexOf: openDelimiter.
>   match > 0
>   ifTrue:
>   ["delimiter is on right -- match to the left"
> + stop := here - 1.
> + direction := -1.
> + closeDelimiter := leftDelimiters at: match]
> - stop _ here - 1.
> - direction _ -1.
> - closeDelimiter _ leftDelimiters at: match]
>   ifFalse: ["no delimiters -- select a token"
> + direction := -1]].
> + level := 1.
> - direction _ -1]].
> - level _ 1.
>   [level > 0 and: [direction > 0
>   ifTrue: [here < string size]
>   ifFalse: [here > 1]]]
>   whileTrue:
> + [hereChar := string at: (here := here + direction).
> - [hereChar _ string at: (here _ here + direction).
>   match = 0
>   ifTrue: ["token scan goes left, then right"
>   hereChar tokenish
>   ifTrue: [here = 1
>   ifTrue:
> + [start := 1.
> - [start _ 1.
>   "go right if hit string start"
> + direction := 1]]
> - direction _ 1]]
>   ifFalse: [direction < 0
>   ifTrue:
> + [start := here + 1.
> - [start _ here + 1.
>   "go right if hit non-token"
> + direction := 1]
> + ifFalse: [level := 0]]]
> - direction _ 1]
> - ifFalse: [level _ 0]]]
>   ifFalse: ["bracket match just counts nesting level"
>   hereChar = closeDelimiter
> + ifTrue: [level := level - 1"leaving nest"]
> - ifTrue: [level _ level - 1"leaving nest"]
>   ifFalse: [hereChar = openDelimiter
> + ifTrue: [level := level + 1"entering deeper nest"]]]].
> - ifTrue: [level _ level + 1"entering deeper nest"]]]].
>
> + level > 0 ifTrue: ["in case ran off string end" here := here + direction].
> - level > 0 ifTrue: ["in case ran off string end" here _ here + direction].
>   direction > 0
>   ifTrue: [self selectFrom: start to: here - 1]
>   ifFalse: [self selectFrom: here + 1 to: stop]!
>
> Item was changed:
>  ----- Method: TextEditor>>exchangeWith: (in category 'private') -----
>  exchangeWith: prior
>   "If the prior selection is non-overlapping and legal, exchange the text of
>   it with the current selection and leave the currently selected text selected
>   in the location of the prior selection (or leave a caret after a non-caret if it was
>   exchanged with a caret).  If both selections are carets, flash & do nothing.
>   Don't affect the paste buffer.  Undoer: itself; Redoer: Undoer."
>
>   | start stop before selection priorSelection delta altInterval |
> + start := self startIndex.
> + stop := self stopIndex - 1.
> - start _ self startIndex.
> - stop _ self stopIndex - 1.
>   ((prior first <= prior last) | (start <= stop) "Something to exchange" and:
>   [self isDisjointFrom: prior])
>   ifTrue:
> + [before := prior last < start.
> + selection := self selection.
> + priorSelection := paragraph text copyFrom: prior first to: prior last.
> - [before _ prior last < start.
> - selection _ self selection.
> - priorSelection _ paragraph text copyFrom: prior first to: prior last.
>
> + delta := before ifTrue: [0] ifFalse: [priorSelection size - selection size].
> - delta _ before ifTrue: [0] ifFalse: [priorSelection size - selection size].
>   self zapSelectionWith: priorSelection.
>   self selectFrom: prior first + delta to: prior last + delta.
>
> + delta := before ifTrue: [stop - prior last] ifFalse: [start - prior first].
> - delta _ before ifTrue: [stop - prior last] ifFalse: [start - prior first].
>   self zapSelectionWith: selection.
> + altInterval := prior first + delta to: prior last + delta.
> - altInterval _ prior first + delta to: prior last + delta.
>   self undoer: #exchangeWith: with: altInterval.
>   "If one was a caret, make it otherInterval & leave the caret after the other"
>   prior first > prior last ifTrue: [self selectAt: UndoInterval last + 1].
> + otherInterval := start > stop
> - otherInterval _ start > stop
>   ifTrue: [self selectAt: altInterval last + 1. UndoInterval]
>   ifFalse: [altInterval]]
>   ifFalse:
>   [morph flash]!
>
> Item was changed:
>  ----- Method: TextEditor>>shiftEnclose: (in category 'editing keys') -----
>  shiftEnclose: characterStream
>   "Insert or remove bracket characters around the current selection.
>   Flushes typeahead."
>
>   | char left right startIndex stopIndex oldSelection which text |
> + char := sensor keyboard.
> + char = $9 ifTrue: [ char := $( ].
> + char = $, ifTrue: [ char := $< ].
> + char = $[ ifTrue: [ char := ${ ].
> + char = $' ifTrue: [ char := $" ].
> + char asciiValue = 27 ifTrue: [ char := ${ ]. "ctrl-["
> - char _ sensor keyboard.
> - char = $9 ifTrue: [ char _ $( ].
> - char = $, ifTrue: [ char _ $< ].
> - char = $[ ifTrue: [ char _ ${ ].
> - char = $' ifTrue: [ char _ $" ].
> - char asciiValue = 27 ifTrue: [ char _ ${ ]. "ctrl-["
>
>   self closeTypeIn.
> + startIndex := self startIndex.
> + stopIndex := self stopIndex.
> + oldSelection := self selection.
> + which := '([<{"''' indexOf: char ifAbsent: [1].
> + left := '([<{"''' at: which.
> + right := ')]>}"''' at: which.
> + text := paragraph text.
> - startIndex _ self startIndex.
> - stopIndex _ self stopIndex.
> - oldSelection _ self selection.
> - which _ '([<{"''' indexOf: char ifAbsent: [1].
> - left _ '([<{"''' at: which.
> - right _ ')]>}"''' at: which.
> - text _ paragraph text.
>   ((startIndex > 1 and: [stopIndex <= text size])
>   and: [ (text at: startIndex-1) = left and: [(text at: stopIndex) = right]])
>   ifTrue: [
>   "already enclosed; strip off brackets"
>   self selectFrom: startIndex-1 to: stopIndex.
>   self replaceSelectionWith: oldSelection]
>   ifFalse: [
>   "not enclosed; enclose by matching brackets"
>   self replaceSelectionWith:
>   (Text string: (String with: left), oldSelection string, (String with: right) attributes: emphasisHere).
>   self selectFrom: startIndex+1 to: stopIndex].
>   ^true!
>
> Item was changed:
>  ----- Method: Editor>>backWord: (in category 'typing/selecting keys') -----
>  backWord: characterStream
>   "If the selection is not a caret, delete it and leave it in the backspace buffer.
>   Else if there is typeahead, delete it.
>   Else, delete the word before the caret."
>
>   | startIndex |
>   sensor keyboard.
>   characterStream isEmpty
>   ifTrue:
>   [self hasCaret
>   ifTrue: "a caret, delete at least one character"
> + [startIndex := 1 max: self markIndex - 1.
> - [startIndex _ 1 max: self markIndex - 1.
>   [startIndex > 1 and:
>   [(self string at: startIndex - 1) tokenish]]
>   whileTrue:
> + [startIndex := startIndex - 1]]
> - [startIndex _ startIndex - 1]]
>   ifFalse: "a non-caret, just delete it"
> + [startIndex := self markIndex].
> - [startIndex _ self markIndex].
>   self backTo: startIndex]
>   ifFalse:
>   [characterStream reset].
>   ^false!
>
> Item was changed:
>  ----- Method: TextEditor>>indent:fromStream:toStream: (in category 'private') -----
>  indent: delta fromStream: inStream toStream: outStream
>   "Append the contents of inStream to outStream, adding or deleting delta or -delta
>   tabs at the beginning, and after every CR except a final CR.  Do not add tabs
>   to totally empty lines, and be sure nothing but tabs are removed from lines."
>
>   | ch skip cr tab prev atEnd |
> + cr := Character cr.
> + tab := Character tab.
> - cr _ Character cr.
> - tab _ Character tab.
>   delta > 0
>   ifTrue: "shift right"
> + [prev := cr.
> + [ch := (atEnd := inStream atEnd) ifTrue: [cr] ifFalse: [inStream next].
> - [prev _ cr.
> - [ch _ (atEnd _ inStream atEnd) ifTrue: [cr] ifFalse: [inStream next].
>    (prev == cr and: [ch ~~ cr]) ifTrue:
>   [delta timesRepeat: [outStream nextPut: tab]].
>    atEnd]
>   whileFalse:
>   [outStream nextPut: ch.
> + prev := ch]]
> - prev _ ch]]
>   ifFalse: "shift left"
> + [skip := delta. "a negative number"
> - [skip _ delta. "a negative number"
>   [inStream atEnd] whileFalse:
> + [((ch := inStream next) == tab and: [skip < 0]) ifFalse:
> - [((ch _ inStream next) == tab and: [skip < 0]) ifFalse:
>   [outStream nextPut: ch].
> + skip := ch == cr ifTrue: [delta] ifFalse: [skip + 1]]]!
> - skip _ ch == cr ifTrue: [delta] ifFalse: [skip + 1]]]!
>
> Item was changed:
>  ----- Method: TextEditor>>prettyPrint: (in category 'menu messages') -----
>  prettyPrint: decorated
>   "Reformat the contents of the receiver's view (a Browser)."
>
>   | selectedClass newText |
>   model selectedMessageName ifNil: [^ morph flash].
> + selectedClass := model selectedClassOrMetaClass.
> + newText := selectedClass compilerClass new
> - selectedClass _ model selectedClassOrMetaClass.
> - newText _ selectedClass compilerClass new
>   format: self text
>   in: selectedClass
>   notifying: self
>   decorated: decorated.
>   newText ifNotNil:
>   [self deselect; selectInvisiblyFrom: 1 to: paragraph text size.
>   self replaceSelectionWith: (newText asText makeSelectorBoldIn: selectedClass).
>   self selectAt: 1]!
>
> Item was changed:
>  ----- Method: TextLine>>justifiedPadFor:font: (in category 'scanning') -----
>  justifiedPadFor: spaceIndex font: aFont
>   "Compute the width of pad for a given space in a line of justified text."
>
>   | pad |
>   internalSpaces = 0 ifTrue: [^0].
>   ^(aFont notNil and:[aFont isSubPixelPositioned])
>   ifTrue:[paddingWidth * 1.0 / internalSpaces]
>   ifFalse:[
> + pad := paddingWidth // internalSpaces.
> - pad _ paddingWidth // internalSpaces.
>   spaceIndex <= (paddingWidth \\ internalSpaces)
>   ifTrue: [pad + 1]
>   ifFalse: [pad]]
>   !
>
> Item was changed:
>  ----- Method: TextEditor>>selectedSymbol (in category 'menu messages') -----
>  selectedSymbol
>   "Return the currently selected symbol, or nil if none.  Spaces, tabs and returns are ignored"
>
>   | aString |
>   self hasCaret ifTrue: [^ nil].
> + aString := self selection string copyWithoutAll:
> - aString _ self selection string copyWithoutAll:
>   {Character space.  Character cr.  Character tab}.
>   aString size = 0 ifTrue: [^ nil].
>   Symbol hasInterned: aString  ifTrue: [:sym | ^ sym].
>
>   ^ nil!
>
> Item was changed:
>  ----- Method: TextEditor>>explainTemp: (in category 'explain') -----
>  explainTemp: string
>   "Is string the name of a temporary variable (or block argument variable)?"
>
>   | selectedClass tempNames i reply methodNode method msg |
>   (model respondsTo: #selectedMessageName) ifFalse: [^ nil].
> + (msg := model selectedMessageName) ifNil: [^nil]. "not in a message"
> + selectedClass := model selectedClassOrMetaClass.
> + tempNames := selectedClass parserClass new
> - (msg _ model selectedMessageName) ifNil: [^nil]. "not in a message"
> - selectedClass _ model selectedClassOrMetaClass.
> - tempNames _ selectedClass parserClass new
>   parseArgsAndTemps: model selectedMessage notifying: nil.
> + method := selectedClass compiledMethodAt: msg.
> + (i := tempNames findFirst: [:each | each = string]) = 0 ifTrue: [
> - method _ selectedClass compiledMethodAt: msg.
> - (i _ tempNames findFirst: [:each | each = string]) = 0 ifTrue: [
>   (method numTemps > tempNames size)
>   ifTrue:
>   ["It must be an undeclared block argument temporary"
> + methodNode := selectedClass compilerClass new
> - methodNode _ selectedClass compilerClass new
>   parse: model selectedMessage
>   in: selectedClass
>   notifying: nil.
> + tempNames := methodNode tempNames]
> - tempNames _ methodNode tempNames]
>   ifFalse: [^nil]].
> + (i := tempNames findFirst: [:each | each = string]) > 0 ifTrue: [i > method numArgs
> + ifTrue: [reply := '"is a temporary variable in this method"']
> + ifFalse: [reply := '"is an argument to this method"']].
> - (i _ tempNames findFirst: [:each | each = string]) > 0 ifTrue: [i > method numArgs
> - ifTrue: [reply _ '"is a temporary variable in this method"']
> - ifFalse: [reply _ '"is an argument to this method"']].
>   ^reply!
>
> Item was changed:
>  ----- Method: TextEditor>>undoCutCopy: (in category 'undoers') -----
>  undoCutCopy: oldPasteBuffer
>   "Undo of a cut, copy, or any edit that changed CurrentSelection.  Be sure
>   undo-copy does not lock the model.  Redoer: itself, so never isRedoing."
>
>   | recentCut |
> + recentCut := self clipboardText.
> - recentCut _ self clipboardText.
>   UndoSelection size = UndoInterval size
>   ifFalse: [self replaceSelectionWith: UndoSelection].
>   self clipboardTextPut: oldPasteBuffer.
>   self undoer: #undoCutCopy: with: recentCut!
>
> Item was changed:
>  ----- Method: TextEditor>>explainInst: (in category 'explain') -----
>  explainInst: string
>   "Is string an instance variable of this class?"
>   | classes cls |
>
>   (model respondsTo: #selectedClassOrMetaClass) ifTrue: [
> + cls := model selectedClassOrMetaClass].
> - cls _ model selectedClassOrMetaClass].
>   cls ifNil: [^ nil].  "no class known"
> + classes := (Array with: cls)
> - classes _ (Array with: cls)
>   , cls allSuperclasses.
> + classes := classes detect: [:each | (each instVarNames
> - classes _ classes detect: [:each | (each instVarNames
>   detect: [:name | name = string] ifNone: [])
>   ~~ nil] ifNone: [^nil].
> + classes := classes printString.
> - classes _ classes printString.
>   ^ '"is an instance variable of the receiver; defined in class ' , classes ,
>   '"\' withCRs , classes , ' systemNavigation browseAllAccessesTo: ''' , string , ''' from: ', classes, '.'!
>
> Item was changed:
>  ----- Method: TextEditor>>makeCapitalized: (in category 'editing keys') -----
>  makeCapitalized: characterStream
>   "Force the current selection to uppercase.  Triggered by Cmd-X."
>   | prev |
>   sensor keyboard. "flush the triggering cmd-key character"
> + prev := $-.  "not a letter"
> - prev _ $-.  "not a letter"
>   self replaceSelectionWith: (Text fromString:
>   (self selection string collect:
> + [:c | prev := prev isLetter ifTrue: [c asLowercase] ifFalse: [c asUppercase]])).
> - [:c | prev _ prev isLetter ifTrue: [c asLowercase] ifFalse: [c asUppercase]])).
>   ^ true!
>
> Item was changed:
>  ----- Method: TextEditor>>blinkPrevParen (in category 'parenblinking') -----
>  blinkPrevParen
>   | openDelimiter closeDelimiter level string here hereChar |
> + string := paragraph text string.
> + here := pointBlock stringIndex.
> + openDelimiter := sensor keyboardPeek.
> + closeDelimiter := '([{' at: (')]}' indexOf: openDelimiter).
> + level := 1.
> - string _ paragraph text string.
> - here _ pointBlock stringIndex.
> - openDelimiter _ sensor keyboardPeek.
> - closeDelimiter _ '([{' at: (')]}' indexOf: openDelimiter).
> - level _ 1.
>   [level > 0 and: [here > 2]]
>   whileTrue:
> + [hereChar := string at: (here := here - 1).
> - [hereChar _ string at: (here _ here - 1).
>   hereChar = closeDelimiter
>   ifTrue:
> + [level := level - 1.
> - [level _ level - 1.
>   level = 0
>   ifTrue: [^ self blinkParenAt: here]]
>   ifFalse:
>   [hereChar = openDelimiter
> + ifTrue: [level := level + 1]]]!
> - ifTrue: [level _ level + 1]]]!
>
> Item was changed:
>  ----- Method: TextEditor>>doneTyping (in category 'typing support') -----
>  doneTyping
> + beginTypeInBlock := nil!
> - beginTypeInBlock _ nil!
>
> Item was changed:
>  ----- Method: TextEditor>>explainChar: (in category 'explain') -----
>  explainChar: string
>   "Does string start with a special character?"
>
>   | char |
> + char := string at: 1.
> - char _ string at: 1.
>   char = $. ifTrue: [^'"Period marks the end of a Smalltalk statement.  A period in the middle of a number means a decimal point.  (The number is an instance of class Float)."'].
>   char = $' ifTrue: [^'"The characters between two single quotes are made into an instance of class String"'].
>   char = $" ifTrue: [^'"Double quotes enclose a comment.  Smalltalk ignores everything between double quotes."'].
>   char = $# ifTrue: [^'"The characters following a hash mark are made into an instance of class Symbol.  If parenthesis follow a hash mark, an instance of class Array is made.  It contains literal constants."'].
>   (char = $( or: [char = $)]) ifTrue: [^'"Expressions enclosed in parenthesis are evaluated first"'].
>   (char = $[ or: [char = $]]) ifTrue: [^'"The code inside square brackets is an unevaluated block of code.  It becomes an instance of BlockContext and is usually passed as an argument."'].
>   (char = ${ or: [char = $}]) ifTrue: [^ '"A sequence of expressions separated by periods, when enclosed in curly braces, are evaluated to yield the elements of a new Array"'].
>   (char = $< or: [char = $>]) ifTrue: [^'"<primitive: xx> means that this method is usually preformed directly by the virtual machine.  If this method is primitive, its Smalltalk code is executed only when the primitive fails."'].
>   char = $^ ifTrue: [^'"Uparrow means return from this method.  The value returned is the expression following the ^"'].
>   char = $| ifTrue: [^'"Vertical bars enclose the names of the temporary variables used in this method.  In a block, the vertical bar separates the argument names from the rest of the code."'].
>   char = $_ ifTrue: [^'"Left arrow means assignment.  The value of the expression after the left arrow is stored into the variable before it."'].
>   char = $; ifTrue: [^'"Semicolon means cascading.  The message after the semicolon is sent to the same object which received the message before the semicolon."'].
>   char = $: ifTrue: [^'"A colon at the end of a keyword means that an argument is expected to follow.  Methods which take more than one argument have selectors with more than one keyword.  (One keyword, ending with a colon, appears before each argument).', '\\' withCRs, 'A colon before a variable name just inside a block means that the block takes an agrument.  (When the block is evaluated, the argument will be assigned to the variable whose name appears after the colon)."'].
>   char = $$ ifTrue: [^'"The single character following a dollar sign is made into an instance of class Character"'].
>   char = $- ifTrue: [^'"A minus sign in front of a number means a negative number."'].
>   char = $e ifTrue: [^'"An e in the middle of a number means that the exponent follows."'].
>   char = $r ifTrue: [^'"An r in the middle of a bunch of digits is an instance of Integer expressed in a certain radix.  The digits before the r denote the base and the digits after it express a number in that base."'].
>   char = Character space ifTrue: [^'"the space Character"'].
>   char = Character tab ifTrue: [^'"the tab Character"'].
>   char = Character cr ifTrue: [^'"the carriage return Character"'].
>   ^nil!
>
> Item was changed:
>  ----- Method: TextEditor>>hiddenInfo (in category 'editing keys') -----
>  hiddenInfo
>   "In TextLinks, TextDoits, TextColor, and TextURLs, there is hidden info.  Return the entire string that was used by Cmd-6 to create this text attribute.  Usually enclosed in < >."
>
>   | attrList |
> + attrList := paragraph text attributesAt: (self pointIndex + self markIndex)//2.
> - attrList _ paragraph text attributesAt: (self pointIndex + self markIndex)//2.
>   attrList do: [:attr |
>   (attr isKindOf: TextAction) ifTrue:
>   [^ self selection asString, '<', attr info, '>']].
>   "If none of the above"
>   attrList do: [:attr |
>   attr class == TextColor ifTrue:
>   [^ self selection asString, '<', attr color printString, '>']].
>   ^ self selection asString, '[No hidden info]'!
>
> Item was changed:
>  ----- Method: TextEditor>>selectPrecedingIdentifier (in category 'new selection') -----
>  selectPrecedingIdentifier
>   "Invisibly select the identifier that ends at the end of the selection, if any."
>
>   | string sep stop tok |
> + tok := false.
> + string := paragraph text string.
> + stop := self stopIndex - 1.
> + [stop > 0 and: [(string at: stop) isSeparator]] whileTrue: [stop := stop - 1].
> + sep := stop.
> + [sep > 0 and: [(string at: sep) tokenish]] whileTrue: [tok := true. sep := sep - 1].
> - tok _ false.
> - string _ paragraph text string.
> - stop _ self stopIndex - 1.
> - [stop > 0 and: [(string at: stop) isSeparator]] whileTrue: [stop _ stop - 1].
> - sep _ stop.
> - [sep > 0 and: [(string at: sep) tokenish]] whileTrue: [tok _ true. sep _ sep - 1].
>   tok ifTrue: [self selectInvisiblyFrom: sep + 1 to: stop]!
>
> Item was changed:
>  ----- Method: TextEditor>>fileItIn (in category 'menu messages') -----
>  fileItIn
>   "Make a Stream on the text selection and fileIn it.
>   1/24/96 sw: moved here from FileController; this function can be useful from any text window that shows stuff in chunk format"
>
>   | selection |
> + selection := self selection.
> - selection _ self selection.
>   (ReadWriteStream on: selection string from: 1 to: selection size) fileIn
>  !
>
> Item was changed:
>  ----- Method: TextEditor>>changeLfToCr: (in category 'editing keys') -----
>  changeLfToCr: characterStream
>   "Replace all LFs by CRs.
>   Triggered by Cmd-U -- useful when getting code from FTP sites
>   jmv- Modified to als change crlf by cr"
>
>   | fixed |
>   sensor keyboard. "flush the triggering cmd-key character"
>
> + fixed := self selection string.
> + fixed := fixed copyReplaceAll: String crlf with: String cr.
> + fixed := fixed copyReplaceAll: String lf with: String cr.
> - fixed _ self selection string.
> - fixed _ fixed copyReplaceAll: String crlf with: String cr.
> - fixed _ fixed copyReplaceAll: String lf with: String cr.
>   self replaceSelectionWith: (Text fromString: fixed).
>   ^ true!
>
> Item was changed:
>  ----- Method: TextEditor>>correctFrom:to:with: (in category 'new selection') -----
>  correctFrom: start to: stop with: aString
>   "Make a correction in the model that the user has authorised from somewhere else in the system (such as from the compilier).  The user's selection is not changed, only corrected."
>   | wasShowing userSelection delta loc |
>   aString = '#insert period' ifTrue:
> + [loc := start.
> + [(loc := loc-1)>0 and: [(paragraph text string at: loc) isSeparator]]
> + whileTrue: [loc := loc-1].
> - [loc _ start.
> - [(loc _ loc-1)>0 and: [(paragraph text string at: loc) isSeparator]]
> - whileTrue: [loc _ loc-1].
>   ^ self correctFrom: loc+1 to: loc with: '.'].
> + (wasShowing := selectionShowing) ifTrue: [ self reverseSelection ].
> + userSelection := self selectionInterval.
> - (wasShowing _ selectionShowing) ifTrue: [ self reverseSelection ].
> - userSelection _ self selectionInterval.
>
>   self selectInvisiblyFrom: start to: stop.
>   self replaceSelectionWith: aString asText.
>
> + delta := aString size - (stop - start + 1).
> - delta _ aString size - (stop - start + 1).
>   self selectInvisiblyFrom:
>   userSelection first + (userSelection first > start ifFalse: [ 0 ] ifTrue: [ delta ])
>   to: userSelection last + (userSelection last > start ifFalse: [ 0 ] ifTrue: [ delta ]).
>   wasShowing ifTrue: [ self reverseSelection ].
>  !
>
> Item was changed:
>  ----- Method: Morph>>openModal: (in category 'polymorph') -----
>  openModal: aSystemWindow
>   "Open the given window locking the receiver until it is dismissed.
>   Answer the system window.
>   Restore the original keyboard focus when closed."
>
>   |area mySysWin keyboardFocus|
> + keyboardFocus := self activeHand keyboardFocus.
> - keyboardFocus _ self activeHand keyboardFocus.
>   mySysWin := self isSystemWindow ifTrue: [self] ifFalse: [self ownerThatIsA: SystemWindow].
>   mySysWin ifNil: [mySysWin := self].
>   mySysWin modalLockTo: aSystemWindow.
>   ( RealEstateAgent respondsTo: #reduceByFlaps: )
>   ifTrue:[
>   area := RealEstateAgent reduceByFlaps: RealEstateAgent maximumUsableArea]
>   ifFalse:[
>   area := RealEstateAgent maximumUsableArea].
>   aSystemWindow extent: aSystemWindow initialExtent.
>   aSystemWindow position = (0@0)
>   ifTrue: [aSystemWindow
>   position: self activeHand position - (aSystemWindow extent // 2)].
>   aSystemWindow
>   bounds: (aSystemWindow bounds translatedToBeWithin: area).
>   [ToolBuilder default runModal: aSystemWindow openAsIs]
>   ensure: [mySysWin modalUnlockFrom: aSystemWindow.
>   self activeHand newKeyboardFocus: keyboardFocus].
>   ^aSystemWindow!
>
> Item was changed:
>  ----- Method: TextEditor>>againOnce: (in category 'private') -----
>  againOnce: indices
>   "Find the next occurrence of FindText.  If none, answer false.
>   Append the start index of the occurrence to the stream indices, and, if
>   ChangeText is not the same object as FindText, replace the occurrence by it.
>   Note that the search is case-sensitive for replacements, otherwise not."
>
>   | where |
> + where := paragraph text findString: FindText startingAt: self stopIndex
> - where _ paragraph text findString: FindText startingAt: self stopIndex
>   caseSensitive: ((ChangeText ~~ FindText) or: [Preferences caseSensitiveFinds]).
>   where = 0 ifTrue: [^ false].
>   self deselect; selectInvisiblyFrom: where to: where + FindText size - 1.
>   ChangeText ~~ FindText ifTrue: [self zapSelectionWith: ChangeText].
>   indices nextPut: where.
>   ^ true!
>
> Item was changed:
>  ----- Method: TextEditor>>pageHeight (in category 'private') -----
>  pageHeight
>   | howManyLines visibleHeight totalHeight ratio |
> + howManyLines := paragraph numberOfLines.
> + visibleHeight := self visibleHeight.
> + totalHeight := self totalTextHeight.
> + ratio := visibleHeight / totalHeight.
> - howManyLines _ paragraph numberOfLines.
> - visibleHeight _ self visibleHeight.
> - totalHeight _ self totalTextHeight.
> - ratio _ visibleHeight / totalHeight.
>   ^(ratio * howManyLines) rounded - 2!
>
> Item was changed:
>  ----- Method: TextEditor>>againOrSame:many: (in category 'private') -----
>  againOrSame: useOldKeys many: many
>   "Subroutine of search: and again.  If useOldKeys, use same FindText and ChangeText as before.  If many is true, do it repeatedly.  Created 1/26/96 sw by adding the many argument to #againOrSame."
>
>   |  home indices wasTypedKey |
>
> + home := self selectionInterval.  "what was selected when 'again' was invoked"
> - home _ self selectionInterval.  "what was selected when 'again' was invoked"
>
>   "If new keys are to be picked..."
>   useOldKeys ifFalse: "Choose as FindText..."
> + [FindText := UndoSelection.  "... the last thing replaced."
> - [FindText _ UndoSelection.  "... the last thing replaced."
>   "If the last command was in another paragraph, ChangeText is set..."
>   paragraph == UndoParagraph ifTrue: "... else set it now as follows."
>   [UndoInterval ~= home ifTrue: [self selectInterval: UndoInterval]. "blink"
> + ChangeText := ((UndoMessage sends: #undoCutCopy:) and: [self hasSelection])
> - ChangeText _ ((UndoMessage sends: #undoCutCopy:) and: [self hasSelection])
>   ifTrue: [FindText] "== objects signal no model-locking by 'undo copy'"
>   ifFalse: [self selection]]]. "otherwise, change text is last-replaced text"
>
> + (wasTypedKey := FindText size = 0)
> - (wasTypedKey _ FindText size = 0)
>   ifTrue: "just inserted at a caret"
> + [home := self selectionInterval.
> - [home _ self selectionInterval.
>   self replaceSelectionWith: self nullText.  "delete search key..."
> + FindText := ChangeText] "... and search for it, without replacing"
> - FindText _ ChangeText] "... and search for it, without replacing"
>   ifFalse: "Show where the search will start"
>   [home last = self selectionInterval last ifFalse:
>   [self selectInterval: home]].
>
>   "Find and Change, recording start indices in the array"
> + indices := WriteStream on: (Array new: 20). "an array to store change locs"
> - indices _ WriteStream on: (Array new: 20). "an array to store change locs"
>   [(self againOnce: indices) & many] whileTrue. "<-- this does the work"
>   indices isEmpty ifTrue:  "none found"
>   [self flash.
>   wasTypedKey ifFalse: [^self]].
>
>   (many | wasTypedKey) ifFalse: "after undo, select this replacement"
> + [home := self startIndex to:
> - [home _ self startIndex to:
>   self startIndex + UndoSelection size - 1].
>
>   self undoer: #undoAgain:andReselect:typedKey: with: indices contents with: home with: wasTypedKey!
>
> Item was changed:
>  ----- Method: Editor>>previousWord: (in category 'private') -----
>  previousWord: position
>   | string index |
> + string := self string.
> + index := position.
> - string _ self string.
> - index _ position.
>   [(index between: 1 and: string size) and: [(string at: index) isAlphaNumeric not]]
> + whileTrue: [index := index - 1].
> - whileTrue: [index _ index - 1].
>   [(index between: 1 and: string size) and: [(string at: index) isAlphaNumeric]]
> + whileTrue: [index := index - 1].
> - whileTrue: [index _ index - 1].
>   ^ index + 1!
>
> Item was changed:
>  ----- Method: TextEditor>>replaceSelectionWith: (in category 'accessing') -----
>  replaceSelectionWith: aText
>   "Remember the selection text in UndoSelection.
>   Deselect, and replace the selection text by aText.
>   Remember the resulting selectionInterval in UndoInterval and PriorInterval.
>   Set up undo to use UndoReplace."
>
>   beginTypeInBlock ~~ nil ifTrue: [^self zapSelectionWith: aText]. "called from old code"
> + UndoSelection := self selection.
> - UndoSelection _ self selection.
>   self zapSelectionWith: aText.
>   self undoer: #undoReplace!
>
> Item was changed:
>  ----- Method: TextEditor>>changeEmphasis: (in category 'editing keys') -----
>  changeEmphasis: characterStream
>   "Change the emphasis of the current selection or prepare to accept characters with the change in emphasis. Emphasis change amounts to a font change.  Keeps typeahead."
>
>   "control 0..9 -> 0..9"
>
>   | keyCode attribute oldAttributes index thisSel colors extras |
>   keyCode := ('0123456789-=' indexOf: sensor keyboard ifAbsent: [1]) - 1.
>   oldAttributes := paragraph text attributesAt: self pointIndex.
>   thisSel := self selection.
>
>   "Decipher keyCodes for Command 0-9..."
>   (keyCode between: 1 and: 5)
>   ifTrue: [attribute := TextFontChange fontNumber: keyCode].
>
>   keyCode = 6
>   ifTrue: [
>   colors := #(#black #magenta #red #yellow #green #blue #cyan #white).
>   extras := self emphasisExtras.
>   index := UIManager default chooseFrom:colors , #('choose color...' ), extras
>   lines: (Array with: colors size + 1).
>   index = 0 ifTrue: [^true].
>   index <= colors size
>   ifTrue: [attribute := TextColor color: (Color perform: (colors at: index))]
>   ifFalse: [
>   index := index - colors size - 1. "Re-number!!!!!!"
>   index = 0
>   ifTrue: [attribute := self chooseColor]
>   ifFalse:[^self handleEmphasisExtra: index with: characterStream] "handle an extra"]].
>   (keyCode between: 7 and: 11)
>   ifTrue: [
>   sensor leftShiftDown
>   ifTrue: [
>   keyCode = 10 ifTrue: [attribute := TextKern kern: -1].
>   keyCode = 11 ifTrue: [attribute := TextKern kern: 1]]
>   ifFalse: [
>   attribute := TextEmphasis
>   perform: (#(#bold #italic #narrow #underlined #struckOut) at: keyCode - 6).
>   oldAttributes
>   do: [:att | (att dominates: attribute) ifTrue: [attribute turnOff]]]].
>   keyCode = 0 ifTrue: [attribute := TextEmphasis normal].
>   attribute ifNotNil: [
>   thisSel size = 0
>   ifTrue: [
>   "only change emphasisHere while typing"
>   self insertTypeAhead: characterStream.
> + emphasisHere := Text addAttribute: attribute toArray: oldAttributes ]
> - emphasisHere _ Text addAttribute: attribute toArray: oldAttributes ]
>   ifFalse: [
>   self replaceSelectionWith: (thisSel asText addAttribute: attribute) ]].
>   ^true!
>
> Item was changed:
>  ----- Method: TextEditor>>cursorEnd: (in category 'nonediting/nontyping keys') -----
>  cursorEnd: characterStream
>
>   "Private - Move cursor end of current line."
>   | string |
>   self closeTypeIn: characterStream.
> + string := paragraph text string.
> - string _ paragraph text string.
>   self
>   moveCursor:
>   [:position | Preferences wordStyleCursorMovement
>   ifTrue:[| targetLine |
> + targetLine := paragraph lines at:(paragraph lineIndexOfCharacterIndex: position).
> - targetLine _ paragraph lines at:(paragraph lineIndexOfCharacterIndex: position).
>   targetLine = paragraph lastLine
>   ifTrue:[targetLine last + 1]
>   ifFalse:[targetLine last]]
>   ifFalse:[
>   string
>   indexOf: Character cr
>   startingAt: position
>   ifAbsent:[string size + 1]]]
>   forward: true
>   specialBlock:[:dummy | string size + 1].
>   ^true!
>
> Item was changed:
>  ----- Method: TextEditor>>undo (in category 'menu messages') -----
>  undo
>   "Reset the state of the paragraph prior to the previous edit.
>   If another ParagraphEditor instance did that edit, UndoInterval is invalid;
>   just recover the contents of the undo-buffer at the start of the paragraph."
>
>   sensor flushKeyboard. "a way to flush stuck keys"
>   self closeTypeIn.
>
>   UndoParagraph == paragraph ifFalse: "Can't undo another paragraph's edit"
> + [UndoMessage := Message selector: #undoReplace.
> + UndoInterval := 1 to: 0.
> + Undone := true].
> - [UndoMessage _ Message selector: #undoReplace.
> - UndoInterval _ 1 to: 0.
> - Undone _ true].
>   UndoInterval ~= self selectionInterval ifTrue: "blink the actual target"
>   [self selectInterval: UndoInterval; deselect].
>
>   "Leave a signal of which phase is in progress"
> + UndoParagraph := Undone ifTrue: [#redoing] ifFalse: [#undoing].
> - UndoParagraph _ Undone ifTrue: [#redoing] ifFalse: [#undoing].
>   UndoMessage sentTo: self.
> + UndoParagraph := paragraph!
> - UndoParagraph _ paragraph!
>
> Item was changed:
>  ----- Method: TextEditor>>undoMessage:forRedo: (in category 'undo support') -----
>  undoMessage: aMessage forRedo: aBoolean
>   "Call this from an undoer/redoer to set up UndoMessage as the
>   corresponding redoer/undoer.  Also set up UndoParagraph, as well
>   as the state variable Undone.  It is assumed that UndoInterval has been
>   established (generally by zapSelectionWith:) and that UndoSelection has been
>   saved (generally by replaceSelectionWith: or replace:With:and:)."
>
> + self isDoing ifTrue: [UndoParagraph := paragraph].
> + UndoMessage := aMessage.
> + Undone := aBoolean!
> - self isDoing ifTrue: [UndoParagraph _ paragraph].
> - UndoMessage _ aMessage.
> - Undone _ aBoolean!
>
> Item was changed:
>  ----- Method: TextEditor>>inspectIt (in category 'do-its') -----
>  inspectIt
>   "1/13/96 sw: minor fixup"
>   | result |
> + result := self evaluateSelection.
> - result _ self evaluateSelection.
>   ((result isKindOf: FakeClassPool) or: [result == #failedDoit])
>   ifTrue: [morph flash]
>   ifFalse: [result inspect]!
>
> Item was changed:
>  ----- Method: Editor>>initialize (in category 'initialize-release') -----
>  initialize
>   "Initialize the state of the receiver. Subclasses should include 'super
>   initialize' when redefining this message to insure proper initialization."
>
> + sensor := InputSensor default!
> - sensor _ InputSensor default!
>
> Item was changed:
>  ----- Method: TextEditor>>replace:with:and: (in category 'accessing') -----
>  replace: xoldInterval with: newText and: selectingBlock
>   "Replace the text in oldInterval with newText and execute selectingBlock to establish the new selection.  Create an undoAndReselect:redoAndReselect: undoer to allow perfect undoing."
>
>   | undoInterval |
> + undoInterval := self selectionInterval.
> - undoInterval _ self selectionInterval.
>   undoInterval = xoldInterval ifFalse: [self selectInterval: xoldInterval].
> + UndoSelection := self selection.
> - UndoSelection _ self selection.
>   self zapSelectionWith: newText.
>   selectingBlock value.
> + otherInterval := self selectionInterval.
> - otherInterval _ self selectionInterval.
>   self undoer: #undoAndReselect:redoAndReselect: with: undoInterval with: otherInterval!
>
> Item was changed:
>  ----- Method: TextEditor>>stateArrayPut: (in category 'initialize-release') -----
>  stateArrayPut: stateArray
>   | sel |
> + ChangeText := stateArray at: 1.
> + FindText := stateArray at: 2.
> + UndoInterval := stateArray at: 3.
> + UndoMessage := stateArray at: 4.
> + UndoParagraph := stateArray at: 5.
> + UndoSelection := stateArray at: 6.
> + Undone := stateArray at: 7.
> + sel := stateArray at: 8.
> - ChangeText _ stateArray at: 1.
> - FindText _ stateArray at: 2.
> - UndoInterval _ stateArray at: 3.
> - UndoMessage _ stateArray at: 4.
> - UndoParagraph _ stateArray at: 5.
> - UndoSelection _ stateArray at: 6.
> - Undone _ stateArray at: 7.
> - sel _ stateArray at: 8.
>   self selectFrom: sel first to: sel last.
> + beginTypeInBlock := stateArray at: 9.
> + emphasisHere := stateArray at: 10!
> - beginTypeInBlock _ stateArray at: 9.
> - emphasisHere _ stateArray at: 10!
>
> Item was changed:
>  ----- Method: TextEditor>>copySelection (in category 'menu messages') -----
>  copySelection
>   "Copy the current selection and store it in the paste buffer, unless a caret.  Undoer & Redoer: undoCutCopy"
>
>   self lineSelectAndEmptyCheck: [^ self].
>
>   "Simulate 'substitute: self selection' without locking the controller"
> + UndoSelection := self selection.
> - UndoSelection _ self selection.
>   self undoer: #undoCutCopy: with: self clipboardText.
> + UndoInterval := self selectionInterval.
> - UndoInterval _ self selectionInterval.
>   self clipboardTextPut: UndoSelection!
>
> Item was added:
> + ----- Method: TextEditor>>explainDelimitor: (in category 'explain') -----
> + explainDelimitor: string
> + "Is string enclosed in delimitors?"
> +
> + | str |
> + (string at: 1) isLetter ifTrue: [^nil].  "only special chars"
> + (string first = string last) ifTrue:
> + [^ self explainChar: (String with: string first)]
> + ifFalse:
> + [(string first = $( and: [string last = $)]) ifTrue:
> + [^ self explainChar: (String with: string first)].
> + (string first = $[ and: [string last = $]]) ifTrue:
> + [^ self explainChar: (String with: string first)].
> + (string first = ${ and: [string last = $}]) ifTrue:
> + [^ self explainChar: (String with: string first)].
> + (string first = $< and: [string last = $>]) ifTrue:
> + [^ self explainChar: (String with: string first)].
> + (string first = $# and: [string last = $)]) ifTrue:
> + [^'"An instance of class Array.  The Numbers, Characters, or Symbols between the parenthesis are the elements of the Array."'].
> + string first = $# ifTrue:
> + [^'"An instance of class Symbol."'].
> + (string first = $$ and: [string size = 2]) ifTrue:
> + [^'"An instance of class Character.  This one is the character ', (String with: string last), '."'].
> + (string first = $:) ifTrue:
> + [str := string allButFirst.
> + (self explainTemp: str) ~~ nil ifTrue:
> + [^'"An argument to this block will be bound to the temporary variable ',
> + str, '."']]].
> + ^ nil!
>
> Item was changed:
>  ----- Method: TextEditor>>mouseUp: (in category 'events') -----
>  mouseUp: evt
>   "An attempt to break up the old processRedButton code into threee phases"
>   oldInterval ifNil: [^ self].  "Patched during clickAt: repair"
>   (self hasCaret
>   and: [oldInterval = self selectionInterval])
>   ifTrue: [self selectWord].
>   self setEmphasisHere.
>   (self isDisjointFrom: oldInterval) ifTrue:
> + [otherInterval := oldInterval].
> - [otherInterval _ oldInterval].
>   self storeSelectionInParagraph!
>
> Item was changed:
>  ----- Method: TextEditor>>enclose: (in category 'editing keys') -----
>  enclose: characterStream
>   "Insert or remove bracket characters around the current selection.
>   Flushes typeahead."
>
>   | char left right startIndex stopIndex oldSelection which text |
> + char := sensor keyboard.
> - char _ sensor keyboard.
>   self closeTypeIn.
> + startIndex := self startIndex.
> + stopIndex := self stopIndex.
> + oldSelection := self selection.
> + which := '([<{"''' indexOf: char ifAbsent: [ ^true ].
> + left := '([<{"''' at: which.
> + right := ')]>}"''' at: which.
> + text := paragraph text.
> - startIndex _ self startIndex.
> - stopIndex _ self stopIndex.
> - oldSelection _ self selection.
> - which _ '([<{"''' indexOf: char ifAbsent: [ ^true ].
> - left _ '([<{"''' at: which.
> - right _ ')]>}"''' at: which.
> - text _ paragraph text.
>   ((startIndex > 1 and: [stopIndex <= text size])
>   and: [ (text at: startIndex-1) = left and: [(text at: stopIndex) = right]])
>   ifTrue: [
>   "already enclosed; strip off brackets"
>   self selectFrom: startIndex-1 to: stopIndex.
>   self replaceSelectionWith: oldSelection]
>   ifFalse: [
>   "not enclosed; enclose by matching brackets"
>   self replaceSelectionWith:
>   (Text string: (String with: left), oldSelection string, (String with: right) attributes: emphasisHere).
>   self selectFrom: startIndex+1 to: stopIndex].
>   ^true!
>
> Item was changed:
>  ----- Method: TextEditor>>debugIt (in category 'do-its') -----
>  debugIt
>
>   | method receiver context |
>   (model respondsTo: #doItReceiver)
>   ifTrue:
>   [FakeClassPool adopt: model selectedClass.
> + receiver := model doItReceiver.
> + context := model doItContext]
> - receiver _ model doItReceiver.
> - context _ model doItContext]
>   ifFalse:
> + [receiver := context := nil].
> - [receiver _ context _ nil].
>   self lineSelectAndEmptyCheck: [^self].
> + method := self compileSelectionFor: receiver in: context.
> - method _ self compileSelectionFor: receiver in: context.
>   method notNil ifTrue:
>   [self debug: method receiver: receiver in: context].
>   FakeClassPool adopt: nil!
>
> Item was changed:
>  ----- Method: TextEditor>>setAlignment: (in category 'menu messages') -----
>  setAlignment: aSymbol
>   | attr interval |
> + attr := TextAlignment perform: aSymbol.
> + interval := self encompassLine: self selectionInterval.
> - attr _ TextAlignment perform: aSymbol.
> - interval _ self encompassLine: self selectionInterval.
>   paragraph
>   replaceFrom: interval first
>   to: interval last
>   with: ((paragraph text copyFrom: interval first to: interval last) addAttribute: attr)!
>
> Item was changed:
>  ----- Method: TextEditor>>setSearchString: (in category 'nonediting/nontyping keys') -----
>  setSearchString: characterStream
>   "Establish the current selection as the current search string."
>
>   | aString |
>   self closeTypeIn: characterStream.
>   sensor keyboard.
>   self lineSelectAndEmptyCheck: [^ true].
> + aString :=  self selection string.
> - aString _  self selection string.
>   aString size = 0
>   ifTrue:
>   [self flash]
>   ifFalse:
>   [self setSearch: aString].
>   ^ true!
>
> Item was changed:
>  ----- Method: TextEditor>>resetState (in category 'initialize-release') -----
>  resetState
>   "Establish the initial conditions for editing the paragraph: place caret
>   before first character, set the emphasis to that of the first character,
>   and save the paragraph for purposes of canceling."
>
> + markBlock := paragraph defaultCharacterBlock.
> - markBlock _ paragraph defaultCharacterBlock.
>   self pointBlock: markBlock copy.
> + beginTypeInBlock := nil.
> + UndoInterval := otherInterval := 1 to: 0.
> - beginTypeInBlock _ nil.
> - UndoInterval _ otherInterval _ 1 to: 0.
>   self setEmphasisHere.
> + selectionShowing := false!
> - selectionShowing _ false!
>
> Item was changed:
>  ----- Method: TextEditor>>backTo: (in category 'typing support') -----
>  backTo: startIndex
>   "During typing, backspace to startIndex.  Deleted characters fall into three
>   clusters, from left to right in the text: (1) preexisting characters that were
>   backed over; (2) newly typed characters that were backed over (excluding
>   typeahead, which never even appears); (3) preexisting characters that
>   were highlighted before typing began.  If typing has not yet been opened,
>   open it and watch for the first and third cluster.  If typing has been opened,
>   watch for the first and second cluster.  Save characters from the first and third
>   cluster in UndoSelection.  Tally characters from the first cluster in UndoMessage's parameter.
>   Delete all the clusters.  Do not alter Undoer or UndoInterval (except via
>   openTypeIn).  The code is shorter than the comment."
>
>   | saveLimit newBackovers |
> + saveLimit := beginTypeInBlock
> + ifNil: [self openTypeIn. UndoSelection := self nullText. self stopIndex]
> - saveLimit _ beginTypeInBlock
> - ifNil: [self openTypeIn. UndoSelection _ self nullText. self stopIndex]
>   ifNotNil: [self startOfTyping].
>   self markIndex: startIndex.
>   startIndex < saveLimit ifTrue: [
> + newBackovers := self startOfTyping - startIndex.
> + beginTypeInBlock := self startIndex.
> - newBackovers _ self startOfTyping - startIndex.
> - beginTypeInBlock _ self startIndex.
>   UndoSelection replaceFrom: 1 to: 0 with:
>   (paragraph text copyFrom: startIndex to: saveLimit - 1).
>   UndoMessage argument: (UndoMessage argument ifNil: [1]) + newBackovers].
>   self zapSelectionWith: self nullText.
>   self unselect!
>
> Item was changed:
>  ----- Method: Editor>>sensor: (in category 'private') -----
>  sensor: aSensor
>   "Set the receiver's sensor to aSensor."
>
> + sensor := aSensor!
> - sensor _ aSensor!
>
> Item was changed:
>  ----- Method: PasteUpMorph>>modalLockTo: (in category 'polymorph') -----
>  modalLockTo: aSystemWindow
>   "Don't lock the world!! Lock the submorphs.
>   The modal window gets opened afterwards so is OK."
>
>   |lockStates|
> + lockStates := IdentityDictionary new.
> - lockStates _ IdentityDictionary new.
>   self submorphsDo: [:m |
>   lockStates at: m put: m isLocked.
>   m lock].
>   self
>   setProperty: #submorphLockStates
>   toValue: lockStates!
>
> Item was changed:
>  ----- Method: TextEditor>>noUndoer (in category 'undo support') -----
>  noUndoer
>   "The Undoer to use when the command can not be undone.  Checked for
>   specially by readKeyboard."
>
> + UndoMessage := Message selector: #noUndoer!
> - UndoMessage _ Message selector: #noUndoer!
>
> Item was changed:
>  ----- Method: TextEditor>>explainNumber: (in category 'explain') -----
>  explainNumber: string
>   "Is string a Number?"
>
>   | strm c |
> + (c := string at: 1) isDigit ifFalse: [(c = $- and: [string size > 1 and: [(string at: 2) isDigit]])
> - (c _ string at: 1) isDigit ifFalse: [(c = $- and: [string size > 1 and: [(string at: 2) isDigit]])
>   ifFalse: [^nil]].
> + strm := ReadStream on: string.
> + c := Number readFrom: strm.
> - strm _ ReadStream on: string.
> - c _ Number readFrom: strm.
>   strm atEnd ifFalse: [^nil].
>   c printString = string
>   ifTrue: [^'"' , string , ' is a ' , c class name , '"']
>   ifFalse: [^'"' , string , ' (= ' , c printString , ') is a ' , c class name , '"']!
>
> Item was changed:
>  ----- Method: TextEditor>>sameColumn:newLine:forward: (in category 'private') -----
>  sameColumn: start newLine: lineBlock forward: isForward
>   "Private - Compute the index in my text
>   with the line number derived from lineBlock,"
>   " a one argument block accepting the old line number.
>   The position inside the line will be preserved as good as possible"
>   "The boolean isForward is used in the border case to determine if
>   we should move to the beginning or the end of the line."
>   | wordStyle column currentLine offsetAtTargetLine targetEOL lines numberOfLines currentLineNumber targetLineNumber |
> + wordStyle := Preferences wordStyleCursorMovement.
> - wordStyle _ Preferences wordStyleCursorMovement.
>   wordStyle
>   ifTrue: [
> + lines := paragraph lines.
> - lines _ paragraph lines.
>   numberOfLines := paragraph numberOfLines.
> + currentLineNumber  := paragraph lineIndexOfCharacterIndex: start.
> + currentLine := lines at: currentLineNumber]
> - currentLineNumber  _ paragraph lineIndexOfCharacterIndex: start.
> - currentLine _ lines at: currentLineNumber]
>   ifFalse: [
> + lines := self lines.
> - lines _ self lines.
>   numberOfLines := lines size.
> + currentLine := lines
> - currentLine _ lines
>   detect:[:lineInterval | lineInterval last >= start]
>   ifNone:[lines last].
> + currentLineNumber := currentLine second].
> + column := start - currentLine first.
> + targetLineNumber := ((lineBlock value: currentLineNumber) max: 1) min: numberOfLines.
> + offsetAtTargetLine := (lines at: targetLineNumber) first.
> + targetEOL := (lines at: targetLineNumber) last + (targetLineNumber = numberOfLines ifTrue:[1]ifFalse:[0]).
> - currentLineNumber _ currentLine second].
> - column _ start - currentLine first.
> - targetLineNumber _ ((lineBlock value: currentLineNumber) max: 1) min: numberOfLines.
> - offsetAtTargetLine _ (lines at: targetLineNumber) first.
> - targetEOL _ (lines at: targetLineNumber) last + (targetLineNumber = numberOfLines ifTrue:[1]ifFalse:[0]).
>   targetLineNumber = currentLineNumber
>   "No movement or movement failed. Move to beginning or end of line."
>   ifTrue:[^isForward
>   ifTrue:[targetEOL]
>   ifFalse:[offsetAtTargetLine]].
>   ^offsetAtTargetLine + column min: targetEOL.!
>
> Item was changed:
>  ----- Method: Editor>>moveCursor:forward:specialBlock: (in category 'private') -----
>  moveCursor: directionBlock forward: forward specialBlock: specialBlock
>   "Private - Move cursor.
>   directionBlock is a one argument Block that computes the new Position from a given one.
>   specialBlock is a one argumentBlock that computes the new position from a given one under the alternate semantics.
>   Note that directionBlock always is evaluated first."
>   | shift indices newPosition |
> + shift := sensor leftShiftDown.
> + indices := self setIndices: shift forward: forward.
> + newPosition := directionBlock value: (indices at: #moving).
> - shift _ sensor leftShiftDown.
> - indices _ self setIndices: shift forward: forward.
> - newPosition _ directionBlock value: (indices at: #moving).
>   (sensor commandKeyPressed or:[sensor controlKeyPressed])
> + ifTrue: [newPosition := specialBlock value: newPosition].
> - ifTrue: [newPosition _ specialBlock value: newPosition].
>   sensor keyboard.
>   shift
>   ifTrue: [self selectMark: (indices at: #fixed) point: newPosition - 1]
>   ifFalse: [self selectAt: newPosition]!
>
> Item was changed:
>  ----- Method: TextEditor>>explainCtxt: (in category 'explain') -----
>  explainCtxt: symbol
>   "Is symbol a context variable?"
>
>   | reply classes text cls |
> + symbol = #nil ifTrue: [reply := '"is a constant.  It is the only instance of class UndefinedObject.  nil is the initial value of all variables."'].
> + symbol = #true ifTrue: [reply := '"is a constant.  It is the only instance of class True and is the receiver of many control messages."'].
> + symbol = #false ifTrue: [reply := '"is a constant.  It is the only instance of class False and is the receiver of many control messages."'].
> + symbol = #thisContext ifTrue: [reply := '"is a context variable.  Its value is always the MethodContext which is executing this method."'].
> - symbol = #nil ifTrue: [reply _ '"is a constant.  It is the only instance of class UndefinedObject.  nil is the initial value of all variables."'].
> - symbol = #true ifTrue: [reply _ '"is a constant.  It is the only instance of class True and is the receiver of many control messages."'].
> - symbol = #false ifTrue: [reply _ '"is a constant.  It is the only instance of class False and is the receiver of many control messages."'].
> - symbol = #thisContext ifTrue: [reply _ '"is a context variable.  Its value is always the MethodContext which is executing this method."'].
>   (model respondsTo: #selectedClassOrMetaClass) ifTrue: [
> + cls := model selectedClassOrMetaClass].
> - cls _ model selectedClassOrMetaClass].
>   cls ifNil: [^ reply].  "no class known"
>   symbol = #self ifTrue:
> + [classes := cls withAllSubclasses.
> - [classes _ cls withAllSubclasses.
>   classes size > 12
> + ifTrue: [text := cls printString , ' or a subclass']
> - ifTrue: [text _ cls printString , ' or a subclass']
>   ifFalse:
> + [classes := classes printString.
> + text := 'one of these classes' , (classes copyFrom: 4 to: classes size)].
> + reply := '"is the receiver of this message; an instance of ' , text , '"'].
> + symbol = #super ifTrue: [reply := '"is just like self.  Messages to super are looked up in the superclass (' , cls superclass printString , ')"'].
> - [classes _ classes printString.
> - text _ 'one of these classes' , (classes copyFrom: 4 to: classes size)].
> - reply _ '"is the receiver of this message; an instance of ' , text , '"'].
> - symbol = #super ifTrue: [reply _ '"is just like self.  Messages to super are looked up in the superclass (' , cls superclass printString , ')"'].
>   ^reply!
>
> Item was changed:
>  ----- Method: TextEditor>>encompassLine: (in category 'new selection') -----
>  encompassLine: anInterval
>   "Return an interval that encompasses the entire line"
>   | string left right |
> + string := paragraph text string.
> + left := (string lastIndexOf: Character cr startingAt: anInterval first - 1 ifAbsent:[0]) + 1.
> + right := (string indexOf: Character cr startingAt: anInterval last + 1 ifAbsent: [string size + 1]) - 1.
> - string _ paragraph text string.
> - left _ (string lastIndexOf: Character cr startingAt: anInterval first - 1 ifAbsent:[0]) + 1.
> - right _ (string indexOf: Character cr startingAt: anInterval last + 1 ifAbsent: [string size + 1]) - 1.
>   ^left to: right!
>
> Item was changed:
>  ----- Method: TextEditor>>browseClassFromIt (in category 'menu messages') -----
>  browseClassFromIt
>   "Launch a hierarchy browser for the class indicated by the current selection.  If multiple classes matching the selection exist, let the user choose among them."
>
>   | aClass |
>   self lineSelectAndEmptyCheck: [^ self].
>
> + aClass := Utilities classFromPattern: (self selection string copyWithout: Character cr) withCaption: 'choose a class to browse...'.
> - aClass _ Utilities classFromPattern: (self selection string copyWithout: Character cr) withCaption: 'choose a class to browse...'.
>   aClass ifNil: [^ morph flash].
>
>   Utilities spawnHierarchyForClass: aClass selector: nil!
>
> Item was changed:
>  ----- Method: Editor>>backspace: (in category 'typing/selecting keys') -----
>  backspace: characterStream
>   "Backspace over the last character."
>
>   | startIndex |
>   sensor leftShiftDown ifTrue: [^ self backWord: characterStream].
>   characterStream isEmpty
>   ifTrue:
> + [startIndex := self markIndex +
> - [startIndex _ self markIndex +
>   (self hasCaret ifTrue: [0] ifFalse: [1]).
>   [sensor keyboardPressed and:
>   [sensor keyboardPeek asciiValue = 8]] whileTrue: [
>   "process multiple backspaces"
>   sensor keyboard.
> + startIndex := 1 max: startIndex - 1.
> - startIndex _ 1 max: startIndex - 1.
>   ].
>   self backTo: startIndex]
>   ifFalse:
>   [sensor keyboard.
>   characterStream skip: -1].
>   ^false!
>
> Item was changed:
>  ----- Method: TextEditor>>selectCurrentTypeIn: (in category 'nonediting/nontyping keys') -----
>  selectCurrentTypeIn: characterStream
>   "Select what would be replaced by an undo (e.g., the last typeIn)."
>
>   | prior |
>
>   self closeTypeIn: characterStream.
> + prior := otherInterval.
> - prior _ otherInterval.
>   sensor keyboard. "flush character"
>   self closeTypeIn: characterStream.
>   self selectInterval: UndoInterval.
> + otherInterval := prior.
> - otherInterval _ prior.
>   ^ true!
>
> Item was changed:
>  ----- Method: TextEditor>>closeTypeIn (in category 'typing support') -----
>  closeTypeIn
>   "See comment in openTypeIn.  It is important to call closeTypeIn before executing
>   any non-typing key, making a new selection, etc.  It is called automatically for
>   menu commands.
>   Typing commands can call 'closeTypeIn: aCharacterStream' instead of this to
>   save typeahead.  Undoer & Redoer: undoAndReselect:redoAndReselect:."
>
>   | begin stop |
>   beginTypeInBlock == nil ifFalse: [
>   (UndoMessage sends: #noUndoer) ifTrue: "should always be true, but just in case..."
> + [begin := self startOfTyping.
> + stop := self stopIndex.
> - [begin _ self startOfTyping.
> - stop _ self stopIndex.
>   self undoer: #undoAndReselect:redoAndReselect:
>   with: (begin + UndoMessage argument to: begin + UndoSelection size - 1)
>   with: (stop to: stop - 1).
> + UndoInterval := begin to: stop - 1].
> + beginTypeInBlock := nil]!
> - UndoInterval _ begin to: stop - 1].
> - beginTypeInBlock _ nil]!
>
> Item was changed:
>  ----- Method: TextEditor>>model: (in category 'model access') -----
>  model: aModel
>   "Controller|model: and Controller|view: are sent by View|controller: in
>   order to coordinate the links between the model, view, and controller. In
>   ordinary usage, the receiver is created and passed as the parameter to
>   View|controller: so that the receiver's model and view links can be set
>   up by the view."
>
> + model := aModel!
> - model _ aModel!
>
> Item was changed:
>  ----- Method: TextEditor>>cursorHome: (in category 'nonediting/nontyping keys') -----
>  cursorHome: characterStream
>
>   "Private - Move cursor from position in current line to beginning of
>   current line. If control key is pressed put cursor at beginning of text"
>
>   | string |
>
> + string := paragraph text string.
> - string _ paragraph text string.
>   self
>   moveCursor: [ :position | Preferences wordStyleCursorMovement
>   ifTrue:[
>   (paragraph lines at:(paragraph lineIndexOfCharacterIndex: position)) first]
>   ifFalse:[
>   (string
>   lastIndexOf: Character cr
>   startingAt: position - 1
>   ifAbsent:[0]) + 1]]
>   forward: false
>   specialBlock: [:dummy | 1].
>   ^true!
>
> Item was changed:
>  ----- Method: TextEditor>>forwardDelete: (in category 'typing/selecting keys') -----
>  forwardDelete: characterStream
>   "Delete forward over the next character.
>    Make Undo work on the whole type-in, not just the one char.
>   wod 11/3/1998: If there was a selection use #zapSelectionWith: rather than #backspace: which was 'one off' in deleting the selection. Handling of things like undo or typeIn area were not fully considered."
>   | startIndex usel upara uinterval ind stopIndex |
> + startIndex := self markIndex.
> - startIndex _ self markIndex.
>   startIndex > paragraph text size ifTrue:
>   [sensor keyboard.
>   ^ false].
>   self hasSelection ifTrue:
>   ["there was a selection"
>   sensor keyboard.
>   self zapSelectionWith: self nullText.
>   ^ false].
>   "Null selection - do the delete forward"
>   beginTypeInBlock == nil "no previous typing.  openTypeIn"
> + ifTrue: [self openTypeIn. UndoSelection := self nullText].
> + uinterval := UndoInterval deepCopy.
> + upara := UndoParagraph deepCopy.
> - ifTrue: [self openTypeIn. UndoSelection _ self nullText].
> - uinterval _ UndoInterval deepCopy.
> - upara _ UndoParagraph deepCopy.
>   stopIndex := startIndex.
>   (sensor keyboard asciiValue = 127 and: [sensor leftShiftDown])
>   ifTrue: [stopIndex := (self nextWord: stopIndex) - 1].
>   self selectFrom: startIndex to: stopIndex.
>   self replaceSelectionWith: self nullText.
>   self selectFrom: startIndex to: startIndex-1.
> + UndoParagraph := upara.  UndoInterval := uinterval.
> - UndoParagraph _ upara.  UndoInterval _ uinterval.
>   UndoMessage selector == #noUndoer ifTrue: [
>   (UndoSelection isText) ifTrue: [
> + usel := UndoSelection.
> + ind := startIndex. "UndoInterval startIndex"
> - usel _ UndoSelection.
> - ind _ startIndex. "UndoInterval startIndex"
>   usel replaceFrom: usel size + 1 to: usel size with:
>   (UndoParagraph text copyFrom: ind to: ind).
>   UndoParagraph text replaceFrom: ind to: ind with:
>  self nullText]].
>   ^false!
>
> Item was changed:
>  ----- Method: Editor>>nextWord: (in category 'private') -----
>  nextWord: position
>   | string index |
> + string := self string.
> + index := position.
> - string _ self string.
> - index _ position.
>   [(index between: 1 and: string size) and: [(string at: index) isAlphaNumeric]]
> + whileTrue: [index := index + 1].
> - whileTrue: [index _ index + 1].
>   [(index between: 1 and: string size) and: [(string at: index) isAlphaNumeric not]]
> + whileTrue: [index := index + 1].
> - whileTrue: [index _ index + 1].
>   ^ index!
>
> Item was changed:
>  ----- Method: Editor>>setIndices:forward: (in category 'private') -----
>  setIndices: shiftPressed forward: forward
>   "Little helper method that sets the moving and fixed indices according to some flags."
>   | indices |
> + indices := Dictionary new.
> - indices _ Dictionary new.
>   (shiftPressed and:[self class selectionsMayShrink])
>   ifTrue: [
>   indices at: #moving put: self pointIndex.
>   indices at: #fixed put: self markIndex
>   ] ifFalse: [
>   forward
>   ifTrue:[
>   indices at: #moving put: self stopIndex.
>   indices at: #fixed put: self startIndex.
>   ] ifFalse: [
>   indices at: #moving put: self startIndex.
>   indices at: #fixed put: self stopIndex.
>   ]
>   ].
>   ^indices!
>
> Item was changed:
>  ----- Method: TextEditor>>argAdvance: (in category 'typing/selecting keys') -----
>  argAdvance: characterStream
>   "Invoked by Ctrl-a.  Useful after Ctrl-q.
>   Search forward from the end of the selection for a colon followed by
>   a space.  Place the caret after the space.  If none are found, place the
>   caret at the end of the text.  Does not affect the undoability of the
>   previous command."
>
>   | start |
>   sensor keyboard. "flush character"
>   self closeTypeIn: characterStream.
> + start := paragraph text findString: ': ' startingAt: self stopIndex.
> + start = 0 ifTrue: [start := paragraph text size + 1].
> - start _ paragraph text findString: ': ' startingAt: self stopIndex.
> - start = 0 ifTrue: [start _ paragraph text size + 1].
>   self selectAt: start + 2.
>   ^true!
>
> Item was changed:
>  ----- Method: TextEditor class>>initializeShiftedYellowButtonMenu (in category 'keyboard shortcut tables') -----
>  initializeShiftedYellowButtonMenu
>   "Initialize the yellow button pop-up menu and corresponding messages."
>
>   "TextEditor initialize"
>   "
>   shiftedYellowButtonMenu := {
>   {'set font... (k)' translated. #offerFontMenu}.
>   {'set style... (K)' translated. #changeStyle}.
>   {'set alignment...' translated. #chooseAlignment}.
>   #-.
>   {'more...' translated. #yellowButtonActivity}.
>   }
>   "
> + shiftedYellowButtonMenu := yellowButtonMenu!
> - shiftedYellowButtonMenu _ yellowButtonMenu!
>
> Item was changed:
>  ----- Method: SmalltalkEditor>>handleEmphasisExtra:with: (in category 'editing keys') -----
>  handleEmphasisExtra: index with: characterStream
>   "Handle an extra emphasis menu item"
>   | action attribute thisSel |
>   action := {
>   [attribute := TextDoIt new.
>   thisSel := attribute analyze: self selection asString].
>   [attribute := TextPrintIt new.
>   thisSel := attribute analyze: self selection asString].
>   [attribute := TextLink new.
>   thisSel := attribute analyze: self selection asString with: 'Comment'].
>   [attribute := TextLink new.
>   thisSel := attribute analyze: self selection asString with: 'Definition'].
>   [attribute := TextLink new.
>   thisSel := attribute analyze: self selection asString with: 'Hierarchy'].
>   [attribute := TextLink new.
>   thisSel := attribute analyze: self selection asString].
>   [attribute := TextURL new.
>   thisSel := attribute analyze: self selection asString].
>   ["Edit hidden info"
>   thisSel := self hiddenInfo. "includes selection"
>   attribute := TextEmphasis normal].
>   ["Copy hidden info"
>   self copyHiddenInfo.
>   ^true]. "no other action"
>   } at: index.
>   action value.
>
>   thisSel ifNil: [^true]. "Could not figure out what to link to"
>
>   attribute ifNotNil: [
>   thisSel ifEmpty:[ | oldAttributes |
>   "only change emphasisHere while typing"
>   oldAttributes := paragraph text attributesAt: self pointIndex.
>   self insertTypeAhead: characterStream.
> + emphasisHere := Text addAttribute: attribute toArray: oldAttributes.
> - emphasisHere _ Text addAttribute: attribute toArray: oldAttributes.
>   ] ifNotEmpty: [
>   self replaceSelectionWith: (thisSel asText addAttribute: attribute).
>   ]
>   ].
>   ^true!
>
> Item was changed:
>  ----- Method: TextEditor>>nextTokenFrom:direction: (in category 'new selection') -----
>  nextTokenFrom: start direction: dir
>   "simple token-finder for compiler automated corrections"
>   | loc str |
> + loc := start + dir.
> + str := paragraph text string.
> - loc _ start + dir.
> - str _ paragraph text string.
>   [(loc between: 1 and: str size) and: [(str at: loc) isSeparator]]
> + whileTrue: [loc := loc + dir].
> - whileTrue: [loc _ loc + dir].
>   ^ loc!
>
> Item was changed:
>  ----- Method: TextEditor>>dispatchOnCharacter:with: (in category 'typing support') -----
>  dispatchOnCharacter: char with: typeAheadStream
>   "Carry out the action associated with this character, if any.
>   Type-ahead is passed so some routines can flush or use it."
>
>   | honorCommandKeys |
>   ((char == Character cr) and: [morph acceptOnCR])
>   ifTrue: [
>   sensor keyboard.  "Gobble cr -- probably unnecessary."
>   self closeTypeIn.
>   ^ true].
>
>   self clearParens.
>
>   char asciiValue = 13 ifTrue: [
>   sensor controlKeyPressed ifTrue: [
>   ^ self normalCharacter: typeAheadStream ].
>   sensor leftShiftDown ifTrue: [
>   ^ self lf: typeAheadStream ].
>   sensor commandKeyPressed ifTrue: [
>   ^ self crlf: typeAheadStream ].
>   ^ self crWithIndent: typeAheadStream ].
>
> + ((honorCommandKeys := Preferences cmdKeysInText) and: [char = Character enter])
> - ((honorCommandKeys _ Preferences cmdKeysInText) and: [char = Character enter])
>   ifTrue: [^ self dispatchOnEnterWith: typeAheadStream].
>
>   "Special keys overwrite crtl+key combinations - at least on Windows. To resolve this
>   conflict, assume that keys other than cursor keys aren't used together with Crtl."
>   ((self class specialShiftCmdKeys includes: char asciiValue) and: [char asciiValue < 27])
>   ifTrue: [^ sensor controlKeyPressed
>   ifTrue: [self perform: (self class shiftCmdActions at: char asciiValue + 1) with: typeAheadStream]
>   ifFalse: [self perform: (self class cmdActions at: char asciiValue + 1) with: typeAheadStream]].
>
>   "backspace, and escape keys (ascii 8 and 27) are command keys"
>   ((honorCommandKeys and: [sensor commandKeyPressed]) or: [self class specialShiftCmdKeys includes: char asciiValue]) ifTrue:
>   [^ sensor leftShiftDown
>   ifTrue: [
>   self perform: (self class shiftCmdActions at: char asciiValue + 1) with: typeAheadStream]
>   ifFalse: [
>   self perform: (self class cmdActions at: char asciiValue + 1) with: typeAheadStream]].
>
>   "the control key can be used to invoke shift-cmd shortcuts"
>   (honorCommandKeys and: [sensor controlKeyPressed])
>   ifTrue: [
>   ^ self perform: (self class shiftCmdActions at: char asciiValue + 1) with: typeAheadStream].
>
>   (')]}' includes: char)
>   ifTrue: [self blinkPrevParen].
>
>   ^ self normalCharacter: typeAheadStream!
>
> Item was changed:
>  ----- Method: TextEditor>>debug:receiver:in: (in category 'do-its') -----
>  debug: aCompiledMethod receiver: anObject in: evalContext
>
>   | selector guineaPig debugger context |
> + selector := evalContext isNil ifTrue: [#DoIt] ifFalse: [#DoItIn:].
> - selector _ evalContext isNil ifTrue: [#DoIt] ifFalse: [#DoItIn:].
>   anObject class addSelectorSilently: selector withMethod: aCompiledMethod.
> + guineaPig := evalContext isNil
> - guineaPig _ evalContext isNil
>   ifTrue: [[anObject DoIt] newProcess]
>   ifFalse: [[anObject DoItIn: evalContext] newProcess].
> + context := guineaPig suspendedContext.
> + debugger := Debugger new
> - context _ guineaPig suspendedContext.
> - debugger _ Debugger new
>   process: guineaPig
>   controller: nil
>   context: context.
>   debugger openFullNoSuspendLabel: 'Debug it'.
>   [debugger interruptedContext method == aCompiledMethod]
>   whileFalse: [debugger send].
>   anObject class basicRemoveSelector: selector!
>
> Item was changed:
>  ----- Method: TextEditor>>blinkParenAt: (in category 'parenblinking') -----
>  blinkParenAt: parenLocation
>   self text
>   addAttribute: TextEmphasis bold
>   from: parenLocation
>   to: parenLocation.
> + lastParenLocation := parenLocation.!
> - lastParenLocation _ parenLocation.!
>
> Item was changed:
>  ----- Method: TextEditor>>setSearch: (in category 'accessing') -----
>  setSearch: aString
>   "Set the FindText and ChangeText to seek aString; except if already seeking aString, leave ChangeText alone so again will repeat last replacement."
>
>   FindText string = aString
> + ifFalse: [FindText := ChangeText := aString asText]!
> - ifFalse: [FindText _ ChangeText _ aString asText]!
>
> Item was changed:
>  ----- Method: TextEditor>>browseChangeSetsWithSelector (in category 'menu messages') -----
>  browseChangeSetsWithSelector
>   "Determine which, if any, change sets have at least one change for the selected selector, independent of class"
>
>   | aSelector |
>   self lineSelectAndEmptyCheck: [^ self].
> + (aSelector := self selectedSelector) == nil ifTrue: [^ morph flash].
> - (aSelector _ self selectedSelector) == nil ifTrue: [^ morph flash].
>   ChangeSorter browseChangeSetsWithSelector: aSelector!
>
> Item was changed:
>  ----- Method: TextEditor>>zapSelectionWith: (in category 'mvc compatibility') -----
>  zapSelectionWith: aText
>
>   | start stop |
>   self deselect.
> + start := self startIndex.
> + stop := self stopIndex.
> - start _ self startIndex.
> - stop _ self stopIndex.
>   (aText isEmpty and: [stop > start]) ifTrue: [
>   "If deleting, then set emphasisHere from 1st character of the deletion"
> + emphasisHere := (paragraph text attributesAt: start) select: [:att | att mayBeExtended]].
> - emphasisHere _ (paragraph text attributesAt: start) select: [:att | att mayBeExtended]].
>   (start = stop and: [ aText size = 0 ]) ifFalse: [
>   paragraph replaceFrom: start to: stop - 1 with: aText.
>   self markIndex: start; pointIndex: start + aText size.
> + UndoInterval := otherInterval := self selectionInterval].
> - UndoInterval _ otherInterval _ self selectionInterval].
>
>   self userHasEdited  " -- note text now dirty"!
>
> Item was changed:
>  ----- Method: TextEditor>>pointBlock: (in category 'accessing-selection') -----
>  pointBlock: aCharacterBlock
> + pointBlock := aCharacterBlock.
> - pointBlock _ aCharacterBlock.
>  !
>
> Item was changed:
>  ----- Method: FileList>>askServerInfo (in category 'server list') -----
>  askServerInfo
>   "Get the user to create a ServerDirectory for a new server.  Fill in and say Accept."
>   | template |
> + template := '"Please fill in the following info, then select all text and choose DoIt."
> - template _ '"Please fill in the following info, then select all text and choose DoIt."
>
>   | aa |
>   self flag: #ViolateNonReferenceToOtherClasses.
> + aa := ServerDirectory new.
> - aa _ ServerDirectory new.
>   aa server: ''st.cs.uiuc.edu''.    "host"
>   aa user: ''anonymous''.
>   aa password: ''[hidden email]''.
>   aa directory: ''/Smalltalk/Squeak/Goodies''.
>   aa url: ''''.    "<- this is optional.  Only used when *writing* update files."
>   ServerDirectory addServer: aa named: ''UIUCArchive''.  "<- known by this name in Squeak"'.
>
>   (StringHolder new contents: template) openLabel: 'FTP Server Form'
>   !
>
> Item was changed:
>  ----- Method: TextEditor class>>initializeShiftCmdKeyShortcuts (in category 'keyboard shortcut tables') -----
>  initializeShiftCmdKeyShortcuts
>   "Initialize the shift-command-key (or control-key) shortcut table."
>   "NOTE: if you don't know what your keyboard generates, use Sensor kbdTest"
>   "wod 11/3/1998: Fix setting of cmdMap for shifted keys to actually use the
>   capitalized versions of the letters.
>   TPR 2/18/99: add the plain ascii values back in for those VMs that don't return the shifted values."
>
>   "TextEditor initialize"
>
>   | cmdMap cmds |
>
>   "shift-command and control shortcuts"
> + cmdMap := Array new: 256 withAll: #noop:.   "use temp in case of a crash"
> - cmdMap _ Array new: 256 withAll: #noop:.   "use temp in case of a crash"
>   cmdMap at: ( 1 + 1) put: #cursorHome:. "home key"
>   cmdMap at: ( 4 + 1) put: #cursorEnd:. "end key"
>   cmdMap at: ( 8 + 1) put: #forwardDelete:. "ctrl-H or delete key"
>   cmdMap at: (11 + 1) put: #cursorPageUp:. "page up key"
>   cmdMap at: (12 + 1) put: #cursorPageDown:. "page down key"
>   cmdMap at: (13 + 1) put: #crWithIndent:. "ctrl-Return"
>   cmdMap at: (27 + 1) put: #offerMenuFromEsc:. "escape key"
>   cmdMap at: (28 + 1) put: #cursorLeft:. "left arrow key"
>   cmdMap at: (29 + 1) put: #cursorRight:. "right arrow key"
>   cmdMap at: (30 + 1) put: #cursorUp:. "up arrow key"
>   cmdMap at: (31 + 1) put: #cursorDown:. "down arrow key"
>   cmdMap at: (32 + 1) put: #selectWord:. "space bar key"
>   cmdMap at: (45 + 1) put: #changeEmphasis:. "cmd-sh-minus"
>   cmdMap at: (61 + 1) put: #changeEmphasis:. "cmd-sh-plus"
>   cmdMap at: (127 + 1) put: #forwardDelete:. "del key"
>
>   "Note: Command key overrides shift key, so, for example, cmd-shift-9 produces $9 not $("
>   '9[,''' do: [ :char | cmdMap at: (char asciiValue + 1) put: #shiftEnclose: ]. "({< and double-quote"
>   "Note: Must use cmd-9 or ctrl-9 to get '()' since cmd-shift-9 is a Mac FKey command."
>
>   "NB: sw 12/9/2001 commented out the idiosyncratic line just below, which was grabbing shift-esc in the text editor and hence which argued with the wish to have shift-esc be a universal gesture for escaping the local context and calling up the desktop menu."
>   "cmdMap at: (27 + 1) put: #shiftEnclose:." "ctrl-["
>
>   "'""''(' do: [ :char | cmdMap at: (char asciiValue + 1) put: #enclose:]."
>
> + cmds := #(
> - cmds _ #(
>   $c compareToClipboard:
>   $d duplicate:
>   $h cursorTopHome:
>   $j doAgainMany:
>   $k changeStyle:
>   $l outdent:
>   $m selectCurrentTypeIn:
>   $r indent:
>   $s search:
>   $u changeLfToCr:
>   $x makeLowercase:
>   $y makeUppercase:
>   $z makeCapitalized:
>   ).
>   1 to: cmds size by: 2 do: [ :i |
>   cmdMap at: ((cmds at: i) asciiValue + 1) put: (cmds at: i + 1). "plain keys"
>   cmdMap at: ((cmds at: i) asciiValue - 32 + 1) put: (cmds at: i + 1). "shifted keys"
>   cmdMap at: ((cmds at: i) asciiValue - 96 + 1) put: (cmds at: i + 1). "ctrl keys"
>   ].
> + shiftCmdActions := cmdMap!
> - shiftCmdActions _ cmdMap!
>
> Item was changed:
>  ----- Method: TextEditor>>spawn (in category 'menu messages') -----
>  spawn
>   "Create and schedule a message browser for the code of the model's
>   selected message. Retain any edits that have not yet been accepted."
>   | code |
> + code := paragraph text string.
> - code _ paragraph text string.
>   self cancel.
>   model spawn: code.!
>
> Item was changed:
>  ----- Method: TextEditor>>changeSelectionFontTo: (in category 'attributes') -----
>  changeSelectionFontTo: aFont
>   | attr |
>   aFont ifNil:[^self].
> + attr := TextFontReference toFont: aFont.
> - attr _ TextFontReference toFont: aFont.
>   paragraph text addAttribute: attr from: self startIndex to: (self stopIndex-1 min: paragraph text size).
>   paragraph composeAll.
>   self recomputeInterval.
>   morph changed.!
>
> Item was changed:
>  ----- Method: TextEditor>>browseItHere (in category 'menu messages') -----
>  browseItHere
>   "Retarget the receiver's window to look at the selected class, if appropriate.  3/1/96 sw"
>   | aSymbol foundClass b |
> + (((b := model) isKindOf: Browser) and: [b couldBrowseAnyClass])
> - (((b _ model) isKindOf: Browser) and: [b couldBrowseAnyClass])
>   ifFalse: [^ morph flash].
>   model okToChange ifFalse: [^ morph flash].
>   self selectionInterval isEmpty ifTrue: [self selectWord].
> + (aSymbol := self selectedSymbol) isNil ifTrue: [^ morph flash].
> - (aSymbol _ self selectedSymbol) isNil ifTrue: [^ morph flash].
>
> + foundClass := (Smalltalk at: aSymbol ifAbsent: [nil]).
> - foundClass _ (Smalltalk at: aSymbol ifAbsent: [nil]).
>   foundClass isNil ifTrue: [^ morph flash].
>   (foundClass isKindOf: Class)
>   ifTrue:
>   [model systemCategoryListIndex:
>   (model systemCategoryList indexOf: foundClass category).
>   model classListIndex: (model classList indexOf: foundClass name)]!
>
> Item was changed:
>  ----- Method: TextEditor>>changeParagraph: (in category 'initialize-release') -----
>  changeParagraph: aParagraph
>   "Install aParagraph as the one to be edited by the receiver."
>
> + UndoParagraph == paragraph ifTrue: [UndoParagraph := nil].
> + paragraph := aParagraph.
> - UndoParagraph == paragraph ifTrue: [UndoParagraph _ nil].
> - paragraph _ aParagraph.
>   self resetState!
>
> Item was changed:
>  ----- Method: TextEditor class>>abandonChangeText (in category 'class initialization') -----
>  abandonChangeText
>   "Call this to get out of the maddening situation in which the system keeps aggressively trying to do a replacement that you no longer wish to make, every time you make choose a new method in a list."
> + ChangeText := FindText
> - ChangeText _ FindText
>
>   "
>   TextEditor abandonChangeText
>   "!
>
> Item was changed:
>  ----- Method: TextEditor>>openTypeIn (in category 'typing support') -----
>  openTypeIn
>   "Set up UndoSelection to null text (to be added to by readKeyboard and backTo:),
>   beginTypeInBlock to keep track of the leftmost backspace, and UndoParameter to tally
>   how many deleted characters were backspaced over rather than 'cut'.
>   You can't undo typing until after closeTypeIn."
>
>   beginTypeInBlock ifNil: [
> + UndoSelection := self nullText.
> - UndoSelection _ self nullText.
>   self undoer: #noUndoer with: 0.
> + beginTypeInBlock := self startIndex]!
> - beginTypeInBlock _ self startIndex]!
>
> Item was changed:
>  ----- Method: TextEditor>>compareToClipboard (in category 'menu messages') -----
>  compareToClipboard
>   "Check to see if whether the receiver's text is the same as the text currently on the clipboard, and inform the user."
>   | s1 s2 |
> + s1 := self clipboardText string.
> + s2 := paragraph text string.
> - s1 _ self clipboardText string.
> - s2 _ paragraph text string.
>   s1 = s2 ifTrue: [^ self inform: 'Exact match'].
>
>   (StringHolder new textContents:
>   (TextDiffBuilder buildDisplayPatchFrom: s1 to: s2))
>   openLabel: 'Comparison to Clipboard Text'!
>
> Item was changed:
>  ----- Method: TextEditor>>evaluateSelection (in category 'do-its') -----
>  evaluateSelection
>   "Treat the current selection as an expression; evaluate it and return the result"
>   | result rcvr ctxt |
>   self lineSelectAndEmptyCheck: [^ ''].
>
>   (model respondsTo: #doItReceiver)
>   ifTrue: [FakeClassPool adopt: model selectedClass.  "Include model pool vars if any"
> + rcvr := model doItReceiver.
> + ctxt := model doItContext]
> + ifFalse: [rcvr := ctxt := nil].
> + result := [
> - rcvr _ model doItReceiver.
> - ctxt _ model doItContext]
> - ifFalse: [rcvr _ ctxt _ nil].
> - result _ [
>   rcvr class evaluatorClass new
>   evaluate: self selectionAsStream
>   in: ctxt
>   to: rcvr
>   notifying: self
>   ifFail: [FakeClassPool adopt: nil. ^ #failedDoit]
>   logged: true.
>   ]
>   on: OutOfScopeNotification
>   do: [ :ex | ex resume: true].
>   FakeClassPool adopt: nil.
>   ^ result!
>
> Item was changed:
>  ----- Method: TextEditor>>markBlock: (in category 'accessing-selection') -----
>  markBlock: aCharacterBlock
> + markBlock := aCharacterBlock!
> - markBlock _ aCharacterBlock!
>
> Item was changed:
>  ----- Method: TextEditor>>isDisjointFrom: (in category 'private') -----
>  isDisjointFrom: anInterval
>   "Answer true if anInterval is a caret not touching or within the current
>   interval, or if anInterval is a non-caret that does not overlap the current
>   selection."
>
>   | fudge |
> + fudge := anInterval size = 0 ifTrue: [1] ifFalse: [0].
> - fudge _ anInterval size = 0 ifTrue: [1] ifFalse: [0].
>   ^(anInterval last + fudge < self startIndex or:
>   [anInterval first - fudge >= self stopIndex])
>  !
>
> Item was changed:
>  ----- Method: TextEditor>>exploreIt (in category 'do-its') -----
>  exploreIt
>   | result |
> + result := self evaluateSelection.
> - result _ self evaluateSelection.
>   ((result isKindOf: FakeClassPool) or: [result == #failedDoit])
>   ifTrue: [morph flash]
>   ifFalse: [result explore]!
>
> Item was changed:
>  ----- Method: TextEditor>>readKeyboard (in category 'typing support') -----
>  readKeyboard
>   "Key struck on the keyboard. Find out which one and, if special, carry
>   out the associated special action. Otherwise, add the character to the
>   stream of characters.  Undoer & Redoer: see closeTypeIn."
>
>   | typeAhead char |
> + typeAhead := WriteStream on: (String new: 128).
> - typeAhead _ WriteStream on: (String new: 128).
>   [ sensor keyboardPressed ] whileTrue: [
>   self deselect.
>   [ sensor keyboardPressed ] whileTrue: [
> + char := sensor keyboardPeek.
> - char _ sensor keyboardPeek.
>   (self dispatchOnCharacter: char with: typeAhead) ifTrue: [
>   self doneTyping.
>   self storeSelectionInParagraph.
>   ^self].
>   self openTypeIn].
>   self hasSelection ifTrue: [ "save highlighted characters"
> + UndoSelection := self selection].
> - UndoSelection _ self selection].
>   self zapSelectionWith:
>   (Text string: typeAhead contents attributes: emphasisHere).
>   typeAhead reset.
>   self unselect].
>   self storeSelectionInParagraph!
>
> Item was changed:
>  ----- Method: TextEditor>>pasteRecent (in category 'menu messages') -----
>  pasteRecent
>   "Paste an item chose from RecentClippings."
>
>   | clipping |
> + (clipping := Clipboard chooseRecentClipping) ifNil: [^ self].
> - (clipping _ Clipboard chooseRecentClipping) ifNil: [^ self].
>   Clipboard clipboardText: clipping.
>   ^ self paste!
>
> Item was changed:
>  ----- Method: TextEditor>>swapChars: (in category 'editing keys') -----
>  swapChars: characterStream
>   "Triggered byCmd-Y;.  Swap two characters, either those straddling the insertion point, or the two that comprise the selection.  Suggested by Ted Kaehler.  "
>
>   | currentSelection aString chars |
>   sensor keyboard. "flush the triggering cmd-key character"
> + (chars := self selection) size = 0
> - (chars _ self selection) size = 0
>   ifTrue:
> + [currentSelection := self pointIndex.
> - [currentSelection _ self pointIndex.
>   self selectMark: currentSelection - 1 point: currentSelection]
>   ifFalse:
>   [chars size = 2
>   ifFalse:
>   [morph flash. ^ true]
>   ifTrue:
> + [currentSelection := self pointIndex - 1]].
> + aString := self selection string.
> - [currentSelection _ self pointIndex - 1]].
> - aString _ self selection string.
>   self replaceSelectionWith: (Text string: aString reversed attributes: emphasisHere).
>   self selectAt: currentSelection + 1.
>   ^ true!
>
> Item was changed:
>  ----- Method: TextEditor>>explainScan: (in category 'explain') -----
>  explainScan: string
>   "Remove beginning and trailing space, tab, cr.
>   1/15/96 sw: copied intact from BrowserCodeController"
>
>   | c beg end |
> + beg := 1.
> + end := string size.
> - beg _ 1.
> - end _ string size.
>
>   [beg = end ifTrue: [^string copyFrom: 1 to: 1].
>   "if all blank, tell about the first"
> + c := string at: beg.
> - c _ string at: beg.
>   c = Character space or: [c = Character tab or: [c = Character cr]]]
> + whileTrue: [beg := beg + 1].
> - whileTrue: [beg _ beg + 1].
>
> + [c := string at: end.
> - [c _ string at: end.
>   c = Character space or: [c = Character tab or: [c = Character cr]]]
> + whileTrue: [end := end - 1].
> - whileTrue: [end _ end - 1].
>   ^string copyFrom: beg to: end "Return purely visible characters"!
>
> Item was changed:
>  ----- Method: TextEditor>>notify:at:in: (in category 'new selection') -----
>  notify: aString at: anInteger in: aStream
>   "The compilation of text failed. The syntax error is noted as the argument,
>   aString. Insert it in the text at starting character position anInteger."
>
>   | pos |
> + pos := self selectionInterval notEmpty
> - pos _ self selectionInterval notEmpty
>   ifTrue: [
>   self startIndex + anInteger - 1 ]
>   ifFalse: [anInteger].
>   self insertAndSelect: aString at: (pos max: 1)!
>
> Item was changed:
>  ----- Method: TextMorphEditor>>changeSelectionFontTo: (in category 'attributes') -----
>  changeSelectionFontTo: aFont
>   | attr |
>   aFont ifNil:[^self].
> + attr := TextFontReference toFont: aFont.
> - attr _ TextFontReference toFont: aFont.
>   paragraph text addAttribute: attr from: self startIndex to: (self stopIndex-1 min: paragraph text size).
>   paragraph composeAll.
>   self recomputeInterval.
>   morph changed.!
>
> Item was changed:
>  ----- Method: TextEditor>>printIt (in category 'do-its') -----
>  printIt
>   "Treat the current text selection as an expression; evaluate it. Insert the
>   description of the result of evaluation after the selection and then make
>   this description the new text selection."
>   | result |
> + result := self evaluateSelection.
> - result _ self evaluateSelection.
>   ((result isKindOf: FakeClassPool) or: [result == #failedDoit])
>   ifTrue: [morph flash]
>   ifFalse: [self afterSelectionInsertAndSelect: result printString]!
>
> Item was changed:
>  ----- Method: TextEditor>>mouseDown: (in category 'events') -----
>  mouseDown: evt
>   "An attempt to break up the old processRedButton code into threee phases"
>   | clickPoint b |
>
> + oldInterval := self selectionInterval.
> + clickPoint := evt cursorPoint.
> + b := paragraph characterBlockAtPoint: clickPoint.
> - oldInterval _ self selectionInterval.
> - clickPoint _ evt cursorPoint.
> - b _ paragraph characterBlockAtPoint: clickPoint.
>
>   (paragraph clickAt: clickPoint for: model controller: self) ifTrue: [
>   self markBlock: b.
>   self pointBlock: b.
>   evt hand releaseKeyboardFocus: self.
>   ^ self ].
>
>   evt shiftPressed
>   ifFalse: [
>   self closeTypeIn.
>   self markBlock: b.
>   self pointBlock: b ]!
>
> Item was changed:
>  ----- Method: Editor>>morph: (in category 'accessing') -----
>  morph: aMorph
>   "Install a link back to the morph being edited (esp for text links)"
> + morph := aMorph !
> - morph _ aMorph !
>
> Item was changed:
>  ----- Method: TextMorph>>keyStroke: (in category 'event handling') -----
>  keyStroke: evt
>   "Handle a keystroke event."
>   | action |
>   self resetBlinkCursor. "don't blink during type-in"
>   evt keyValue = 13 ifTrue:["CR - check for special action"
> + action := self crAction.
> - action _ self crAction.
>   action ifNotNil:[
>   "Note: Code below assumes that this was some
>   input field reacting on CR. Break the keyboard
>   focus so that the receiver can be safely deleted."
>   evt hand newKeyboardFocus: nil.
>   ^action value]].
>   self handleInteraction: [editor readKeyboard] fromEvent: evt.
>   "self updateFromParagraph."
>   super keyStroke: evt  "sends to keyStroke event handler, if any"!
>
> Item was changed:
>  ----- Method: TextEditor>>setEmphasis: (in category 'editing keys') -----
>  setEmphasis: emphasisSymbol
>   "Change the emphasis of the current selection."
>
>   | oldAttributes attribute |
> + oldAttributes := paragraph text attributesAt: self selectionInterval first.
> - oldAttributes _ paragraph text attributesAt: self selectionInterval first.
>
> + attribute := TextEmphasis perform: emphasisSymbol.
> - attribute _ TextEmphasis perform: emphasisSymbol.
>   (emphasisSymbol == #normal)
>   ifFalse: [oldAttributes do:
>   [:att | (att dominates: attribute) ifTrue: [attribute turnOff]]].
>   self replaceSelectionWith: (self selection addAttribute: attribute)!
>
>
>

> On Mon, 4 Jan 2010, [hidden email] wrote:
>
> >David T. Lewis uploaded a new version of Morphic to project The Trunk:
> >http://source.squeak.org/trunk/Morphic-dtl.297.mcz
> >
> >==================== Summary ====================
> >
> >Name: Morphic-dtl.297
> >Author: dtl
> >Time: 3 January 2010, 11:54:26 am
> >UUID: b656a757-aedc-47a4-9014-21327212c021
> >Ancestors: Morphic-ar.296
> >
> >Add TextEditor>>explainDelimitor: copied from ParagraphEditor, required
> >for explain function in code panes.
> >
> >Run FixUnderscores on package Morphic to update methods adopted from Cuis.
> >Note: Did not fix underscores in MorphicModel class>>compileAccessorsFor:
>
> Be careful with FixUnderscores, last time I tried it, it replaced _ to :=
> in string literals. (FixUnderscores-cmm.10)