--- a/AbstractSettingsApplication.st	Thu Aug 14 18:28:32 2003 +0200
+++ b/AbstractSettingsApplication.st	Thu Aug 14 18:30:14 2003 +0200
@@ -8320,15 +8320,16 @@
             blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
             maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
 
-        tree := RBParser 
-                    parseMethod:self class exampleText
-                    onError: [:aString :position | nil].
-        tree do:[:node |
-            (node ~~ tree and:[node parent isNil]) ifTrue:[
-                self error:'No parent for node'.
-            ]
-        ].
-        self editorText value:tree printString.
+"/        tree := RBParser 
+"/                    parseMethod:self class exampleText
+"/                    onError: [:aString :position | nil].
+"/        tree do:[:node |
+"/            (node ~~ tree and:[node parent isNil]) ifTrue:[
+"/                self error:'No parent for node'.
+"/            ]
+"/        ].
+"/        self editorText value:tree printString.
+        self editorText value:(RBFormatter format:(self class exampleText)).
 
         RBFormatter 
             tabIndent:s_tabIndent;
@@ -10933,5 +10934,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.89 2003-08-13 13:26:35 cg Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.90 2003-08-14 16:30:14 cg Exp $'
+! !