equal
deleted
inserted
replaced
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 |
12 |
13 'From Smalltalk/X, Version:2.10.9 on 25-jun-1996 at 22:12:32' ! |
|
14 |
|
15 Method subclass:#WrappedMethod |
13 Method subclass:#WrappedMethod |
16 instanceVariableNames:'' |
14 instanceVariableNames:'' |
17 classVariableNames:'' |
15 classVariableNames:'' |
18 poolDictionaries:'' |
16 poolDictionaries:'' |
19 category:'Kernel-Methods' |
17 category:'Kernel-Methods' |
20 ! |
18 ! |
21 |
19 |
22 !WrappedMethod class methodsFor:'documentation'! |
20 !WrappedMethod class methodsFor:'documentation'! |
23 |
21 |
24 copyright |
22 copyright |
25 " |
23 " |
26 COPYRIGHT (c) 1994 by Claus Gittinger |
24 COPYRIGHT (c) 1994 by Claus Gittinger |
27 All Rights Reserved |
25 All Rights Reserved |
73 "return the names of the locals of the wrapped method." |
71 "return the names of the locals of the wrapped method." |
74 |
72 |
75 ^ self originalMethod methodVarNames |
73 ^ self originalMethod methodVarNames |
76 ! |
74 ! |
77 |
75 |
78 numberOfMethodVars |
76 numVars |
79 "return the number of locals in the wrapped method." |
77 "return the number of locals in the wrapped method." |
80 |
78 |
81 ^ self originalMethod numberOfMethodVars |
79 ^ self originalMethod numVars |
|
80 |
|
81 "Created: 4.11.1996 / 21:40:10 / cg" |
82 ! |
82 ! |
83 |
83 |
84 originalMethod |
84 originalMethod |
85 "return the method the receiver is wrapping" |
85 "return the method the receiver is wrapping" |
86 |
86 |
108 True is returned here, since the receiver is always a wrapped one" |
108 True is returned here, since the receiver is always a wrapped one" |
109 |
109 |
110 ^ true |
110 ^ true |
111 ! ! |
111 ! ! |
112 |
112 |
113 !WrappedMethod class methodsFor:'documentation'! |
113 !WrappedMethod class methodsFor:'documentation'! |
114 |
114 |
115 version |
115 version |
116 ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.12 1996-06-28 15:32:35 stefan Exp $' |
116 ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.13 1996-11-04 22:44:08 cg Exp $' |
117 ! ! |
117 ! ! |