Tools__NewSystemBrowser.st
changeset 18891 a1a8f0c6fd85
parent 18886 de46e21a634e
child 18933 e24abf1a0cfd
--- a/Tools__NewSystemBrowser.st	Fri Jul 12 12:14:40 2019 +0200
+++ b/Tools__NewSystemBrowser.st	Fri Jul 12 12:27:34 2019 +0200
@@ -14,66 +14,66 @@
 "{ NameSpace: Tools }"
 
 SystemBrowser subclass:#NewSystemBrowser
-	instanceVariableNames:'environmentHolder environment navigationState bufferNameList
-		selectedBuffer buffers bufferUsageOrder browserCanvas
-		immediateUpdate showClassPackages lastMethodCategory
-		lastMethodMoveClass browserCanvasType
-		syntaxColoringProcessRunning syntaxColoringProcess
-		methodInfoProcess browsletShowHideLabelHolder browserPageCanvas
-		isEmbedded hasNonEmptyEnvironmentSelectedHolder
-		smalllintRulesOrAllHolder smalllintRulesOrDefaultHolder
-		explainProcess'
-	classVariableNames:'AutoCreateDocumentationMethod CachedMethodsImplemented
-		CachedTagToRevisionMapping DefaultAutoFormat
-		DefaultCodeInfoVisible DefaultEmphasizeUnloadedClasses
-		DefaultHideUnloadedClasses DefaultImmediateExplaining
-		DefaultImmediateSyntaxColoring DefaultMarkApplications
-		DefaultShortAllClassesInNameSpaceOrganisation
-		DefaultShortNameInTabs DefaultShowCoverage
-		DefaultShowImageResourceMethodsImages DefaultShowMethodComplexity
-		DefaultShowMethodInheritance DefaultShowMethodTypeIcon
-		DefaultShowMultitabMode DefaultShowPseudoProtocols
-		DefaultShowSpecialResourceEditors DefaultShowSyntheticMethods
-		DefaultSyntaxColoring DefaultToolBarVisible
-		DoubleClickIsOpenBrowser FindHistory LastAcceptPackage
-		LastBaseVersionTag LastBreakPointConditionString
-		LastBreakPointOnReturnConditionString LastCategoryRenameNew
-		LastCategoryRenameOld LastCategoryRenames LastClassDocDirectory
-		LastClassFilterBlockString LastClassProcessingBlockString
-		LastClassSearchBoxShowedFullName LastClassSearchBoxShowedJavaOnly
-		LastComparedClassName LastCypressDirectory LastImportedPackage
-		LastIndividualChecks LastLintRulesHolder LastLintedPackage
-		LastLiteralReplacementNewName LastLiteralReplacementOldLiteral
-		LastLiteralReplacementType LastLoadedPackages
-		LastMethodFilterBlockString LastMethodMoveOrCopyTargetClass
-		LastMethodProcessingBlockString LastNameSpaceMove
-		LastNewProjectType LastNewProtocols LastProjectMoves
-		LastProtocolRenames LastRemoteRepository LastRenamedNew
-		LastRenamedOld LastSearchedImplementors LastSearchedSenders
-		LastShowNameFilter LastShowSelectorNameFilter LastTag
-		LastTemporaryVariableName LastVariableRenames
-		LastVisitorClassName NewNavigationHistory RecentlyClosedList
-		SharedMethodCategoryCache
-		ShowMethodTemplateWhenProtocolIsSelected
-		SkipCompilabilityChecksForFastCheckin SynchronousUpdate
-		ShowAboutToRewriteConfirmer AlwaysDoThisIfMethodNotInList
-		LastClassSearchPattern NewestRevisionPerClass'
-	poolDictionaries:''
-	category:'Interface-Browsers-New'
+        instanceVariableNames:'environmentHolder environment navigationState bufferNameList
+                selectedBuffer buffers bufferUsageOrder browserCanvas
+                immediateUpdate showClassPackages lastMethodCategory
+                lastMethodMoveClass browserCanvasType
+                syntaxColoringProcessRunning syntaxColoringProcess
+                methodInfoProcess browsletShowHideLabelHolder browserPageCanvas
+                isEmbedded hasNonEmptyEnvironmentSelectedHolder
+                smalllintRulesOrAllHolder smalllintRulesOrDefaultHolder
+                explainProcess'
+        classVariableNames:'AutoCreateDocumentationMethod CachedMethodsImplemented
+                CachedTagToRevisionMapping DefaultAutoFormat
+                DefaultCodeInfoVisible DefaultEmphasizeUnloadedClasses
+                DefaultHideUnloadedClasses DefaultImmediateExplaining
+                DefaultImmediateSyntaxColoring DefaultMarkApplications
+                DefaultShortAllClassesInNameSpaceOrganisation
+                DefaultShortNameInTabs DefaultShowCoverage
+                DefaultShowImageResourceMethodsImages DefaultShowMethodComplexity
+                DefaultShowMethodInheritance DefaultShowMethodTypeIcon
+                DefaultShowMultitabMode DefaultShowPseudoProtocols
+                DefaultShowSpecialResourceEditors DefaultShowSyntheticMethods
+                DefaultSyntaxColoring DefaultToolBarVisible
+                DoubleClickIsOpenBrowser FindHistory LastAcceptPackage
+                LastBaseVersionTag LastBreakPointConditionString
+                LastBreakPointOnReturnConditionString LastCategoryRenameNew
+                LastCategoryRenameOld LastCategoryRenames LastClassDocDirectory
+                LastClassFilterBlockString LastClassProcessingBlockString
+                LastClassSearchBoxShowedFullName LastClassSearchBoxShowedJavaOnly
+                LastComparedClassName LastCypressDirectory LastImportedPackage
+                LastIndividualChecks LastLintRulesHolder LastLintedPackage
+                LastLiteralReplacementNewName LastLiteralReplacementOldLiteral
+                LastLiteralReplacementType LastLoadedPackages
+                LastMethodFilterBlockString LastMethodMoveOrCopyTargetClass
+                LastMethodProcessingBlockString LastNameSpaceMove
+                LastNewProjectType LastNewProtocols LastProjectMoves
+                LastProtocolRenames LastRemoteRepository LastRenamedNew
+                LastRenamedOld LastSearchedImplementors LastSearchedSenders
+                LastShowNameFilter LastShowSelectorNameFilter LastTag
+                LastTemporaryVariableName LastVariableRenames
+                LastVisitorClassName NewNavigationHistory RecentlyClosedList
+                SharedMethodCategoryCache
+                ShowMethodTemplateWhenProtocolIsSelected
+                SkipCompilabilityChecksForFastCheckin SynchronousUpdate
+                ShowAboutToRewriteConfirmer AlwaysDoThisIfMethodNotInList
+                LastClassSearchPattern NewestRevisionPerClass'
+        poolDictionaries:''
+        category:'Interface-Browsers-New'
 !
 
 ListEntry subclass:#OwnershipGraph
