A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-fbs.526.mcz
==================== Summary ====================
Name: Morphic-fbs.526 Author: fbs Time: 31 March 2011, 5:26:19.506 pm UUID: 2f192343-1e26-7e44-9345-ae3888e8836b Ancestors: Morphic-dtl.525
Morphic extensions repair.
=============== Diff against Morphic-dtl.525 ===============
Item was changed: ----- Method: HierarchyBrowser>>representsSameBrowseeAs: (in category '*morphic') ----- representsSameBrowseeAs: anotherModel ^ self hasUnacceptedEdits not + and: [ classDisplayList size = anotherModel classList size + and: [ classDisplayList includesAllOf: anotherModel classList ] ]! - and: [ classList size = anotherModel classList size - and: [ classList includesAllOf: anotherModel classList ] ]!
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]) ifFalse: [^ morph flash]. model okToChange ifFalse: [^ morph flash]. self selectionInterval isEmpty ifTrue: [self selectWord]. (aSymbol := self selectedSymbol) isNil ifTrue: [^ morph flash].
foundClass := (Smalltalk at: aSymbol ifAbsent: [nil]). foundClass isNil ifTrue: [^ morph flash]. (foundClass isKindOf: Class) ifTrue: + [model selectSystemCategory: foundClass category. - [model systemCategoryListIndex: - (model systemCategoryList indexOf: foundClass category). model classListIndex: (model classList indexOf: foundClass name)]!