--- a/SettingsDialog.st	Thu May 26 06:49:40 2016 +0200
+++ b/SettingsDialog.st	Mon May 30 06:50:40 2016 +0200
@@ -411,17 +411,17 @@
                               (SpecCollection
                                  collection: (
                                   (LabelSpec
-                                     activeHelpKey: quickSearchString
                                      label: 'Quick Search:'
                                      name: 'Label1'
                                      layout: (LayoutFrame 0 0 0 0 150 0 0 1)
+                                     activeHelpKey: quickSearchString
                                      translateLabel: true
                                      adjust: left
                                    )
                                   (InputFieldSpec
-                                     activeHelpKey: quickSearchString
                                      name: 'QuickSeachEntryField'
                                      layout: (LayoutFrame 150 0 0 0 0 1 0 1)
+                                     activeHelpKey: quickSearchString
                                      model: quickSearchStringHolder
                                      immediateAccept: true
                                      acceptOnReturn: true
@@ -431,7 +431,7 @@
                                   )
                                 
                                )
-                               extent: (Point 260 30)
+                               extent: (Point 280 30)
                              )
                             (HierarchicalListViewSpec
                                name: 'HierarchicalListView1'
@@ -443,7 +443,7 @@
                                highlightMode: label
                                showLeftIndicators: false
                                indicatorSelector: doIndicatorClick:
-                               extent: (Point 260 575)
+                               extent: (Point 280 589)
                              )
                             )
                           
@@ -467,7 +467,7 @@
                                translateLabel: true
                                tabable: true
                                model: saveSettingsWithoutAskingForFile
-                               extent: (Point 124 22)
+                               extent: (Point 135 22)
                              )
                             (ActionButtonSpec
                                label: 'Load From...'
@@ -476,7 +476,7 @@
                                translateLabel: true
                                tabable: true
                                model: loadSettingsFromFile
-                               extent: (Point 124 22)
+                               extent: (Point 136 22)
                              )
                             )
                           
@@ -540,16 +540,16 @@
                                tabable: true
                                model: help
                                enableChannel: enableHelp
-                               extent: (Point 161 22)
+                               extent: (Point 131 22)
                              )
                             (ActionButtonSpec
                                label: 'Close'
                                name: 'Button4'
+                               activeHelpKey: closeRequest
+                               visibilityChannel: closeButtonVisibleHolder
                                translateLabel: true
                                model: closeRequest
-                               extent: (Point 145 22)
-                               isVisible: closeButtonVisible
-                               activeHelpKey: closeRequest
+                               extent: (Point 132 22)
                              )
                             (ActionButtonSpec
                                label: 'Discard'
@@ -559,7 +559,7 @@
                                tabable: true
                                model: doReload
                                enableChannel: enableReload
-                               extent: (Point 162 22)
+                               extent: (Point 132 22)
                              )
                             (ActionButtonSpec
                                label: 'Apply'
@@ -569,7 +569,7 @@
                                tabable: true
                                model: doSave
                                enableChannel: enableOK
-                               extent: (Point 162 22)
+                               extent: (Point 132 22)
                              )
                             )
                           
@@ -583,7 +583,7 @@
                 )
               
              )
-             handles: (Any 0.33750000000000036 1.0)
+             handles: (Any 0.34000000000000002 1.0)
            )
           )
         
@@ -1737,9 +1737,9 @@
 
 postBuildWith:aBuilder
     super postBuildWith:aBuilder.
-"/    self window isModal ifFalse:[
-"/        self closeButtonVisibleHolder value:true
-"/    ].    
+    self window isModal ifFalse:[
+        self closeButtonVisibleHolder value:true
+    ].    
 !
 
 postOpenWith:aBuilder