--- a/SettingsDialog.st	Fri May 06 06:55:08 2016 +0200
+++ b/SettingsDialog.st	Mon May 09 21:47:57 2016 +0200
@@ -374,7 +374,7 @@
          label: 'Settings Dialog'
          name: 'Settings Dialog'
          min: (Point 10 10)
-         bounds: (Rectangle 0 0 789 642)
+         bounds: (Rectangle 0 0 850 656)
          menu: mainMenu
          icon: defaultIcon
        )
@@ -543,6 +543,15 @@
                                extent: (Point 161 22)
                              )
                             (ActionButtonSpec
+                               label: 'Close'
+                               name: 'Button4'
+                               translateLabel: true
+                               model: closeRequest
+                               extent: (Point 145 22)
+                               isVisible: closeButtonVisible
+                               activeHelpKey: closeRequest
+                             )
+                            (ActionButtonSpec
                                label: 'Discard'
                                name: 'Reload'
                                activeHelpKey: discardChangedSettings
@@ -1468,6 +1477,10 @@
     ^ applicationList.
 !
 
+closeButtonVisibleHolder
+    ^ builder valueAspectFor:#'closeButtonVisibleHolder' initialValue:false
+!
+
 enableHelp
     enableHelp isNil ifTrue:[
         enableHelp := true asValue.
@@ -1722,6 +1735,13 @@
     aWidget keepClientView:true. 
 !
 
+postBuildWith:aBuilder
+    super postBuildWith:aBuilder.
+"/    self window isModal ifFalse:[
+"/        self closeButtonVisibleHolder value:true
+"/    ].    
+!
+
 postOpenWith:aBuilder
     |items|