[squeak-dev] The Trunk: Morphic-ul.529.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Apr 15 22:28:32 UTC 2011
Levente Uzonyi uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ul.529.mcz
==================== Summary ====================
Name: Morphic-ul.529
Author: ul
Time: 11 April 2011, 1:19:47.245 am
UUID: b9b94d85-7f28-af44-993b-df1ef5ac533b
Ancestors: Morphic-nice.528, Morphic-fbs.526
Merged.
=============== Diff against Morphic-nice.528 ===============
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
|