equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2012 by Claus Gittinger |
4 COPYRIGHT (c) 2012 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
96 ! ! |
98 ! ! |
97 |
99 |
98 !MethodWithBreakpoints methodsFor:'accessing'! |
100 !MethodWithBreakpoints methodsFor:'accessing'! |
99 |
101 |
100 originalMethod |
102 originalMethod |
|
103 "return the original method; the one without breakpoints" |
|
104 |
101 ^ originalMethod |
105 ^ originalMethod |
102 ! |
106 ! |
103 |
107 |
104 originalMethod:something |
108 originalMethod:something |
105 originalMethod := something. |
109 originalMethod := something. |
|
110 ! |
|
111 |
|
112 originalMethodIfWrapped |
|
113 "return the original method; the one without breakpoints" |
|
114 |
|
115 ^ originalMethod ? self |
106 ! ! |
116 ! ! |
107 |
117 |
108 !MethodWithBreakpoints methodsFor:'enumeration'! |
118 !MethodWithBreakpoints methodsFor:'enumeration'! |
109 |
119 |
110 breakpointsDo:aBlock |
120 breakpointsDo:aBlock |