[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:

==================== 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') -----
  	"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)
+ 				[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