[squeak-dev] The Inbox: Tools-fbs.312.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Mar 14 21:19:28 UTC 2011


A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/Tools-fbs.312.mcz

==================== Summary ====================

Name: Tools-fbs.312
Author: fbs
Time: 14 March 2011, 5:32:32.258 pm
UUID: ba63aff1-6376-3141-8b62-373393ff0c2a
Ancestors: Tools-fbs.311

By making matching space-insensitive, we can simplify implementation and remove HierarchyBrowser's special-casing.

=============== Diff against Tools-fbs.311 ===============

Item was changed:
  ----- Method: Browser>>classListIndexOf: (in category 'class list') -----
  classListIndexOf: className 
  
  	| classList |
  	classList := self classList.
+ 	classList := classList collect: [:ea | ea withoutLeadingBlanks asSymbol].
- 	self class listClassesHierarchically
- 		ifTrue: [classList := classList collect: [:ea | ea withoutLeadingBlanks asSymbol]].
  	^ classList indexOf: className.!

Item was changed:
  ----- Method: HierarchyBrowser>>classListIndex: (in category 'initialization') -----
  classListIndex: newIndex
  	"Cause system organization to reflect appropriate category"
  	| newClassName ind |
  	newIndex ~= 0 ifTrue:
  		[newClassName := (classDisplayList at: newIndex) copyWithout: $ .
  		selectedSystemCategory := (systemOrganizer categories at:
  			(systemOrganizer numberOfCategoryOfElement: newClassName))].
  	ind := super classListIndex: newIndex.
+ 
+ 	"What I'd like to write:"
+ 	"self selectedClassName ifNotNil:
+ 		[ selectedSystemCategory := self selectedClass category ]."
  	self changed: #systemCategorySingleton.
  	^ ind!

Item was removed:
- ----- Method: HierarchyBrowser>>selectClass: (in category 'initialization') -----
- selectClass: classNotMeta
- 	| name |
- 	name := classNotMeta name.
- 	self classListIndex: (self classList findFirst:
- 			[:each | (each endsWith: name)
- 					and: [each size = name size
- 							or: [(each at: each size - name size) isSeparator]]])!




More information about the Squeak-dev mailing list