equal
deleted
inserted
replaced
1 " |
1 " |
2 COPYRIGHT (c) 1994 by Claus Gittinger |
2 COPYRIGHT (c) 1994 by Claus Gittinger |
|
3 COPYRIGHT (c) 2020 LabWare |
3 All Rights Reserved |
4 All Rights Reserved |
4 |
5 |
5 This software is furnished under a license and may be used |
6 This software is furnished under a license and may be used |
6 only in accordance with the terms of that license and with the |
7 only in accordance with the terms of that license and with the |
7 inclusion of the above copyright notice. This software may not |
8 inclusion of the above copyright notice. This software may not |
23 !WrappedMethod class methodsFor:'documentation'! |
24 !WrappedMethod class methodsFor:'documentation'! |
24 |
25 |
25 copyright |
26 copyright |
26 " |
27 " |
27 COPYRIGHT (c) 1994 by Claus Gittinger |
28 COPYRIGHT (c) 1994 by Claus Gittinger |
|
29 COPYRIGHT (c) 2020 LabWare |
28 All Rights Reserved |
30 All Rights Reserved |
29 |
31 |
30 This software is furnished under a license and may be used |
32 This software is furnished under a license and may be used |
31 only in accordance with the terms of that license and with the |
33 only in accordance with the terms of that license and with the |
32 inclusion of the above copyright notice. This software may not |
34 inclusion of the above copyright notice. This software may not |
107 category:newCategory |
109 category:newCategory |
108 super category:newCategory. |
110 super category:newCategory. |
109 self originalMethod category:newCategory |
111 self originalMethod category:newCategory |
110 ! |
112 ! |
111 |
113 |
|
114 dbgVariables |
|
115 "Return a list of variables for this context (as collection |
|
116 of `DIVariable` instances) or nil if no debug info is recorded" |
|
117 |
|
118 ^ self originalMethod dbgVariables select: [:var | var isArgument ] |
|
119 |
|
120 "Created: / 09-07-2020 / 20:26:40 / Jan Vrany <jan.vrany@labware.com>" |
|
121 ! |
|
122 |
112 literals |
123 literals |
113 "return the wrapped method's literals" |
124 "return the wrapped method's literals" |
114 |
125 |
115 ^ self originalMethod literals |
126 ^ self originalMethod literals |
116 ! |
127 ! |
518 |
529 |
519 version_CVS |
530 version_CVS |
520 ^ '$Header$' |
531 ^ '$Header$' |
521 ! |
532 ! |
522 |
533 |
|
534 version_HG |
|
535 |
|
536 ^ '$Changeset: <not expanded> $' |
|
537 ! |
|
538 |
523 version_SVN |
539 version_SVN |
524 ^ '$Id$' |
540 ^ '$Id$' |
525 ! ! |
541 ! ! |
526 |
542 |