A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/Tools-fbs.307.mcz ==================== Summary ==================== Name: Tools-fbs.307 Author: fbs Time: 8 March 2011, 7:53:38.74 am UUID: ff29322b-8c39-564e-adf3-7ccff674d959 Ancestors: Tools-fbs.306 Side-by-side selectedClassName/classListIndex instvars. =============== Diff against Tools-fbs.306 =============== Item was changed: CodeHolder subclass: #Browser + instanceVariableNames: 'systemOrganizer classOrganizer metaClassOrganizer classListIndex messageCategoryListIndex messageListIndex editSelection metaClassIndicated selectedSystemCategory selectedClassName' - instanceVariableNames: 'systemOrganizer classOrganizer metaClassOrganizer classListIndex messageCategoryListIndex messageListIndex editSelection metaClassIndicated selectedSystemCategory' classVariableNames: 'ListClassesHierarchically RecentClasses' poolDictionaries: '' category: 'Tools-Browser'! !Browser commentStamp: '<historical>' prior: 0! I represent a query path into the class descriptions, the software of the system.! Item was changed: ----- Method: Browser>>hasClassSelected (in category 'class list') ----- hasClassSelected + ^ classListIndex ~= 0. + " ^ self selectedClassName notNil"! - ^ classListIndex ~= 0.! Item was changed: ----- Method: Browser>>selectClassNamed: (in category 'class list') ----- selectClassNamed: aSymbolOrString + selectedClassName := aSymbolOrString ifNotNil: [ aSymbolOrString asSymbol ]. aSymbolOrString ifNil: [ self classListIndex: 0 ] + ifNotNil: [ self classListIndex: (self classList indexOf: selectedClassName) ]! - ifNotNil: [ self classListIndex: (self classList indexOf: aSymbolOrString asSymbol) ]! Item was changed: ----- Method: Browser>>selectSystemCategory: (in category 'system category list') ----- selectSystemCategory: aSymbol "Set the selected system category. Update all other selections to be deselected." selectedSystemCategory := aSymbol. + selectedClassName := nil. - classListIndex := 0. messageCategoryListIndex := 0. messageListIndex := 0. self editSelection: ( aSymbol isNil ifTrue: [#none] ifFalse: [#newClass]). metaClassIndicated := false. self setClassOrganizer. contents := nil. self changed: #systemCategorySelectionChanged. self changed: #systemCategoryListIndex. "update my selection" self changed: #classList. self changed: #messageCategoryList. self changed: #messageList. self changed: #relabel. self contentsChanged! Item was changed: ----- Method: Browser>>selectedClassName (in category 'class list') ----- selectedClassName | className | + self classList ifNil: [ ^ nil "We might be halfway through instantiating ourselves."]. className := self classList at: classListIndex ifAbsent: [^ nil]. self class listClassesHierarchically ifTrue: [ className := className withoutLeadingBlanks asSymbol]. ^ className.! Item was changed: ----- Method: Browser>>systemOrganizer: (in category 'initialize-release') ----- systemOrganizer: aSystemOrganizer "Initialize the receiver as a perspective on the system organizer, aSystemOrganizer. Typically there is only one--the system variable SystemOrganization." contents := nil. systemOrganizer := aSystemOrganizer. selectedSystemCategory := nil. + selectedClassName := nil. classListIndex := 0. messageCategoryListIndex := 0. messageListIndex := 0. metaClassIndicated := false. self setClassOrganizer. self editSelection: #none.! Item was changed: ----- Method: Browser>>veryDeepInner: (in category 'copying') ----- veryDeepInner: deepCopier "Copy all of my instance variables. Some need to be not copied at all, but shared. See DeepCopier class comment." super veryDeepInner: deepCopier. "systemOrganizer := systemOrganizer. clone has the old value. we share it" "classOrganizer := classOrganizer clone has the old value. we share it" "metaClassOrganizer := metaClassOrganizer clone has the old value. we share it" selectedSystemCategory := selectedSystemCategory veryDeepCopyWith: deepCopier. + selectedClassName := selectedClassName veryDeepCopyWith: deepCopier. classListIndex := classListIndex veryDeepCopyWith: deepCopier. messageCategoryListIndex := messageCategoryListIndex veryDeepCopyWith: deepCopier. messageListIndex := messageListIndex veryDeepCopyWith: deepCopier. editSelection := editSelection veryDeepCopyWith: deepCopier. metaClassIndicated := metaClassIndicated veryDeepCopyWith: deepCopier. ! Item was changed: ----- Method: HierarchyBrowser>>classList (in category 'class list') ----- classList classList := classList select: [:each | Smalltalk includesKey: each withBlanksTrimmed asSymbol]. ^ classList! Item was changed: ----- Method: PackagePaneBrowser>>packageListIndex: (in category 'package list') ----- packageListIndex: anInteger "Set anInteger to be the index of the current package selection." packageListIndex := anInteger. anInteger = 0 ifFalse: [package := self packageList at: packageListIndex]. messageCategoryListIndex := 0. self selectSystemCategory: nil. messageListIndex := 0. + selectedClassName := nil. classListIndex := 0. self setClassOrganizer. self changed: #packageSelectionChanged. self changed: #packageListIndex. "update my selection" self changed: #systemCategoryList. "update the category list" self selectedSystemCategory: nil. "update category list selection" ! |
Free forum by Nabble | Edit this page |