--- a/NewSystemBrowser.st Tue Mar 06 12:48:13 2007 +0100
+++ b/NewSystemBrowser.st Tue Mar 06 12:48:42 2007 +0100
@@ -14,33 +14,33 @@
"{ NameSpace: Tools }"
SystemBrowser subclass:#NewSystemBrowser
- instanceVariableNames:'navigationState bufferNameList selectedBuffer buffers
- bufferUsageOrder browserCanvas immediateUpdate showClassPackages
- lastMethodCategory lastMethodMoveClass browserCanvasType
- syntaxColoringProcessRunning syntaxColoringProcess
- methodInfoProcess'
- classVariableNames:'LastNewProtocols LastProtocolRenames LastCategoryRenames
- LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
- LastNameSpaceMove LastMethodMoveOrCopyTargetClass
- LastSearchPatterns LastClassFilterBlockString
- LastMethodFilterBlockString LastBreakPointConditionString
- LastIndividualChecks LastAcceptPackage LastVariableRenames
- LastVisitorClassName LastTemporaryVariableName BookMarks
- FindHistory CheckForInstancesWhenRemovingClasses
- SynchronousUpdate DefaultIsNewBuffer DoubleClickIsOpenBrowser
- ShowMethodTemplateWhenProtocolIsSelected
- DefaultShowMethodTemplate DefaultShowMethodInheritance
- DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
- DefaultImmediateExplaining DefaultSyntaxColoring
- DefaultToolBarVisible DefaultCodeInfoVisible
- DefaultShortNameInTabs DefaultHideUnloadedClasses
- DefaultMarkApplications DefaultAutoFormat
- DefaultShowMethodComplexity DefaultShowMethodTypeIcon
- DefaultShowSpecialResourceEditors SharedMethodCategoryCache
- LastMethodProcessingBlockString PreviousBuildDirectory
- LastLoadedPackage'
- poolDictionaries:''
- category:'Interface-Browsers-New'
+ instanceVariableNames:'navigationState bufferNameList selectedBuffer buffers
+ bufferUsageOrder browserCanvas immediateUpdate showClassPackages
+ lastMethodCategory lastMethodMoveClass browserCanvasType
+ syntaxColoringProcessRunning syntaxColoringProcess
+ methodInfoProcess'
+ classVariableNames:'LastNewProtocols LastProtocolRenames LastCategoryRenames
+ LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
+ LastNameSpaceMove LastMethodMoveOrCopyTargetClass
+ LastSearchPatterns LastClassFilterBlockString
+ LastMethodFilterBlockString LastBreakPointConditionString
+ LastIndividualChecks LastAcceptPackage LastVariableRenames
+ LastVisitorClassName LastTemporaryVariableName BookMarks
+ FindHistory CheckForInstancesWhenRemovingClasses
+ SynchronousUpdate DefaultIsNewBuffer DoubleClickIsOpenBrowser
+ ShowMethodTemplateWhenProtocolIsSelected
+ DefaultShowMethodTemplate DefaultShowMethodInheritance
+ DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
+ DefaultImmediateExplaining DefaultSyntaxColoring
+ DefaultToolBarVisible DefaultCodeInfoVisible
+ DefaultShortNameInTabs DefaultHideUnloadedClasses
+ DefaultMarkApplications DefaultAutoFormat
+ DefaultShowMethodComplexity DefaultShowMethodTypeIcon
+ DefaultShowSpecialResourceEditors SharedMethodCategoryCache
+ LastMethodProcessingBlockString PreviousBuildDirectory
+ LastLoadedPackage DefaultShortAllClassesInNameSpaceOrganisation'
+ poolDictionaries:''
+ category:'Interface-Browsers-New'
!
NewSystemBrowser comment:'declared from: ..\..\..\stx\libtool\abbrev.stc'
@@ -9636,7 +9636,7 @@
<resource: #menu>
- ^
+ ^
#(Menu
(
(MenuItem
@@ -9709,6 +9709,12 @@
indication: hideUnloadedClasses
)
(MenuItem
+ label: 'Show All Classes in NameSpace View'
+ translateLabel: true
+ indication: showAllClassesInNameSpaceOrganisation
+ hideMenuOnActivated: false
+ )
+ (MenuItem
label: '-'
)
(MenuItem
@@ -9738,7 +9744,7 @@
(MenuItem
label: 'Indicators'
translateLabel: true
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -9779,10 +9785,136 @@
indication: showMethodTypeIcon
)
(MenuItem
+ enabled: oomPackageLoaded
label: 'Show Method-Complexity'
translateLabel: true
hideMenuOnActivated: false
indication: showMethodComplexity
+ )
+ )
+ nil
+ nil
+ )
+ )
+ )
+ nil
+ nil
+ )
+
+ "Modified: / 06-03-2007 / 12:23:58 / cg"
+!
+
+viewMenuForChainBrowser
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+ "
+ MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#viewMenuForChainBrowser
+ (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser viewMenuForChainBrowser)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: 'Original Order'
+ translateLabel: true
+ hideMenuOnActivated: false
+ choice: sortBy
+ choiceValue: false
+ )
+ (MenuItem
+ label: 'Sort by Class'
+ translateLabel: true
+ hideMenuOnActivated: false
+ choice: sortBy
+ choiceValue: class
+ )
+ (MenuItem
+ label: 'Sort by Selector'
+ translateLabel: true
+ hideMenuOnActivated: false
+ choice: sortBy
+ choiceValue: selector
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Toolbar'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: toolBarVisibleHolder
+ )
+ (MenuItem
+ label: 'Info'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: codeInfoVisible
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Hide Unloaded Classes'
+ translateLabel: true
+ isVisible: false
+ hideMenuOnActivated: false
+ indication: hideUnloadedClasses
+ )
+ (MenuItem
+ label: 'Short Class Names in Tabs'
+ translateLabel: true
+ isVisible: false
+ hideMenuOnActivated: false
+ indication: shortNamesInTabs
+ )
+ (MenuItem
+ enabled: showUnloadedClasses
+ label: 'Emphasize Unloaded Classes'
+ translateLabel: true
+ isVisible: false
+ hideMenuOnActivated: false
+ indication: emphasizeUnloadedClasses
+ )
+ (MenuItem
+ label: '-'
+ isVisible: false
+ )
+ (MenuItem
+ label: 'Indicators'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Show Class-Packages'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: showClassPackages
+ )
+ (MenuItem
+ label: 'Show Inheritance Indicator'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: showMethodInheritance
+ )
+ (MenuItem
+ label: 'Show Type Indicator'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: showMethodTypeIcon
+ )
+ (MenuItem
+ label: 'Show Complexity'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: showMethodComplexity
enabled: oomPackageLoaded
)
)
@@ -9794,117 +9926,8 @@
nil
nil
)
-!
-
-viewMenuForChainBrowser
- "This resource specification was automatically generated
- by the MenuEditor of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the MenuEditor may not be able to read the specification."
-
- "
- MenuEditor new openOnClass:NewSystemBrowser andSelector:#viewMenuForChainBrowser
- (Menu new fromLiteralArrayEncoding:(NewSystemBrowser viewMenuForChainBrowser)) startUp
- "
-
- <resource: #menu>
-
- ^
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Original Order'
- #translateLabel: true
- #hideMenuOnActivated: false
- #choice: #sortBy
- #choiceValue: false
- )
- #(#MenuItem
- #label: 'Sort by Class'
- #translateLabel: true
- #hideMenuOnActivated: false
- #choice: #sortBy
- #choiceValue: #class
- )
- #(#MenuItem
- #label: 'Sort by Selector'
- #translateLabel: true
- #hideMenuOnActivated: false
- #choice: #sortBy
- #choiceValue: #selector
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Hide Unloaded Classes'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #hideUnloadedClasses
- #isVisible: false
- )
- #(#MenuItem
- #label: 'Short Class Names in Tabs'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #shortNamesInTabs
- #isVisible: false
- )
- #(#MenuItem
- #label: 'Emphasize Unloaded Classes'
- #translateLabel: true
- #hideMenuOnActivated: false
- #enabled: #showUnloadedClasses
- #indication: #emphasizeUnloadedClasses
- #isVisible: false
- )
- #(#MenuItem
- #label: 'Show Class-Packages'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #showClassPackages
- )
- #(#MenuItem
- #label: 'Show Inheritance Indicator'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #showMethodInheritance
- #isVisible: true "false"
- )
- (MenuItem
- label: 'Show Type Indicator'
- translateLabel: true
- hideMenuOnActivated: false
- indication: showMethodTypeIcon
- )
- #(#MenuItem
- #label: 'Show Complexity'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #showMethodComplexity
- #isVisible: true "false"
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Toolbar'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #toolBarVisibleHolder
- )
- #(#MenuItem
- #label: 'Info'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #codeInfoVisible
- #isVisible: true
- )
- )
- nil
- nil
- )
+
+ "Modified: / 05-03-2007 / 16:40:07 / cg"
!
viewMenuForMethodList
@@ -9915,116 +9938,129 @@
the MenuEditor may not be able to read the specification."
"
- MenuEditor new openOnClass:NewSystemBrowser andSelector:#viewMenuForMethodList
- (Menu new fromLiteralArrayEncoding:(NewSystemBrowser viewMenuForMethodList)) startUp
- "
-
- <resource: #menu>
-
- ^
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Original Order'
- #translateLabel: true
- #hideMenuOnActivated: false
- #choice: #sortBy
- #choiceValue: false
- )
- #(#MenuItem
- #label: 'Sort by Class'
- #translateLabel: true
- #hideMenuOnActivated: false
- #choice: #sortBy
- #choiceValue: #class
- )
- #(#MenuItem
- #label: 'Sort by Selector'
- #translateLabel: true
- #hideMenuOnActivated: false
- #choice: #sortBy
- #choiceValue: #selector
- )
- #(#MenuItem
- #label: 'Sort by Category'
- #translateLabel: true
- #hideMenuOnActivated: false
- #choice: #sortBy
- #choiceValue: #category
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Hide Unloaded Classes'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #hideUnloadedClasses
- #isVisible: false
- )
- #(#MenuItem
- #label: 'Short Class Names in Tabs'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #shortNamesInTabs
- #isVisible: false
- )
- #(#MenuItem
- #label: 'Emphasize Unloaded Classes'
- #translateLabel: true
- #hideMenuOnActivated: false
- #enabled: #showUnloadedClasses
- #indication: #emphasizeUnloadedClasses
- #isVisible: false
- )
- #(#MenuItem
- #label: 'Show Class-Packages'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #showClassPackages
- )
- #(#MenuItem
- #label: 'Show Inheritance Indicator'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #showMethodInheritance
- #isVisible: true "false"
- )
- (MenuItem
- label: 'Show Type Indicator'
+ MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#viewMenuForMethodList
+ (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser viewMenuForMethodList)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: 'Original Order'
+ translateLabel: true
+ hideMenuOnActivated: false
+ choice: sortBy
+ choiceValue: false
+ )
+ (MenuItem
+ label: 'Sort by Class'
+ translateLabel: true
+ hideMenuOnActivated: false
+ choice: sortBy
+ choiceValue: class
+ )
+ (MenuItem
+ label: 'Sort by Selector'
+ translateLabel: true
+ hideMenuOnActivated: false
+ choice: sortBy
+ choiceValue: selector
+ )
+ (MenuItem
+ label: 'Sort by Category'
+ translateLabel: true
+ hideMenuOnActivated: false
+ choice: sortBy
+ choiceValue: category
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Toolbar'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: toolBarVisibleHolder
+ )
+ (MenuItem
+ label: 'Info'
translateLabel: true
hideMenuOnActivated: false
- indication: showMethodTypeIcon
- )
- #(#MenuItem
- #label: 'Show Complexity'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #showMethodComplexity
- #isVisible: true "false"
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Toolbar'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #toolBarVisibleHolder
- )
- #(#MenuItem
- #label: 'Info'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #codeInfoVisible
- #isVisible: true
- )
- )
- nil
- nil
- )
-
- "Modified: / 26-01-2007 / 14:54:06 / cg"
+ indication: codeInfoVisible
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Hide Unloaded Classes'
+ translateLabel: true
+ isVisible: false
+ hideMenuOnActivated: false
+ indication: hideUnloadedClasses
+ )
+ (MenuItem
+ label: 'Short Class Names in Tabs'
+ translateLabel: true
+ isVisible: false
+ hideMenuOnActivated: false
+ indication: shortNamesInTabs
+ )
+ (MenuItem
+ enabled: showUnloadedClasses
+ label: 'Emphasize Unloaded Classes'
+ translateLabel: true
+ isVisible: false
+ hideMenuOnActivated: false
+ indication: emphasizeUnloadedClasses
+ )
+ (MenuItem
+ label: '-'
+ isVisible: false
+ )
+ (MenuItem
+ label: 'Indicators'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Show Class-Packages'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: showClassPackages
+ )
+ (MenuItem
+ label: 'Show Inheritance Indicator'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: showMethodInheritance
+ )
+ (MenuItem
+ label: 'Show Type Indicator'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: showMethodTypeIcon
+ )
+ (MenuItem
+ label: 'Show Complexity'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: showMethodComplexity
+ enabled: oomPackageLoaded
+ )
+ )
+ nil
+ nil
+ )
+ )
+ )
+ nil
+ nil
+ )
+
+ "Modified: / 05-03-2007 / 16:40:03 / cg"
! !
!NewSystemBrowser class methodsFor:'menu specs-dialogs'!
@@ -11865,6 +11901,20 @@
^ holder
!
+showAllClassesInNameSpaceOrganisation
+ |holder|
+
+ (holder := builder bindingAt:#showAllClassesInNameSpaceOrganisation) isNil ifTrue:[
+ holder := (DefaultShortAllClassesInNameSpaceOrganisation ? false) asValue.
+ builder aspectAt:#showAllClassesInNameSpaceOrganisation put: holder.
+ holder onChangeEvaluate:[ DefaultShortAllClassesInNameSpaceOrganisation := holder value ].
+ ].
+ ^ holder
+
+ "Created: / 05-03-2007 / 16:30:29 / cg"
+ "Modified: / 06-03-2007 / 12:20:19 / cg"
+!
+
showClassPackages
showClassPackages isNil ifTrue:[
showClassPackages := false asValue.
@@ -40769,7 +40819,7 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1148 2007-03-01 20:04:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1149 2007-03-06 11:48:42 cg Exp $'
! !
NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st Tue Mar 06 12:48:13 2007 +0100
+++ b/Tools__NewSystemBrowser.st Tue Mar 06 12:48:42 2007 +0100
@@ -14,33 +14,33 @@
"{ NameSpace: Tools }"
SystemBrowser subclass:#NewSystemBrowser
- instanceVariableNames:'navigationState bufferNameList selectedBuffer buffers
- bufferUsageOrder browserCanvas immediateUpdate showClassPackages
- lastMethodCategory lastMethodMoveClass browserCanvasType
- syntaxColoringProcessRunning syntaxColoringProcess
- methodInfoProcess'
- classVariableNames:'LastNewProtocols LastProtocolRenames LastCategoryRenames
- LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
- LastNameSpaceMove LastMethodMoveOrCopyTargetClass
- LastSearchPatterns LastClassFilterBlockString
- LastMethodFilterBlockString LastBreakPointConditionString
- LastIndividualChecks LastAcceptPackage LastVariableRenames
- LastVisitorClassName LastTemporaryVariableName BookMarks
- FindHistory CheckForInstancesWhenRemovingClasses
- SynchronousUpdate DefaultIsNewBuffer DoubleClickIsOpenBrowser
- ShowMethodTemplateWhenProtocolIsSelected
- DefaultShowMethodTemplate DefaultShowMethodInheritance
- DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
- DefaultImmediateExplaining DefaultSyntaxColoring
- DefaultToolBarVisible DefaultCodeInfoVisible
- DefaultShortNameInTabs DefaultHideUnloadedClasses
- DefaultMarkApplications DefaultAutoFormat
- DefaultShowMethodComplexity DefaultShowMethodTypeIcon
- DefaultShowSpecialResourceEditors SharedMethodCategoryCache
- LastMethodProcessingBlockString PreviousBuildDirectory
- LastLoadedPackage'
- poolDictionaries:''
- category:'Interface-Browsers-New'
+ instanceVariableNames:'navigationState bufferNameList selectedBuffer buffers
+ bufferUsageOrder browserCanvas immediateUpdate showClassPackages
+ lastMethodCategory lastMethodMoveClass browserCanvasType
+ syntaxColoringProcessRunning syntaxColoringProcess
+ methodInfoProcess'
+ classVariableNames:'LastNewProtocols LastProtocolRenames LastCategoryRenames
+ LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
+ LastNameSpaceMove LastMethodMoveOrCopyTargetClass
+ LastSearchPatterns LastClassFilterBlockString
+ LastMethodFilterBlockString LastBreakPointConditionString
+ LastIndividualChecks LastAcceptPackage LastVariableRenames
+ LastVisitorClassName LastTemporaryVariableName BookMarks
+ FindHistory CheckForInstancesWhenRemovingClasses
+ SynchronousUpdate DefaultIsNewBuffer DoubleClickIsOpenBrowser
+ ShowMethodTemplateWhenProtocolIsSelected
+ DefaultShowMethodTemplate DefaultShowMethodInheritance
+ DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
+ DefaultImmediateExplaining DefaultSyntaxColoring
+ DefaultToolBarVisible DefaultCodeInfoVisible
+ DefaultShortNameInTabs DefaultHideUnloadedClasses
+ DefaultMarkApplications DefaultAutoFormat
+ DefaultShowMethodComplexity DefaultShowMethodTypeIcon
+ DefaultShowSpecialResourceEditors SharedMethodCategoryCache
+ LastMethodProcessingBlockString PreviousBuildDirectory
+ LastLoadedPackage DefaultShortAllClassesInNameSpaceOrganisation'
+ poolDictionaries:''
+ category:'Interface-Browsers-New'
!
NewSystemBrowser comment:'declared from: ..\..\..\stx\libtool\abbrev.stc'
@@ -9636,7 +9636,7 @@
<resource: #menu>
- ^
+ ^
#(Menu
(
(MenuItem
@@ -9709,6 +9709,12 @@
indication: hideUnloadedClasses
)
(MenuItem
+ label: 'Show All Classes in NameSpace View'
+ translateLabel: true
+ indication: showAllClassesInNameSpaceOrganisation
+ hideMenuOnActivated: false
+ )
+ (MenuItem
label: '-'
)
(MenuItem
@@ -9738,7 +9744,7 @@
(MenuItem
label: 'Indicators'
translateLabel: true
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -9779,10 +9785,136 @@
indication: showMethodTypeIcon
)
(MenuItem
+ enabled: oomPackageLoaded
label: 'Show Method-Complexity'
translateLabel: true
hideMenuOnActivated: false
indication: showMethodComplexity
+ )
+ )
+ nil
+ nil
+ )
+ )
+ )
+ nil
+ nil
+ )
+
+ "Modified: / 06-03-2007 / 12:23:58 / cg"
+!
+
+viewMenuForChainBrowser
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+ "
+ MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#viewMenuForChainBrowser
+ (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser viewMenuForChainBrowser)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: 'Original Order'
+ translateLabel: true
+ hideMenuOnActivated: false
+ choice: sortBy
+ choiceValue: false
+ )
+ (MenuItem
+ label: 'Sort by Class'
+ translateLabel: true
+ hideMenuOnActivated: false
+ choice: sortBy
+ choiceValue: class
+ )
+ (MenuItem
+ label: 'Sort by Selector'
+ translateLabel: true
+ hideMenuOnActivated: false
+ choice: sortBy
+ choiceValue: selector
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Toolbar'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: toolBarVisibleHolder
+ )
+ (MenuItem
+ label: 'Info'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: codeInfoVisible
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Hide Unloaded Classes'
+ translateLabel: true
+ isVisible: false
+ hideMenuOnActivated: false
+ indication: hideUnloadedClasses
+ )
+ (MenuItem
+ label: 'Short Class Names in Tabs'
+ translateLabel: true
+ isVisible: false
+ hideMenuOnActivated: false
+ indication: shortNamesInTabs
+ )
+ (MenuItem
+ enabled: showUnloadedClasses
+ label: 'Emphasize Unloaded Classes'
+ translateLabel: true
+ isVisible: false
+ hideMenuOnActivated: false
+ indication: emphasizeUnloadedClasses
+ )
+ (MenuItem
+ label: '-'
+ isVisible: false
+ )
+ (MenuItem
+ label: 'Indicators'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Show Class-Packages'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: showClassPackages
+ )
+ (MenuItem
+ label: 'Show Inheritance Indicator'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: showMethodInheritance
+ )
+ (MenuItem
+ label: 'Show Type Indicator'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: showMethodTypeIcon
+ )
+ (MenuItem
+ label: 'Show Complexity'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: showMethodComplexity
enabled: oomPackageLoaded
)
)
@@ -9794,117 +9926,8 @@
nil
nil
)
-!
-
-viewMenuForChainBrowser
- "This resource specification was automatically generated
- by the MenuEditor of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the MenuEditor may not be able to read the specification."
-
- "
- MenuEditor new openOnClass:NewSystemBrowser andSelector:#viewMenuForChainBrowser
- (Menu new fromLiteralArrayEncoding:(NewSystemBrowser viewMenuForChainBrowser)) startUp
- "
-
- <resource: #menu>
-
- ^
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Original Order'
- #translateLabel: true
- #hideMenuOnActivated: false
- #choice: #sortBy
- #choiceValue: false
- )
- #(#MenuItem
- #label: 'Sort by Class'
- #translateLabel: true
- #hideMenuOnActivated: false
- #choice: #sortBy
- #choiceValue: #class
- )
- #(#MenuItem
- #label: 'Sort by Selector'
- #translateLabel: true
- #hideMenuOnActivated: false
- #choice: #sortBy
- #choiceValue: #selector
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Hide Unloaded Classes'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #hideUnloadedClasses
- #isVisible: false
- )
- #(#MenuItem
- #label: 'Short Class Names in Tabs'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #shortNamesInTabs
- #isVisible: false
- )
- #(#MenuItem
- #label: 'Emphasize Unloaded Classes'
- #translateLabel: true
- #hideMenuOnActivated: false
- #enabled: #showUnloadedClasses
- #indication: #emphasizeUnloadedClasses
- #isVisible: false
- )
- #(#MenuItem
- #label: 'Show Class-Packages'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #showClassPackages
- )
- #(#MenuItem
- #label: 'Show Inheritance Indicator'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #showMethodInheritance
- #isVisible: true "false"
- )
- (MenuItem
- label: 'Show Type Indicator'
- translateLabel: true
- hideMenuOnActivated: false
- indication: showMethodTypeIcon
- )
- #(#MenuItem
- #label: 'Show Complexity'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #showMethodComplexity
- #isVisible: true "false"
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Toolbar'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #toolBarVisibleHolder
- )
- #(#MenuItem
- #label: 'Info'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #codeInfoVisible
- #isVisible: true
- )
- )
- nil
- nil
- )
+
+ "Modified: / 05-03-2007 / 16:40:07 / cg"
!
viewMenuForMethodList
@@ -9915,116 +9938,129 @@
the MenuEditor may not be able to read the specification."
"
- MenuEditor new openOnClass:NewSystemBrowser andSelector:#viewMenuForMethodList
- (Menu new fromLiteralArrayEncoding:(NewSystemBrowser viewMenuForMethodList)) startUp
- "
-
- <resource: #menu>
-
- ^
- #(#Menu
- #(
- #(#MenuItem
- #label: 'Original Order'
- #translateLabel: true
- #hideMenuOnActivated: false
- #choice: #sortBy
- #choiceValue: false
- )
- #(#MenuItem
- #label: 'Sort by Class'
- #translateLabel: true
- #hideMenuOnActivated: false
- #choice: #sortBy
- #choiceValue: #class
- )
- #(#MenuItem
- #label: 'Sort by Selector'
- #translateLabel: true
- #hideMenuOnActivated: false
- #choice: #sortBy
- #choiceValue: #selector
- )
- #(#MenuItem
- #label: 'Sort by Category'
- #translateLabel: true
- #hideMenuOnActivated: false
- #choice: #sortBy
- #choiceValue: #category
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Hide Unloaded Classes'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #hideUnloadedClasses
- #isVisible: false
- )
- #(#MenuItem
- #label: 'Short Class Names in Tabs'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #shortNamesInTabs
- #isVisible: false
- )
- #(#MenuItem
- #label: 'Emphasize Unloaded Classes'
- #translateLabel: true
- #hideMenuOnActivated: false
- #enabled: #showUnloadedClasses
- #indication: #emphasizeUnloadedClasses
- #isVisible: false
- )
- #(#MenuItem
- #label: 'Show Class-Packages'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #showClassPackages
- )
- #(#MenuItem
- #label: 'Show Inheritance Indicator'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #showMethodInheritance
- #isVisible: true "false"
- )
- (MenuItem
- label: 'Show Type Indicator'
+ MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#viewMenuForMethodList
+ (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser viewMenuForMethodList)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: 'Original Order'
+ translateLabel: true
+ hideMenuOnActivated: false
+ choice: sortBy
+ choiceValue: false
+ )
+ (MenuItem
+ label: 'Sort by Class'
+ translateLabel: true
+ hideMenuOnActivated: false
+ choice: sortBy
+ choiceValue: class
+ )
+ (MenuItem
+ label: 'Sort by Selector'
+ translateLabel: true
+ hideMenuOnActivated: false
+ choice: sortBy
+ choiceValue: selector
+ )
+ (MenuItem
+ label: 'Sort by Category'
+ translateLabel: true
+ hideMenuOnActivated: false
+ choice: sortBy
+ choiceValue: category
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Toolbar'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: toolBarVisibleHolder
+ )
+ (MenuItem
+ label: 'Info'
translateLabel: true
hideMenuOnActivated: false
- indication: showMethodTypeIcon
- )
- #(#MenuItem
- #label: 'Show Complexity'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #showMethodComplexity
- #isVisible: true "false"
- )
- #(#MenuItem
- #label: '-'
- )
- #(#MenuItem
- #label: 'Toolbar'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #toolBarVisibleHolder
- )
- #(#MenuItem
- #label: 'Info'
- #translateLabel: true
- #hideMenuOnActivated: false
- #indication: #codeInfoVisible
- #isVisible: true
- )
- )
- nil
- nil
- )
-
- "Modified: / 26-01-2007 / 14:54:06 / cg"
+ indication: codeInfoVisible
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Hide Unloaded Classes'
+ translateLabel: true
+ isVisible: false
+ hideMenuOnActivated: false
+ indication: hideUnloadedClasses
+ )
+ (MenuItem
+ label: 'Short Class Names in Tabs'
+ translateLabel: true
+ isVisible: false
+ hideMenuOnActivated: false
+ indication: shortNamesInTabs
+ )
+ (MenuItem
+ enabled: showUnloadedClasses
+ label: 'Emphasize Unloaded Classes'
+ translateLabel: true
+ isVisible: false
+ hideMenuOnActivated: false
+ indication: emphasizeUnloadedClasses
+ )
+ (MenuItem
+ label: '-'
+ isVisible: false
+ )
+ (MenuItem
+ label: 'Indicators'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Show Class-Packages'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: showClassPackages
+ )
+ (MenuItem
+ label: 'Show Inheritance Indicator'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: showMethodInheritance
+ )
+ (MenuItem
+ label: 'Show Type Indicator'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: showMethodTypeIcon
+ )
+ (MenuItem
+ label: 'Show Complexity'
+ translateLabel: true
+ hideMenuOnActivated: false
+ indication: showMethodComplexity
+ enabled: oomPackageLoaded
+ )
+ )
+ nil
+ nil
+ )
+ )
+ )
+ nil
+ nil
+ )
+
+ "Modified: / 05-03-2007 / 16:40:03 / cg"
! !
!NewSystemBrowser class methodsFor:'menu specs-dialogs'!
@@ -11865,6 +11901,20 @@
^ holder
!
+showAllClassesInNameSpaceOrganisation
+ |holder|
+
+ (holder := builder bindingAt:#showAllClassesInNameSpaceOrganisation) isNil ifTrue:[
+ holder := (DefaultShortAllClassesInNameSpaceOrganisation ? false) asValue.
+ builder aspectAt:#showAllClassesInNameSpaceOrganisation put: holder.
+ holder onChangeEvaluate:[ DefaultShortAllClassesInNameSpaceOrganisation := holder value ].
+ ].
+ ^ holder
+
+ "Created: / 05-03-2007 / 16:30:29 / cg"
+ "Modified: / 06-03-2007 / 12:20:19 / cg"
+!
+
showClassPackages
showClassPackages isNil ifTrue:[
showClassPackages := false asValue.
@@ -40769,7 +40819,7 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1148 2007-03-01 20:04:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1149 2007-03-06 11:48:42 cg Exp $'
! !
NewSystemBrowser initialize!