equal
deleted
inserted
replaced
238 !ProxyMethod methodsFor:'building'! |
238 !ProxyMethod methodsFor:'building'! |
239 |
239 |
240 addGuard: aGuard |
240 addGuard: aGuard |
241 |
241 |
242 body isNil ifTrue:[ |
242 body isNil ifTrue:[ |
243 self assert: aGuard fallback notNil description: 'Attempt set guard without fallback'. |
243 self assert:aGuard fallback notNil |
|
244 message:'Attempt set guard without fallback'. |
244 ] ifFalse:[ |
245 ] ifFalse:[ |
245 self assert: aGuard fallback isNil description: 'Attempt add guard with fallback'. |
246 self assert:aGuard fallback isNil |
|
247 message:'Attempt add guard with fallback'. |
246 aGuard fallback: body. |
248 aGuard fallback: body. |
247 ]. |
249 ]. |
248 self body: aGuard. |
250 self body: aGuard. |
249 |
251 |
250 "Created: / 06-12-2011 / 21:37:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
252 "Created: / 06-12-2011 / 21:37:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
312 |
314 |
313 version_SVN |
315 version_SVN |
314 ^ '§Id§' |
316 ^ '§Id§' |
315 ! ! |
317 ! ! |
316 |
318 |
|
319 |
317 ProxyMethod initialize! |
320 ProxyMethod initialize! |