[squeak-dev] The Inbox: Morphic-fbs.526.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Mar 31 17:40:34 UTC 2011
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)]!
More information about the Squeak-dev
mailing list
|