Tools__NewSystemBrowser.st
changeset 11862 2cec283241d6
parent 11856 3fc5522900ea
child 11872 9bfb3304e36c
--- a/Tools__NewSystemBrowser.st	Fri Oct 19 17:00:56 2012 +0200
+++ b/Tools__NewSystemBrowser.st	Fri Oct 19 17:01:34 2012 +0200
@@ -14,39 +14,39 @@
 "{ NameSpace: Tools }"
 
 SystemBrowser subclass:#NewSystemBrowser
-        instanceVariableNames:'navigationState bufferNameList selectedBuffer buffers
-                bufferUsageOrder browserCanvas immediateUpdate showClassPackages
-                lastMethodCategory lastMethodMoveClass browserCanvasType
-                syntaxColoringProcessRunning syntaxColoringProcess
-                methodInfoProcess browsletShowHideLabelHolder browserPageCanvas'
-        classVariableNames:'LastNewProtocols LastProtocolRenames LastCategoryRenames
-                LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
-                LastNameSpaceMove LastMethodMoveOrCopyTargetClass
-                LastClassFilterBlockString LastMethodFilterBlockString
-                LastBreakPointConditionString LastIndividualChecks
-                LastAcceptPackage LastVariableRenames LastVisitorClassName
-                LastTemporaryVariableName BookMarks FindHistory
-                CheckForInstancesWhenRemovingClasses SynchronousUpdate
-                DoubleClickIsOpenBrowser ShowMethodTemplateWhenProtocolIsSelected
-                DefaultShowMethodTemplate DefaultShowMethodInheritance
-                DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
-                DefaultImmediateExplaining DefaultSyntaxColoring
-                DefaultToolBarVisible DefaultCodeInfoVisible
-                DefaultShortNameInTabs DefaultHideUnloadedClasses
-                DefaultMarkApplications DefaultAutoFormat
-                DefaultShowMethodComplexity DefaultShowMethodTypeIcon
-                DefaultShowSpecialResourceEditors SharedMethodCategoryCache
-                LastMethodProcessingBlockString LastLoadedPackages
-                DefaultShortAllClassesInNameSpaceOrganisation LastTag
-                LastBaseVersionTag DefaultShowPseudoProtocols
-                DefaultShowMultitabMode LastRenamedOld LastRenamedNew
-                LastImportedPackage LastLintRules NewNavigationHistory
-                DefaultSortByNameAndInheritance LastLiteralReplacementType
-                LastLiteralReplacementNewName LastLiteralReplacementOldLiteral
-                LastNewProjectType LastClassProcessingBlockString
-                RecentlyClosedList'
-        poolDictionaries:''
-        category:'Interface-Browsers-New'
+	instanceVariableNames:'navigationState bufferNameList selectedBuffer buffers
+		bufferUsageOrder browserCanvas immediateUpdate showClassPackages
+		lastMethodCategory lastMethodMoveClass browserCanvasType
+		syntaxColoringProcessRunning syntaxColoringProcess
+		methodInfoProcess browsletShowHideLabelHolder browserPageCanvas'
+	classVariableNames:'LastNewProtocols LastProtocolRenames LastCategoryRenames
+		LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
+		LastNameSpaceMove LastMethodMoveOrCopyTargetClass
+		LastClassFilterBlockString LastMethodFilterBlockString
+		LastBreakPointConditionString LastIndividualChecks
+		LastAcceptPackage LastVariableRenames LastVisitorClassName
+		LastTemporaryVariableName BookMarks FindHistory
+		CheckForInstancesWhenRemovingClasses SynchronousUpdate
+		DoubleClickIsOpenBrowser ShowMethodTemplateWhenProtocolIsSelected
+		DefaultShowMethodTemplate DefaultShowMethodInheritance
+		DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
+		DefaultImmediateExplaining DefaultSyntaxColoring
+		DefaultToolBarVisible DefaultCodeInfoVisible
+		DefaultShortNameInTabs DefaultHideUnloadedClasses
+		DefaultMarkApplications DefaultAutoFormat
+		DefaultShowMethodComplexity DefaultShowMethodTypeIcon
+		DefaultShowSpecialResourceEditors SharedMethodCategoryCache
+		LastMethodProcessingBlockString LastLoadedPackages
+		DefaultShortAllClassesInNameSpaceOrganisation LastTag
+		LastBaseVersionTag DefaultShowPseudoProtocols
+		DefaultShowMultitabMode LastRenamedOld LastRenamedNew
+		LastImportedPackage LastLintRules NewNavigationHistory
+		DefaultSortByNameAndInheritance LastLiteralReplacementType
+		LastLiteralReplacementNewName LastLiteralReplacementOldLiteral
+		LastNewProjectType LastClassProcessingBlockString
+		RecentlyClosedList'
+	poolDictionaries:''
+	category:'Interface-Browsers-New'
 !
 
 !NewSystemBrowser class methodsFor:'documentation'!
@@ -47781,7 +47781,8 @@
         selfSendsOnly ifTrue:[
             l := mthd messagesSentToSelf.
         ] ifFalse:[
-            l := mthd messagesSent.
+            l := mthd messagesSent asArray.
+            l := l , (mthd messagesPossiblySent asArray collect:[:each | each colorizeAllWith:Color grey]).
         ].
         l size > 0 ifTrue:[
             l := l asSortedCollection.
@@ -47805,7 +47806,7 @@
 "
             l do:[:eachMessage |
                 item := MenuItem label:(' ' , (eachMessage contractTo:100), ' ').  "/ ' ' is a kludge - to allow '-' selector
-                item itemValue:actionSelector argument:eachMessage asSymbol.
+                item itemValue:actionSelector argument:eachMessage string asSymbol.
                 m addItem:item.
             ].
 
@@ -57596,11 +57597,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1791 2012-10-18 09:54:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1792 2012-10-19 15:01:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1791 2012-10-18 09:54:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1792 2012-10-19 15:01:34 cg Exp $'
 !
 
 version_SVN