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

==================== 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


=============== 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') -----
  	"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 Packages mailing list