equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
|
12 |
|
13 'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:48:04 pm' ! |
12 |
14 |
13 PrimaryNode subclass:#SelfNode |
15 PrimaryNode subclass:#SelfNode |
14 instanceVariableNames:'' |
16 instanceVariableNames:'' |
15 classVariableNames:'' |
17 classVariableNames:'' |
16 poolDictionaries:'' |
18 poolDictionaries:'' |
97 ! ! |
99 ! ! |
98 |
100 |
99 !SelfNode methodsFor:'printing'! |
101 !SelfNode methodsFor:'printing'! |
100 |
102 |
101 displayString |
103 displayString |
|
104 "return a string for display in inspectors etc." |
|
105 |
102 ^ 'InterpreterVariable(self)' |
106 ^ 'InterpreterVariable(self)' |
|
107 |
|
108 "Modified: 20.9.1997 / 11:41:41 / cg" |
103 ! |
109 ! |
104 |
110 |
105 printOn:aStream indent:i |
111 printOn:aStream indent:i |
106 aStream nextPutAll:'self' |
112 aStream nextPutAll:'self' |
107 ! ! |
113 ! ! |
108 |
114 |
109 !SelfNode class methodsFor:'documentation'! |
115 !SelfNode class methodsFor:'documentation'! |
110 |
116 |
111 version |
117 version |
112 ^ '$Header: /cvs/stx/stx/libcomp/SelfNode.st,v 1.12 1997-06-19 16:38:32 cg Exp $' |
118 ^ '$Header: /cvs/stx/stx/libcomp/SelfNode.st,v 1.13 1997-09-20 21:03:32 cg Exp $' |
113 ! ! |
119 ! ! |