--- a/NewSystemBrowser.st Wed Nov 27 11:02:33 2002 +0100
+++ b/NewSystemBrowser.st Thu Nov 28 12:04:58 2002 +0100
@@ -13,244 +13,244 @@
"{ Package: 'stx:libtool' }"
SystemBrowser subclass:#NewSystemBrowser
- instanceVariableNames:'navigationState bufferNameList selectedBuffer buffers
- bufferUsageOrder browserCanvas immediateUpdate showClassPackages
- lastMethodCategory lastMethodMoveClass browserCanvasType
- windowLabel syntaxColoringProcessRunning syntaxColoringProcess'
- classVariableNames:'LastNewProtocol LastProtocolRenames LastCategoryRenames
- LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
- LastNameSpaceMove LastMethodMoveOrCopyTargetClass
- LastSearchPatterns LastGlobalSearched LastClassFilterBlockString
- LastMethodFilterBlockString LastBreakPointConditionString
- LastIndividualChecks LastAcceptPackage LastVariableRenames
- BookMarks FindHistory CheckForInstancesWhenRemovingClasses
- SynchronousUpdate DefaultIsNewBuffer DoubleClickIsOpenBrowser
- ShowMethodTemplateWhenProtocolIsSelected
- DefaultShowMethodTemplate DefaultShowMethodInheritance
- DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
- DefaultSyntaxColoring DefaultToolBarVisible
- DefaultCodeInfoVisible LastVisitorClassName
- DefaultShortNameInTabs DefaultHideUnloadedClasses
- DefaultMarkApplications'
- poolDictionaries:''
- category:'Interface-Browsers'
+ instanceVariableNames:'navigationState bufferNameList selectedBuffer buffers
+ bufferUsageOrder browserCanvas immediateUpdate showClassPackages
+ lastMethodCategory lastMethodMoveClass browserCanvasType
+ windowLabel syntaxColoringProcessRunning syntaxColoringProcess'
+ classVariableNames:'LastNewProtocol LastProtocolRenames LastCategoryRenames
+ LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
+ LastNameSpaceMove LastMethodMoveOrCopyTargetClass
+ LastSearchPatterns LastGlobalSearched LastClassFilterBlockString
+ LastMethodFilterBlockString LastBreakPointConditionString
+ LastIndividualChecks LastAcceptPackage LastVariableRenames
+ BookMarks FindHistory CheckForInstancesWhenRemovingClasses
+ SynchronousUpdate DefaultIsNewBuffer DoubleClickIsOpenBrowser
+ ShowMethodTemplateWhenProtocolIsSelected
+ DefaultShowMethodTemplate DefaultShowMethodInheritance
+ DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
+ DefaultSyntaxColoring DefaultToolBarVisible
+ DefaultCodeInfoVisible LastVisitorClassName
+ DefaultShortNameInTabs DefaultHideUnloadedClasses
+ DefaultMarkApplications'
+ poolDictionaries:''
+ category:'Interface-Browsers'
!
ApplicationModel subclass:#NavigatorModel
- instanceVariableNames:''
- classVariableNames:'AllEntry'
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:''
+ classVariableNames:'AllEntry'
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::NavigatorModel subclass:#BrowserList
- instanceVariableNames:'menuHolder inGeneratorHolder outGeneratorHolder
- selectionChangeCondition immediateUpdate doubleClickChannel
- filter updateTrigger forceGeneratorTrigger hideUnloadedClasses
- showClassPackages selectionHolder packageFilter nameSpaceFilter
- organizerMode slaveMode listValid pseudoListLabelHolder icons
- sortBy'
- classVariableNames:'SynchronousUpdate Icons'
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'menuHolder inGeneratorHolder outGeneratorHolder
+ selectionChangeCondition immediateUpdate doubleClickChannel
+ filter updateTrigger forceGeneratorTrigger hideUnloadedClasses
+ showClassPackages selectionHolder packageFilter nameSpaceFilter
+ organizerMode slaveMode listValid pseudoListLabelHolder icons
+ sortBy'
+ classVariableNames:'SynchronousUpdate Icons'
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
Object subclass:#ClassChecker
- instanceVariableNames:'checkedClass badClasses badClassInfo badMethods badMethodInfo
- obsoleteWarners allObsoleteMethods checksPerformed'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'checkedClass badClasses badClassInfo badMethods badMethodInfo
+ obsoleteWarners allObsoleteMethods checksPerformed'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::BrowserList subclass:#ClassGeneratorList
- instanceVariableNames:'organizerList categoryList namespaceList namespaceNameList
- projectList selectedCategories selectedNamespaces
- selectedProjects selectedClasses'
- classVariableNames:'AdditionalEmptyCategories AdditionalEmptyProjects'
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'organizerList categoryList namespaceList namespaceNameList
+ projectList selectedCategories selectedNamespaces
+ selectedProjects selectedClasses'
+ classVariableNames:'AdditionalEmptyCategories AdditionalEmptyProjects'
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::BrowserList subclass:#ClassList
- instanceVariableNames:'classList classNameList meta lastSelectedClasses
- selectedClassNameIndices currentNamespace hidePrivateClasses
- unloadedClassesColor markApplicationsHolder'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'classList classNameList meta lastSelectedClasses
+ selectedClassNameIndices currentNamespace hidePrivateClasses
+ unloadedClassesColor markApplicationsHolder'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::BrowserList subclass:#MethodCategoryList
- instanceVariableNames:'variableFilter filterClassVars lastSelectedProtocols classes
- protocolList rawProtocolList selectedProtocolIndices
- lastGeneratedProtocols noAllItem packageFilterOnInput
- methodVisibilityHolder'
- classVariableNames:'AdditionalEmptyCategoriesPerClassName'
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'variableFilter filterClassVars lastSelectedProtocols classes
+ protocolList rawProtocolList selectedProtocolIndices
+ lastGeneratedProtocols noAllItem packageFilterOnInput
+ methodVisibilityHolder'
+ classVariableNames:'AdditionalEmptyCategoriesPerClassName'
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::BrowserList subclass:#ClassCategoryList
- instanceVariableNames:'categoryList classes allSelected'
- classVariableNames:'AdditionalEmptyCategories'
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'categoryList classes allSelected'
+ classVariableNames:'AdditionalEmptyCategories'
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::ClassList subclass:#HierarchicalClassList
- instanceVariableNames:'topClassHolder'
- classVariableNames:'InheritedEntry'
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'topClassHolder'
+ classVariableNames:'InheritedEntry'
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::BrowserList subclass:#ProjectList
- instanceVariableNames:'projectList'
- classVariableNames:'AdditionalEmptyProjects'
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'projectList'
+ classVariableNames:'AdditionalEmptyProjects'
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::BrowserList subclass:#MethodList
- instanceVariableNames:'classes selectedMethodNameIndices methodList lastSelectedMethods
- browserNameList variableFilter filterClassVars updateProcess
- lastShowClass lastShowCategory lastShowClassFirst
- showMethodInheritance lastMethodClass lastMethodClassesSubclasses
- classAndSelectorsRedefinedBySubclassesOfClass'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'classes selectedMethodNameIndices methodList lastSelectedMethods
+ browserNameList variableFilter filterClassVars updateProcess
+ lastShowClass lastShowCategory lastShowClassFirst
+ showMethodInheritance lastMethodClass lastMethodClassesSubclasses
+ classAndSelectorsRedefinedBySubclassesOfClass'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::MethodList subclass:#ImplementingMethodList
- instanceVariableNames:'selectorList selectedSelectors'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'selectorList selectedSelectors'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::HierarchicalClassList subclass:#InheritanceClassList
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::MethodCategoryList subclass:#FullMethodCategoryList
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::MethodList subclass:#ImplementingClassList
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::BrowserList subclass:#NamespaceList
- instanceVariableNames:'namespaceNameList namespaceList'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'namespaceNameList namespaceList'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
Object subclass:#NavigationState
- instanceVariableNames:'browserLabel codeModifiedHolder categoryList classList
- packageFilter nameSpaceFilter hidePrivateClasses canvasType
- notMetaToggle metaToggle metaToggleLabel organizerMode codeAspect
- codeHolder classDocumentationHolder canvas selectorListGenerator
- protocolListGenerator classListPerNameSpaceGenerator
- classListGenerator categoryListGenerator nameSpaceListGenerator
- projectListGenerator classHierarchyTopClass meta selectedMethods
- selectedProtocols selectedClasses selectedCategories
- selectedProjects selectedNamespaces variableFilter
- filterClassVars sortBy noAllItem autoSearchPattern
- autoSearchIgnoreCase realModifiedState methodInfo
- versionDiffApplication selectorListGeneratorArray
- selectedMethodsArray infoLabelHolder packageLabelHolder
- cursorLineLabelHolder cursorColLabelHolder'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'browserLabel codeModifiedHolder categoryList classList
+ packageFilter nameSpaceFilter hidePrivateClasses canvasType
+ notMetaToggle metaToggle metaToggleLabel organizerMode codeAspect
+ codeHolder classDocumentationHolder canvas selectorListGenerator
+ protocolListGenerator classListPerNameSpaceGenerator
+ classListGenerator categoryListGenerator nameSpaceListGenerator
+ projectListGenerator classHierarchyTopClass meta selectedMethods
+ selectedProtocols selectedClasses selectedCategories
+ selectedProjects selectedNamespaces variableFilter
+ filterClassVars sortBy noAllItem autoSearchPattern
+ autoSearchIgnoreCase realModifiedState methodInfo
+ versionDiffApplication selectorListGeneratorArray
+ selectedMethodsArray infoLabelHolder packageLabelHolder
+ cursorLineLabelHolder cursorColLabelHolder'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::NavigatorModel subclass:#NavigatorCanvas
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::ClassCategoryList subclass:#HierarchicalClassCategoryList
- instanceVariableNames:'hierarchicalCategoryTree hierarchicalCategoryList
- hierarchicalCategorySelection categoryToItemDictionary'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'hierarchicalCategoryTree hierarchicalCategoryList
+ hierarchicalCategorySelection categoryToItemDictionary'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
HierarchicalItem subclass:#ClassCategoryItem
- instanceVariableNames:'label category'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser::HierarchicalClassCategoryList
+ instanceVariableNames:'label category'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser::HierarchicalClassCategoryList
!
NewSystemBrowser::NavigatorModel subclass:#OrganizerCanvas
- instanceVariableNames:'projectListSlaveMode namespaceListSlaveMode categoryListSlaveMode
- classInheritanceListSlaveMode classListSlaveMode
- classHierarchyListSlaveMode organizerMode metaToggle
- notMetaToggle meta classList classCategoryDoubleClickChannel
- classDoubleClickChannel classGeneratorHolder
- classGeneratorHolderFromClassCategory
- classGeneratorHolderFromClassHierarchy
- classGeneratorHolderFromProject classGeneratorHolderFromNamespace
- classCategoryListMenuHolder categoryListShown
- classCategoryListUpdateTrigger classListUpdateTrigger
- classListMenuHolder classHierarchyListMenuHolder
- projectListMenuHolder variablesMenuHolder filterClassVars
- variableFilter packageFilter nameSpaceFilter hidePrivateClasses
- hideUnloadedClasses showClassPackages immediateUpdate
- metaToggleLabelHolder selectedCategories selectedClasses
- selectedNamespaces selectedProjects selectionChangeCondition
- nameSpaceFilterSelection markApplicationsHolder'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'projectListSlaveMode namespaceListSlaveMode categoryListSlaveMode
+ classInheritanceListSlaveMode classListSlaveMode
+ classHierarchyListSlaveMode organizerMode metaToggle
+ notMetaToggle meta classList classCategoryDoubleClickChannel
+ classDoubleClickChannel classGeneratorHolder
+ classGeneratorHolderFromClassCategory
+ classGeneratorHolderFromClassHierarchy
+ classGeneratorHolderFromProject classGeneratorHolderFromNamespace
+ classCategoryListMenuHolder categoryListShown
+ classCategoryListUpdateTrigger classListUpdateTrigger
+ classListMenuHolder classHierarchyListMenuHolder
+ projectListMenuHolder variablesMenuHolder filterClassVars
+ variableFilter packageFilter nameSpaceFilter hidePrivateClasses
+ hideUnloadedClasses showClassPackages immediateUpdate
+ metaToggleLabelHolder selectedCategories selectedClasses
+ selectedNamespaces selectedProjects selectionChangeCondition
+ nameSpaceFilterSelection markApplicationsHolder'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::ProjectList subclass:#HierarchicalProjectList
- instanceVariableNames:'hierarchicalProjectTree selectedProjectItems packageIcon
- hierarchicalProjectList hierarchicalProjectSelection
- packageToItemDictionary'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'hierarchicalProjectTree selectedProjectItems packageIcon
+ hierarchicalProjectList hierarchicalProjectSelection
+ packageToItemDictionary'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
HierarchicalItem subclass:#ProjectItem
- instanceVariableNames:'label packageID'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser::HierarchicalProjectList
+ instanceVariableNames:'label packageID'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser::HierarchicalProjectList
!
ApplicationModel subclass:#SpecialCodeView
- instanceVariableNames:'displayMode'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'displayMode'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::BrowserList subclass:#VariableList
- instanceVariableNames:'variableList classHolder showClassVars'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'variableList classHolder showClassVars'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
!NewSystemBrowser class methodsFor:'documentation'!
@@ -8770,18 +8770,21 @@
#(#MenuItem
#label: 'Show Inherited Methods'
#translateLabel: true
+ #hideMenuOnActivated: false
#choice: #methodVisibilityHolder
#choiceValue: #all
)
#(#MenuItem
#label: 'Show Inherited Methods except Object''s'
#translateLabel: true
+ #hideMenuOnActivated: false
#choice: #methodVisibilityHolder
#choiceValue: #allButObject
)
#(#MenuItem
#label: 'Do not Show Inherited Methods'
#translateLabel: true
+ #hideMenuOnActivated: false
#choice: #methodVisibilityHolder
#choiceValue: #class
)
@@ -12317,6 +12320,7 @@
].
changedObject == selectedBuffer ifTrue:[
self enqueueDelayedLabelUpdate.
+ self organizerModeForMenu changed.
^ self.
].
changedObject == self organizerModeForMenu ifTrue:[
@@ -12420,9 +12424,9 @@
browseImplementorsOfAny
^ self
- askForMethodAndSpawnSearchTitle:'browse implementors of (any in selected):'
- browserLabel:'implementors (any in selected)'
- searchWith:[:classes :ignoredString :ignoredCase :match|
+ askForMethodAndSpawnSearchTitle:'Browse Implementors of (any in selected):'
+ browserLabel:'Implementors (any in selected)'
+ searchWith:[:ignoredString :classes :ignoredCase :match|
|selectors|
selectors := self selectedMethods value collect:[:each | each selector].
@@ -13769,7 +13773,7 @@
^ self
askForMethodAndSpawnSearchTitle:'Browse Senders of (any in selected):'
- browserLabel:'senders (any in selected)'
+ browserLabel:'Senders (any in selected)'
searchWith:[:ignoredString :classes :ignoredCase :match|
self class
findSendersOfAny:selectors
@@ -54264,7 +54268,7 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.495 2002-11-26 12:11:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.496 2002-11-28 11:04:58 cg Exp $'
! !
NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st Wed Nov 27 11:02:33 2002 +0100
+++ b/Tools__NewSystemBrowser.st Thu Nov 28 12:04:58 2002 +0100
@@ -13,244 +13,244 @@
"{ Package: 'stx:libtool' }"
SystemBrowser subclass:#NewSystemBrowser
- instanceVariableNames:'navigationState bufferNameList selectedBuffer buffers
- bufferUsageOrder browserCanvas immediateUpdate showClassPackages
- lastMethodCategory lastMethodMoveClass browserCanvasType
- windowLabel syntaxColoringProcessRunning syntaxColoringProcess'
- classVariableNames:'LastNewProtocol LastProtocolRenames LastCategoryRenames
- LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
- LastNameSpaceMove LastMethodMoveOrCopyTargetClass
- LastSearchPatterns LastGlobalSearched LastClassFilterBlockString
- LastMethodFilterBlockString LastBreakPointConditionString
- LastIndividualChecks LastAcceptPackage LastVariableRenames
- BookMarks FindHistory CheckForInstancesWhenRemovingClasses
- SynchronousUpdate DefaultIsNewBuffer DoubleClickIsOpenBrowser
- ShowMethodTemplateWhenProtocolIsSelected
- DefaultShowMethodTemplate DefaultShowMethodInheritance
- DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
- DefaultSyntaxColoring DefaultToolBarVisible
- DefaultCodeInfoVisible LastVisitorClassName
- DefaultShortNameInTabs DefaultHideUnloadedClasses
- DefaultMarkApplications'
- poolDictionaries:''
- category:'Interface-Browsers'
+ instanceVariableNames:'navigationState bufferNameList selectedBuffer buffers
+ bufferUsageOrder browserCanvas immediateUpdate showClassPackages
+ lastMethodCategory lastMethodMoveClass browserCanvasType
+ windowLabel syntaxColoringProcessRunning syntaxColoringProcess'
+ classVariableNames:'LastNewProtocol LastProtocolRenames LastCategoryRenames
+ LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
+ LastNameSpaceMove LastMethodMoveOrCopyTargetClass
+ LastSearchPatterns LastGlobalSearched LastClassFilterBlockString
+ LastMethodFilterBlockString LastBreakPointConditionString
+ LastIndividualChecks LastAcceptPackage LastVariableRenames
+ BookMarks FindHistory CheckForInstancesWhenRemovingClasses
+ SynchronousUpdate DefaultIsNewBuffer DoubleClickIsOpenBrowser
+ ShowMethodTemplateWhenProtocolIsSelected
+ DefaultShowMethodTemplate DefaultShowMethodInheritance
+ DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
+ DefaultSyntaxColoring DefaultToolBarVisible
+ DefaultCodeInfoVisible LastVisitorClassName
+ DefaultShortNameInTabs DefaultHideUnloadedClasses
+ DefaultMarkApplications'
+ poolDictionaries:''
+ category:'Interface-Browsers'
!
ApplicationModel subclass:#NavigatorModel
- instanceVariableNames:''
- classVariableNames:'AllEntry'
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:''
+ classVariableNames:'AllEntry'
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::NavigatorModel subclass:#BrowserList
- instanceVariableNames:'menuHolder inGeneratorHolder outGeneratorHolder
- selectionChangeCondition immediateUpdate doubleClickChannel
- filter updateTrigger forceGeneratorTrigger hideUnloadedClasses
- showClassPackages selectionHolder packageFilter nameSpaceFilter
- organizerMode slaveMode listValid pseudoListLabelHolder icons
- sortBy'
- classVariableNames:'SynchronousUpdate Icons'
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'menuHolder inGeneratorHolder outGeneratorHolder
+ selectionChangeCondition immediateUpdate doubleClickChannel
+ filter updateTrigger forceGeneratorTrigger hideUnloadedClasses
+ showClassPackages selectionHolder packageFilter nameSpaceFilter
+ organizerMode slaveMode listValid pseudoListLabelHolder icons
+ sortBy'
+ classVariableNames:'SynchronousUpdate Icons'
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
Object subclass:#ClassChecker
- instanceVariableNames:'checkedClass badClasses badClassInfo badMethods badMethodInfo
- obsoleteWarners allObsoleteMethods checksPerformed'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'checkedClass badClasses badClassInfo badMethods badMethodInfo
+ obsoleteWarners allObsoleteMethods checksPerformed'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::BrowserList subclass:#ClassGeneratorList
- instanceVariableNames:'organizerList categoryList namespaceList namespaceNameList
- projectList selectedCategories selectedNamespaces
- selectedProjects selectedClasses'
- classVariableNames:'AdditionalEmptyCategories AdditionalEmptyProjects'
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'organizerList categoryList namespaceList namespaceNameList
+ projectList selectedCategories selectedNamespaces
+ selectedProjects selectedClasses'
+ classVariableNames:'AdditionalEmptyCategories AdditionalEmptyProjects'
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::BrowserList subclass:#ClassList
- instanceVariableNames:'classList classNameList meta lastSelectedClasses
- selectedClassNameIndices currentNamespace hidePrivateClasses
- unloadedClassesColor markApplicationsHolder'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'classList classNameList meta lastSelectedClasses
+ selectedClassNameIndices currentNamespace hidePrivateClasses
+ unloadedClassesColor markApplicationsHolder'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::BrowserList subclass:#MethodCategoryList
- instanceVariableNames:'variableFilter filterClassVars lastSelectedProtocols classes
- protocolList rawProtocolList selectedProtocolIndices
- lastGeneratedProtocols noAllItem packageFilterOnInput
- methodVisibilityHolder'
- classVariableNames:'AdditionalEmptyCategoriesPerClassName'
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'variableFilter filterClassVars lastSelectedProtocols classes
+ protocolList rawProtocolList selectedProtocolIndices
+ lastGeneratedProtocols noAllItem packageFilterOnInput
+ methodVisibilityHolder'
+ classVariableNames:'AdditionalEmptyCategoriesPerClassName'
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::BrowserList subclass:#ClassCategoryList
- instanceVariableNames:'categoryList classes allSelected'
- classVariableNames:'AdditionalEmptyCategories'
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'categoryList classes allSelected'
+ classVariableNames:'AdditionalEmptyCategories'
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::ClassList subclass:#HierarchicalClassList
- instanceVariableNames:'topClassHolder'
- classVariableNames:'InheritedEntry'
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'topClassHolder'
+ classVariableNames:'InheritedEntry'
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::BrowserList subclass:#ProjectList
- instanceVariableNames:'projectList'
- classVariableNames:'AdditionalEmptyProjects'
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'projectList'
+ classVariableNames:'AdditionalEmptyProjects'
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::BrowserList subclass:#MethodList
- instanceVariableNames:'classes selectedMethodNameIndices methodList lastSelectedMethods
- browserNameList variableFilter filterClassVars updateProcess
- lastShowClass lastShowCategory lastShowClassFirst
- showMethodInheritance lastMethodClass lastMethodClassesSubclasses
- classAndSelectorsRedefinedBySubclassesOfClass'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'classes selectedMethodNameIndices methodList lastSelectedMethods
+ browserNameList variableFilter filterClassVars updateProcess
+ lastShowClass lastShowCategory lastShowClassFirst
+ showMethodInheritance lastMethodClass lastMethodClassesSubclasses
+ classAndSelectorsRedefinedBySubclassesOfClass'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::MethodList subclass:#ImplementingMethodList
- instanceVariableNames:'selectorList selectedSelectors'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'selectorList selectedSelectors'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::HierarchicalClassList subclass:#InheritanceClassList
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::MethodCategoryList subclass:#FullMethodCategoryList
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::MethodList subclass:#ImplementingClassList
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::BrowserList subclass:#NamespaceList
- instanceVariableNames:'namespaceNameList namespaceList'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'namespaceNameList namespaceList'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
Object subclass:#NavigationState
- instanceVariableNames:'browserLabel codeModifiedHolder categoryList classList
- packageFilter nameSpaceFilter hidePrivateClasses canvasType
- notMetaToggle metaToggle metaToggleLabel organizerMode codeAspect
- codeHolder classDocumentationHolder canvas selectorListGenerator
- protocolListGenerator classListPerNameSpaceGenerator
- classListGenerator categoryListGenerator nameSpaceListGenerator
- projectListGenerator classHierarchyTopClass meta selectedMethods
- selectedProtocols selectedClasses selectedCategories
- selectedProjects selectedNamespaces variableFilter
- filterClassVars sortBy noAllItem autoSearchPattern
- autoSearchIgnoreCase realModifiedState methodInfo
- versionDiffApplication selectorListGeneratorArray
- selectedMethodsArray infoLabelHolder packageLabelHolder
- cursorLineLabelHolder cursorColLabelHolder'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'browserLabel codeModifiedHolder categoryList classList
+ packageFilter nameSpaceFilter hidePrivateClasses canvasType
+ notMetaToggle metaToggle metaToggleLabel organizerMode codeAspect
+ codeHolder classDocumentationHolder canvas selectorListGenerator
+ protocolListGenerator classListPerNameSpaceGenerator
+ classListGenerator categoryListGenerator nameSpaceListGenerator
+ projectListGenerator classHierarchyTopClass meta selectedMethods
+ selectedProtocols selectedClasses selectedCategories
+ selectedProjects selectedNamespaces variableFilter
+ filterClassVars sortBy noAllItem autoSearchPattern
+ autoSearchIgnoreCase realModifiedState methodInfo
+ versionDiffApplication selectorListGeneratorArray
+ selectedMethodsArray infoLabelHolder packageLabelHolder
+ cursorLineLabelHolder cursorColLabelHolder'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::NavigatorModel subclass:#NavigatorCanvas
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::ClassCategoryList subclass:#HierarchicalClassCategoryList
- instanceVariableNames:'hierarchicalCategoryTree hierarchicalCategoryList
- hierarchicalCategorySelection categoryToItemDictionary'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'hierarchicalCategoryTree hierarchicalCategoryList
+ hierarchicalCategorySelection categoryToItemDictionary'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
HierarchicalItem subclass:#ClassCategoryItem
- instanceVariableNames:'label category'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser::HierarchicalClassCategoryList
+ instanceVariableNames:'label category'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser::HierarchicalClassCategoryList
!
NewSystemBrowser::NavigatorModel subclass:#OrganizerCanvas
- instanceVariableNames:'projectListSlaveMode namespaceListSlaveMode categoryListSlaveMode
- classInheritanceListSlaveMode classListSlaveMode
- classHierarchyListSlaveMode organizerMode metaToggle
- notMetaToggle meta classList classCategoryDoubleClickChannel
- classDoubleClickChannel classGeneratorHolder
- classGeneratorHolderFromClassCategory
- classGeneratorHolderFromClassHierarchy
- classGeneratorHolderFromProject classGeneratorHolderFromNamespace
- classCategoryListMenuHolder categoryListShown
- classCategoryListUpdateTrigger classListUpdateTrigger
- classListMenuHolder classHierarchyListMenuHolder
- projectListMenuHolder variablesMenuHolder filterClassVars
- variableFilter packageFilter nameSpaceFilter hidePrivateClasses
- hideUnloadedClasses showClassPackages immediateUpdate
- metaToggleLabelHolder selectedCategories selectedClasses
- selectedNamespaces selectedProjects selectionChangeCondition
- nameSpaceFilterSelection markApplicationsHolder'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'projectListSlaveMode namespaceListSlaveMode categoryListSlaveMode
+ classInheritanceListSlaveMode classListSlaveMode
+ classHierarchyListSlaveMode organizerMode metaToggle
+ notMetaToggle meta classList classCategoryDoubleClickChannel
+ classDoubleClickChannel classGeneratorHolder
+ classGeneratorHolderFromClassCategory
+ classGeneratorHolderFromClassHierarchy
+ classGeneratorHolderFromProject classGeneratorHolderFromNamespace
+ classCategoryListMenuHolder categoryListShown
+ classCategoryListUpdateTrigger classListUpdateTrigger
+ classListMenuHolder classHierarchyListMenuHolder
+ projectListMenuHolder variablesMenuHolder filterClassVars
+ variableFilter packageFilter nameSpaceFilter hidePrivateClasses
+ hideUnloadedClasses showClassPackages immediateUpdate
+ metaToggleLabelHolder selectedCategories selectedClasses
+ selectedNamespaces selectedProjects selectionChangeCondition
+ nameSpaceFilterSelection markApplicationsHolder'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::ProjectList subclass:#HierarchicalProjectList
- instanceVariableNames:'hierarchicalProjectTree selectedProjectItems packageIcon
- hierarchicalProjectList hierarchicalProjectSelection
- packageToItemDictionary'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'hierarchicalProjectTree selectedProjectItems packageIcon
+ hierarchicalProjectList hierarchicalProjectSelection
+ packageToItemDictionary'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
HierarchicalItem subclass:#ProjectItem
- instanceVariableNames:'label packageID'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser::HierarchicalProjectList
+ instanceVariableNames:'label packageID'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser::HierarchicalProjectList
!
ApplicationModel subclass:#SpecialCodeView
- instanceVariableNames:'displayMode'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'displayMode'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
NewSystemBrowser::BrowserList subclass:#VariableList
- instanceVariableNames:'variableList classHolder showClassVars'
- classVariableNames:''
- poolDictionaries:''
- privateIn:NewSystemBrowser
+ instanceVariableNames:'variableList classHolder showClassVars'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:NewSystemBrowser
!
!NewSystemBrowser class methodsFor:'documentation'!
@@ -8770,18 +8770,21 @@
#(#MenuItem
#label: 'Show Inherited Methods'
#translateLabel: true
+ #hideMenuOnActivated: false
#choice: #methodVisibilityHolder
#choiceValue: #all
)
#(#MenuItem
#label: 'Show Inherited Methods except Object''s'
#translateLabel: true
+ #hideMenuOnActivated: false
#choice: #methodVisibilityHolder
#choiceValue: #allButObject
)
#(#MenuItem
#label: 'Do not Show Inherited Methods'
#translateLabel: true
+ #hideMenuOnActivated: false
#choice: #methodVisibilityHolder
#choiceValue: #class
)
@@ -12317,6 +12320,7 @@
].
changedObject == selectedBuffer ifTrue:[
self enqueueDelayedLabelUpdate.
+ self organizerModeForMenu changed.
^ self.
].
changedObject == self organizerModeForMenu ifTrue:[
@@ -12420,9 +12424,9 @@
browseImplementorsOfAny
^ self
- askForMethodAndSpawnSearchTitle:'browse implementors of (any in selected):'
- browserLabel:'implementors (any in selected)'
- searchWith:[:classes :ignoredString :ignoredCase :match|
+ askForMethodAndSpawnSearchTitle:'Browse Implementors of (any in selected):'
+ browserLabel:'Implementors (any in selected)'
+ searchWith:[:ignoredString :classes :ignoredCase :match|
|selectors|
selectors := self selectedMethods value collect:[:each | each selector].
@@ -13769,7 +13773,7 @@
^ self
askForMethodAndSpawnSearchTitle:'Browse Senders of (any in selected):'
- browserLabel:'senders (any in selected)'
+ browserLabel:'Senders (any in selected)'
searchWith:[:ignoredString :classes :ignoredCase :match|
self class
findSendersOfAny:selectors
@@ -54264,7 +54268,7 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.495 2002-11-26 12:11:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.496 2002-11-28 11:04:58 cg Exp $'
! !
NewSystemBrowser initialize!