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 "{ Package: 'stx:libbasic' }" |
12 "{ Package: 'stx:libbasic' }" |
14 |
13 |
15 Context variableSubclass:#BlockContext |
14 Context variableSubclass:#BlockContext |
16 instanceVariableNames:'' |
15 instanceVariableNames:'' |
17 classVariableNames:'' |
16 classVariableNames:'' |
155 (nargs == 1) ifTrue:[^ #value:]. |
154 (nargs == 1) ifTrue:[^ #value:]. |
156 (nargs == 2) ifTrue:[^ #value:value:]. |
155 (nargs == 2) ifTrue:[^ #value:value:]. |
157 (nargs == 3) ifTrue:[^ #value:value:value:]. |
156 (nargs == 3) ifTrue:[^ #value:value:value:]. |
158 (nargs == 4) ifTrue:[^ #value:value:value:value:]. |
157 (nargs == 4) ifTrue:[^ #value:value:value:value:]. |
159 (nargs == 5) ifTrue:[^ #value:value:value:value:value:]. |
158 (nargs == 5) ifTrue:[^ #value:value:value:value:value:]. |
|
159 (nargs == 6) ifTrue:[^ #value:value:value:value:value:value:]. |
|
160 (nargs == 7) ifTrue:[^ #value:value:value:value:value:value:value:]. |
|
161 (nargs == 8) ifTrue:[^ #value:value:value:value:value:value:value:value:]. |
160 ^ nil |
162 ^ nil |
161 ! ! |
163 ! ! |
162 |
164 |
163 !BlockContext methodsFor:'printing & storing'! |
165 !BlockContext methodsFor:'printing & storing'! |
164 |
166 |
237 ! ! |
239 ! ! |
238 |
240 |
239 !BlockContext class methodsFor:'documentation'! |
241 !BlockContext class methodsFor:'documentation'! |
240 |
242 |
241 version |
243 version |
242 ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.30 2004-12-16 11:21:17 cg Exp $' |
244 ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.31 2008-09-15 17:59:47 stefan Exp $' |
243 ! ! |
245 ! ! |