#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Sat, 07 May 2016 14:46:13 +0200
changeset 16469 cb6a0937d2ec
parent 16468 3df3e4d3ea9d
child 16470 7a35b05324a7
#UI_ENHANCEMENT by cg class: Tools::NavigationState class definition added: #autoSearchIsMatch #autoSearchIsMatch: #autoSearchPattern:ignoreCase:match: comment/format in:5 methods
Tools__NavigationState.st
--- a/Tools__NavigationState.st	Sat May 07 14:05:58 2016 +0200
+++ b/Tools__NavigationState.st	Sat May 07 14:46:13 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 by eXept Software AG
               All Rights Reserved
@@ -26,21 +24,22 @@
 		selectedProtocols selectedClasses selectedCategories
 		selectedProjects selectedNamespaces selectedLintRules
 		variableFilter filterClassVars sortBy noAllItem autoSearchPattern
-		autoSearchIgnoreCase autoSearchAction realModifiedStateHolder
-		methodInfo versionDiffApplication selectorListGeneratorArray
-		selectedMethodsArray infoLabelHolder packageLabelHolder
-		cursorLineLabelHolder cursorColLabelHolder modeLabelHolder
-		sortVariablesBy editModeHolder scrollableCodeView specialEditors
-		selectedEditorNoteBookTabIndexHolder editorNoteBookListHolder
-		editorNoteBookCanvasHolder codeView stringSearchToolView
-		noteBookView inheritanceView documentationView languageHolder
-		messageSpecHolder messageHolder progressHolder tabContentView
-		messagePaneView codePaneAndPluginView
-		codePaneAndPluginViewRelativeCorners pluginVisibleHolder
-		bookmarkHolder worker packageInfoBackgroundColorHolder
-		packageInfoButton showMethodTemplate lastMethodShownInCodeView
-		showingParseError navigationHistory lintRuleListGenerator
-		profilerStatistics inlineMessageApplication'
+		autoSearchIgnoreCase autoSearchIsMatch autoSearchAction
+		realModifiedStateHolder methodInfo versionDiffApplication
+		selectorListGeneratorArray selectedMethodsArray infoLabelHolder
+		packageLabelHolder cursorLineLabelHolder cursorColLabelHolder
+		modeLabelHolder sortVariablesBy editModeHolder scrollableCodeView
+		specialEditors selectedEditorNoteBookTabIndexHolder
+		editorNoteBookListHolder editorNoteBookCanvasHolder codeView
+		stringSearchToolView noteBookView inheritanceView
+		documentationView languageHolder messageSpecHolder messageHolder
+		progressHolder tabContentView messagePaneView
+		codePaneAndPluginView codePaneAndPluginViewRelativeCorners
+		pluginVisibleHolder bookmarkHolder worker
+		packageInfoBackgroundColorHolder packageInfoButton
+		showMethodTemplate lastMethodShownInCodeView showingParseError
+		navigationHistory lintRuleListGenerator profilerStatistics
+		inlineMessageApplication'
 	classVariableNames:'CodeAspectTranslations'
 	poolDictionaries:''
 	category:'Interface-Browsers-New'
@@ -85,32 +84,60 @@
     ^ autoSearchAction
 !
 
-autoSearchAction:something
-    autoSearchAction := something.
+autoSearchAction:aBlock
+    "define an autosearch action (for semantic searches)"
+    
+    autoSearchAction := aBlock.
 !
 
 autoSearchIgnoreCase
-    "return true if the autSearch is to be case-insensitive"
+    "return true if the autoSearch is case-insensitive"
 
     ^ autoSearchIgnoreCase
 !
 
 autoSearchIgnoreCase:aBoolean
-    "change the autSearches case-insensitivenes"
+    "define the autoSearches case-insensitivenes"
 
     autoSearchIgnoreCase := aBoolean
 !
 
+autoSearchIsMatch
+    "return true if the autoSearch is a match search"
+
+    ^ autoSearchIsMatch
+!
+
+autoSearchIsMatch:aBoolean
+    "define the automatic search pattern matching behavior"
+
+    autoSearchIsMatch := aBoolean.
+!
+
 autoSearchPattern
-    "return the automatic search pattern"
+    "return the automatic search pattern.
+     The codeView will search for this automatically, 
+     whenever the navigation is changing the shown method."
 
     ^ autoSearchPattern
 !
 
-autoSearchPattern:aPattern
-    "change the automatic search pattern"
+autoSearchPattern:aStringOrPattern
+    "define the automatic search pattern.
+     The codeView will search for this automatically, 
+     whenever the navigation is changing the shown method."
+
+    autoSearchPattern := aStringOrPattern.
+!
 
-    autoSearchPattern := aPattern.
+autoSearchPattern:aStringOrPattern ignoreCase:ignoreCaseBoolean match:isMatchBoolean 
+    "define the automatic search pattern.
+     The codeView will search for this automatically, 
+     whenever the navigation is changing the shown method."
+
+    autoSearchPattern := aStringOrPattern.
+    autoSearchIsMatch := isMatchBoolean.
+    autoSearchIgnoreCase := ignoreCaseBoolean.
 !
 
 browserLabel