--- 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 $'
! !