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