#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Thu, 10 May 2018 11:16:17 +0200
changeset 18095 ff611a42c7c2
parent 18094 ea60fb3ce08a
child 18096 2a391a1340ba
#UI_ENHANCEMENT by cg class: Tools::MethodList changed: #showNameFilterHolder class: Tools::MethodList class changed: #windowSpec
Tools__MethodList.st
--- 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 ].