Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1598.mcz
==================== Summary ====================
Name: Morphic-mt.1598 Author: mt Time: 3 December 2019, 2:02:47.214677 pm UUID: 8ee5a31c-f69f-6049-b274-c3dcbbdec38e Ancestors: Morphic-eem.1597
Harmonize all find*-parsing methods used in text editors.
=============== Diff against Morphic-eem.1597 ===============
Item was changed: ----- Method: TextEditor>>selectedLiteral (in category 'menu messages') ----- selectedLiteral + "Try to make a Smalltalk literal out of the current text selection." + + ^ self selection string findLiteral! - "Try to make a literal out of the current text selection" - | tokens | - tokens := Scanner new typedScanTokens: self selection string. - ^tokens isEmpty ifFalse: [tokens first]!
Item was changed: ----- Method: TextEditor>>selectedSelector (in category 'menu messages') ----- selectedSelector + "Try to make a selector out of the current text selection." + + ^ self selection string findSelector! - "Try to make a selector out of the current text selection" - ^self selection string findSelector!
Item was changed: ----- Method: TextEditor>>selectedSymbol (in category 'menu messages') ----- selectedSymbol + "Try to make a symbol out of the current text selection." - "Return the currently selected symbol, or nil if none. Spaces, tabs and returns are ignored"
+ ^ self selection string findSymbol! - | aString | - self hasCaret ifTrue: [^ nil]. - aString := self selection string copyWithoutAll: CharacterSet separators. - aString size = 0 ifTrue: [^ nil]. - Symbol hasInterned: aString ifTrue: [:sym | ^ sym]. - - ^ nil!
squeak-dev@lists.squeakfoundation.org