#UI_ENHANCEMENT by cg
class: Tools::NavigationState
class definition
added:
#autoSearchIsMatch
#autoSearchIsMatch:
#autoSearchPattern:ignoreCase:match:
comment/format in:5 methods
--- 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