--- a/DebugView.st	Tue Jul 01 22:00:50 2014 +0200
+++ b/DebugView.st	Tue Jul 01 22:01:16 2014 +0200
@@ -5560,7 +5560,7 @@
 !
 
 openSettingsDialog
-    |settingsList settingsApp|
+    |settingsList|
 
     settingsList :=
         #(
@@ -5570,12 +5570,9 @@
            #('Code Format'    #'AbstractSettingsApplication::SourceCodeFormatSettingsAppl'    )
         ).
 
-    settingsApp := SettingsDialog new.
-    "/ settingsApp requestor:self.
-    settingsApp installSettingsEntries:settingsList.
-    settingsApp allButOpen.
-    settingsApp window label:('Debugger Settings').
-    settingsApp openWindow.
+    SettingsDialog 
+        openWithList:settingsList 
+        label:(resources string:'Debugger Settings').
 !
 
 processesApplication
@@ -9209,15 +9206,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.658 2014-06-23 08:58:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.659 2014-07-01 20:01:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.658 2014-06-23 08:58:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.659 2014-07-01 20:01:16 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.658 2014-06-23 08:58:57 cg Exp $'
+    ^ '$Id: DebugView.st,v 1.659 2014-07-01 20:01:16 cg Exp $'
 ! !