checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 18 Oct 2001 16:04:49 +0200
changeset 3324 e9730d911afe
parent 3323 c4c08ffef09d
child 3325 81e06c615998
checkin from browser
AbstractLauncherApplication.st
--- a/AbstractLauncherApplication.st	Thu Oct 18 15:51:44 2001 +0200
+++ b/AbstractLauncherApplication.st	Thu Oct 18 16:04:49 2001 +0200
@@ -5491,7 +5491,11 @@
                             tree := RBParser 
                                         parseMethod:exampleText
                                         onError: [:aString :position | nil].
-
+                            tree do:[:node |
+                                node ~~ tree ifTrue:[
+                                    node parent haltIfNil
+                                ]
+                            ].
                             formattedText value:tree printString.
 
                             RBFormatter 
@@ -6271,5 +6275,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.168 2001-10-11 16:32:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.169 2001-10-18 14:04:49 cg Exp $'
 ! !