Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.1956.mcz
==================== Summary ====================
Name: Morphic-ul.1956 Author: ul Time: 31 March 2022, 5:06:23.743688 pm UUID: f3e1fb7d-6d9f-41a8-b27e-7ac48a323b48 Ancestors: Morphic-mt.1955
- use Symbol class >> #lookup: instead of #hasInterned:ifTrue:
=============== Diff against Morphic-mt.1955 ===============
Item was changed: ----- Method: StandardScriptingSystem>>formAtKey: (in category 'form dictionary') ----- formAtKey: aString "Answer the form saved under the given key"
+ ^(Symbol lookup: aString) + ifNotNil: [ :aKey | FormDictionary at: aKey ifAbsent: [ FormDictionary at: #Cat ] ] + ifNil: [ FormDictionary at: #Cat ]! - Symbol hasInterned: aString ifTrue: - [:aKey | ^ FormDictionary at: aKey ifAbsent: [FormDictionary at: #Cat]]. - ^ FormDictionary at: #Cat!
Item was changed: ----- Method: TextEditor>>explain (in category 'menu messages') ----- explain "Try to shed some light on what kind of entity the current selection is. The selection must be a single token or construct. Insert the answer after the selection. Send private messages whose names begin with 'explain' that return a string if they recognize the selection, else nil."
Cursor execute showWhile: + [ | string numbers delimitors cgVars reply selectors tiVars sorry | - [ | string numbers delimitors cgVars reply selectors tiVars symbol sorry | sorry := '"Sorry, I can''t explain that. Please select a single token, construct, or special character.'. sorry := sorry , (morph canDiscardEdits ifFalse: [' Also, please cancel or accept."'] ifTrue: ['"']). (string := self selection asString) isEmpty ifTrue: [reply := ''] ifFalse: [string := self explainScan: string. "Remove space, tab, cr" "Temps and Instance vars need only test strings that are all letters" (string allSatisfy: [:char | char isLetter or: [char isDigit]]) ifTrue: [tiVars := self explainTemp: string. tiVars == nil ifTrue: [tiVars := self explainInst: string]]. (tiVars == nil and: [model respondsTo: #explainSpecial:]) ifTrue: [tiVars := model explainSpecial: string]. tiVars == nil ifTrue: [tiVars := ''] ifFalse: [tiVars := tiVars , '' withCRs]. "Context, Class, Pool, and Global vars, and Selectors need only test symbols" + (Symbol lookup: string) + ifNotNil: [ :symbol | + cgVars := self explainCtxt: symbol. - (Symbol hasInterned: string ifTrue: [:s | symbol := s]) - ifTrue: [cgVars := self explainCtxt: symbol. cgVars == nil ifTrue: [cgVars := self explainClass: symbol. cgVars == nil ifTrue: [cgVars := self explainGlobal: symbol]]. "See if it is a Selector (sent here or not)" selectors := self explainMySel: symbol. selectors == nil ifTrue: [selectors := self explainPartSel: string. selectors == nil ifTrue: [ selectors := self explainAnySel: symbol]]] + ifNil: [selectors := self explainPartSel: string]. - ifFalse: [selectors := self explainPartSel: string]. cgVars == nil ifTrue: [cgVars := ''] ifFalse: [cgVars := cgVars , '' withCRs]. selectors == nil ifTrue: [selectors := ''] ifFalse: [selectors := selectors , '' withCRs]. string size = 1 ifTrue: ["single special characters" delimitors := self explainChar: string] ifFalse: ["matched delimitors" delimitors := self explainDelimitor: string]. numbers := self explainNumber: string. numbers == nil ifTrue: [numbers := '']. delimitors == nil ifTrue: [delimitors := '']. reply := tiVars , cgVars , selectors , delimitors , numbers]. reply size = 0 ifTrue: [reply := sorry]. self afterSelectionInsertAndSelect: reply]!