-	instanceVariableNames:'ownershipInfo cachedForm'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:NewSystemBrowser
+        instanceVariableNames:'ownershipInfo cachedForm'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:NewSystemBrowser
 !
 
 Object subclass:#RevisionOwnershipInfo
-	instanceVariableNames:'revision author date lineOwnership'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:NewSystemBrowser::OwnershipGraph
+        instanceVariableNames:'revision author date lineOwnership'
+        classVariableNames:''
+        poolDictionaries:''
+        privateIn:NewSystemBrowser::OwnershipGraph
 !
 
 !NewSystemBrowser class methodsFor:'documentation'!
@@ -28612,8 +28612,8 @@
     self
         askForMethodAndSpawnSearchTitle:'String to Search for in Sources:'
         browserLabel:'Methods containing "%1"'
-        searchWith:#( #'findString:in:ignoreCase:match:fullWordsOnly:' #'findString:inMethods:ignoreCase:match:' 
-                      #'findStringLiteral:in:ignoreCase:match:fullWordsOnly:' #'findStringLiteral:inMethods:ignoreCase:match:fullWordsOnly:' )
+        searchWith:#( #'findString:in:ignoreCase:match:fullWordsOnly:resourceMethodsOnly:' #'findString:inMethods:ignoreCase:match:resourceMethodsOnly:' 
+                      #'findStringLiteral:in:ignoreCase:match:fullWordsOnly:resourceMethodsOnly:' #'findStringLiteral:inMethods:ignoreCase:match:fullWordsOnly:resourceMethodsOnly:' )
         searchWhat:#string
         searchArea:whereDefault
         withCaseIgnore:true
@@ -58800,8 +58800,8 @@
             |classes string ignoreCase openHow match fullWordsOnly methods isMethod searchAction
              keepResultList|
 
-            "/ some searches are very slow, and we do not want to research automatically
-            "/ (on change done in another browser).
+            "/ some searches are very slow, and we do not want to re-search automatically
+            "/ (on changes done in another browser).
             keepResultList := (searchWhat == #string).
             
             classes := dialog classesToSearch.
@@ -58852,8 +58852,9 @@
                     numArgs := selectorList numArgs.
                 ].
                 (selector notNil
-                and:[ (selector numArgs == 1)
-                and:[ (selector endsWith:'In:') or:[ selector endsWith:'inMethods:' ]]]) ifTrue:[
+                  and:[ (selector numArgs == 1)
+                  and:[ (selector endsWith:'In:') or:[ selector endsWith:'inMethods:' ]]]
+                ) ifTrue:[
                     arguments := Array with:entities
                 ] ifFalse:[
                     arguments := { string . 
@@ -58861,7 +58862,8 @@
                                    ((selector notNil and:[selector endsWith:'isMethod:']) 
                                                 ifTrue:[isMethod] ifFalse:[ignoreCase]) .
                                    match.
-                                   fullWordsOnly
+                                   fullWordsOnly .
+                                   dialog resourceMethodsOnly
                                  } copyTo:numArgs.
                 ].