#UI_ENHANCEMENT by cg
class: Tools::MethodList
changed: #showNameFilterHolder
class: Tools::MethodList class
changed: #windowSpec
--- a/Tools__MethodList.st Wed May 09 16:08:39 2018 +0200
+++ b/Tools__MethodList.st Thu May 10 11:16:17 2018 +0200
@@ -130,7 +130,7 @@
^
#(FullSpec
name: windowSpec
- uuid: '7699224a-d380-11e7-ae98-c42c033b4871'
+ uuid: '35f88efc-5430-11e8-b6f1-b8f6b1108e05'
window:
(WindowSpec
label: 'SelectorList'
@@ -158,7 +158,7 @@
activeHelpKey: nameFilter
uuid: '0ad3ccb2-d1ce-11e7-900e-c42c033b4871'
visibilityChannel: showNameFilterHolder
- horizontalLayout: leftFit
+ horizontalLayout: leftSpaceFit
verticalLayout: center
component:
(SpecCollection
@@ -180,7 +180,7 @@
uuid: '0ad3d0cc-d1ce-11e7-900e-c42c033b4871'
translateLabel: true
adjust: right
- extent: (Point 51 24)
+ extent: (Point 46 24)
usePreferredWidth: true
)
(HorizontalPanelViewSpec
@@ -201,7 +201,7 @@
acceptOnReturn: true
acceptOnTab: true
acceptOnPointerLeave: true
- extent: (Point 180 26)
+ extent: (Point 177 26)
)
(ComboListSpec
name: 'ComboList1'
@@ -210,7 +210,8 @@
model: nameFilterTypeHolder
comboList:
(Array
- 'T' 'S' '-S' '-T'
+ 'T' 'S'
+ '-S' '-T'
)
useIndex: false
extent: (Point 40 26)
@@ -218,7 +219,7 @@
)
)
- extent: (Point 225 30)
+ extent: (Point 222 30)
)
)
@@ -256,8 +257,6 @@
)
)
-
- "Modified: / 04-12-2017 / 23:39:29 / cg"
! !
!MethodList class methodsFor:'plugIn spec'!
@@ -455,6 +454,8 @@
!
showNameFilterHolder
+ "the selector/name filter"
+
|holder|
showNameFilterHolder isNil ifTrue:[
@@ -462,7 +463,7 @@
holder := masterApplication perform:#showNameFilterHolder ifNotUnderstood:nil.
].
holder isNil ifTrue:[
- holder := ValueHolder with:false.
+ holder := ValueHolder with:true.
].
showNameFilterHolder := IndirectValue for:holder.
showNameFilterHolder onChangeEvaluate:[ self enqueueDelayedUpdateList ].