[squeak-dev] The Trunk: Tools-cwp.433.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Jan 2 00:05:07 UTC 2013


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).!



More information about the Squeak-dev mailing list