--- a/SettingsDialog.st	Sun May 08 09:55:24 2016 +0200
+++ b/SettingsDialog.st	Sun May 08 09:57:05 2016 +0200
@@ -1477,6 +1477,10 @@
     ^ applicationList.
 !
 
+closeButtonVisibleHolder
+    ^ builder valueAspectFor:#'closeButtonVisibleHolder' initialValue:false
+!
+
 enableHelp
     enableHelp isNil ifTrue:[
         enableHelp := true asValue.
@@ -1731,6 +1735,13 @@
     aWidget keepClientView:true. 
 !
 
+postBuildWith:aBuilder
+    super postBuildWith:aBuilder.
+"/    self window isModal ifFalse:[
+"/        self closeButtonVisibleHolder value:true
+"/    ].    
+!
+
 postOpenWith:aBuilder
     |items|