--- a/Tools__NewSystemBrowser.st Mon Nov 27 15:26:35 2017 +0100
+++ b/Tools__NewSystemBrowser.st Mon Nov 27 15:26:49 2017 +0100
@@ -53,7 +53,8 @@
LastClassDocDirectory DefaultShowCoverage LastLintedPackage
LastSearchedImplementors LastSearchedSenders
LastComparedClassName SkipCompilabilityChecksForFastCheckin
- DefaultShowImageResourceMethodsImages LastShowSelectorNameFilter'
+ DefaultShowImageResourceMethodsImages LastShowSelectorNameFilter
+ LastShowNameFilter'
poolDictionaries:''
category:'Interface-Browsers-New'
!
@@ -340,13 +341,13 @@
#searchClass
'Search class'
-#selectorNameFilter
+#nameFilter
'Show only methods with matching selectors / which contain the text '
#nameFilterType
'Switch between selector- (S) and text matching (T)'
-#hideSelectorNameFilter
+#hideNameFilter
'Hide the filter. Reopen via the "View" menu'
#gotoClassEntryField
@@ -392,7 +393,7 @@
].
^ spec.
- "Modified: / 25-11-2017 / 11:55:44 / cg"
+ "Modified: / 27-11-2017 / 15:23:15 / cg"
! !
!NewSystemBrowser class methodsFor:'image specs'!
@@ -1718,8 +1719,8 @@
(Array
(SubChannelInfoSpec
- subAspect: showSelectorNameFilter
- aspect: showSelectorNameFilter
+ subAspect: showNameFilterHolder
+ aspect: showNameFilterHolder
)
(SubChannelInfoSpec
subAspect: doubleClickChannel
@@ -1852,7 +1853,7 @@
)
)
- "Modified: / 09-11-2017 / 20:20:53 / cg"
+ "Modified: / 27-11-2017 / 15:21:48 / cg"
!
multipleCategoryBrowserSpec
@@ -13110,7 +13111,7 @@
(MenuItem
label: 'Selector Filter'
hideMenuOnActivated: false
- indication: showSelectorNameFilter
+ indication: showNameFilterHolder
)
(MenuItem
label: '-'
@@ -13345,7 +13346,7 @@
nil
)
- "Modified: / 09-11-2017 / 20:40:56 / cg"
+ "Modified: / 27-11-2017 / 15:22:00 / cg"
!
viewMenuForChainBrowser
@@ -20503,17 +20504,17 @@
"Created: / 24.2.2000 / 14:55:44 / cg"
!
-showSelectorNameFilter
- |holder|
-
- (holder := builder bindingAt:#showSelectorNameFilter) isNil ifTrue:[
- holder := (LastShowSelectorNameFilter ? false) asValue.
- holder onChangeEvaluate:[ LastShowSelectorNameFilter := holder value].
- builder aspectAt:#showSelectorNameFilter put: holder
+showNameFilterHolder
+ |holder|
+
+ (holder := builder bindingAt:#showNameFilterHolder) isNil ifTrue:[
+ holder := (LastShowNameFilter ? false) asValue.
+ holder onChangeEvaluate:[ LastShowNameFilter := holder value].
+ builder aspectAt:#showNameFilterHolder put: holder
].
^ holder
- "Created: / 09-11-2017 / 20:14:58 / cg"
+ "Created: / 27-11-2017 / 15:21:27 / cg"
!
showingInheritedMethods