Colin Putney uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cwp.433.mcz
==================== Summary ====================
Name: Tools-cwp.433 Author: cwp Time: 1 January 2013, 7:04:22.314 pm UUID: 270fb729-cc8c-47d2-8eb3-7c39fdd965b9 Ancestors: Tools-eem.431
Environments bootstrap - stage 3
=============== Diff against Tools-eem.431 ===============
Item was changed: CodeHolder subclass: #Browser + instanceVariableNames: 'environment systemOrganizer classOrganizer metaClassOrganizer editSelection metaClassIndicated selectedSystemCategory selectedClassName selectedMessageName selectedMessageCategoryName' - instanceVariableNames: 'systemOrganizer classOrganizer metaClassOrganizer editSelection metaClassIndicated selectedSystemCategory selectedClassName selectedMessageName selectedMessageCategoryName' classVariableNames: 'ListClassesHierarchically RecentClasses' poolDictionaries: '' category: 'Tools-Browser'!
+ !Browser commentStamp: 'cwp 12/27/2012 11:09' prior: 0! - !Browser commentStamp: '<historical>' prior: 0! I represent a query path into the class descriptions, the software of the system.!
Item was added: + ----- Method: Browser>>selectEnvironment: (in category 'accessing') ----- + selectEnvironment: anEnvironment + environment := anEnvironment. + systemOrganizer := environment organization!
Item was changed: ----- Method: Browser>>selectedEnvironment (in category 'system category list') ----- selectedEnvironment "Answer the name of the selected system category or nil."
self hasSystemCategorySelected ifFalse: [^nil]. + ^ environment ifNil: [Smalltalk]! - ^ Smalltalk!
Item was changed: ----- Method: Browser>>setClass:selector: (in category 'initialize-release') ----- setClass: aBehavior selector: aSymbol "Set the state of a new, uninitialized Browser."
| isMeta aClass messageCatIndex | aBehavior ifNil: [^ self]. (aBehavior isKindOf: Metaclass) ifTrue: [ isMeta := true. aClass := aBehavior soleInstance] ifFalse: [ isMeta := false. aClass := aBehavior]. + self selectEnvironment: aClass environment. self selectCategoryForClass: aClass. self classListIndex: (self classListIndexOf: aClass name). self metaClassIndicated: isMeta. aSymbol ifNil: [^ self]. messageCatIndex := aBehavior organization numberOfCategoryOfElement: aSymbol. self messageCategoryListIndex: (messageCatIndex > 0 ifTrue: [messageCatIndex + 1] ifFalse: [0]). messageCatIndex = 0 ifTrue: [^ self]. self messageListIndex: ( (aBehavior organization listAtCategoryNumber: messageCatIndex) indexOf: aSymbol).!
squeak-dev@lists.squeakfoundation.org