equal
deleted
inserted
replaced
19 |
19 |
20 StatementNode comment:' |
20 StatementNode comment:' |
21 COPYRIGHT (c) 1989 by Claus Gittinger |
21 COPYRIGHT (c) 1989 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libcomp/Attic/StatNode.st,v 1.6 1994-11-28 20:58:31 claus Exp $ |
24 $Header: /cvs/stx/stx/libcomp/Attic/StatNode.st,v 1.7 1995-07-23 02:24:45 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !StatementNode class methodsFor:'documentation'! |
27 !StatementNode class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libcomp/Attic/StatNode.st,v 1.6 1994-11-28 20:58:31 claus Exp $ |
45 $Header: /cvs/stx/stx/libcomp/Attic/StatNode.st,v 1.7 1995-07-23 02:24:45 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
143 printAllOn:aStream indent:i |
143 printAllOn:aStream indent:i |
144 |thisStatement| |
144 |thisStatement| |
145 |
145 |
146 thisStatement := self. |
146 thisStatement := self. |
147 [thisStatement notNil] whileTrue:[ |
147 [thisStatement notNil] whileTrue:[ |
148 i timesRepeat:[aStream space]. |
148 aStream spaces:i. |
149 thisStatement printOn:aStream indent:i. |
149 thisStatement printOn:aStream indent:i. |
150 thisStatement nextStatement notNil ifTrue:[ |
150 thisStatement nextStatement notNil ifTrue:[ |
151 aStream nextPut:$.. |
151 aStream nextPut:$.. |
152 aStream cr. |
152 aStream cr. |
153 ]. |
153 ]. |