equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2002 by eXept Software AG |
2 COPYRIGHT (c) 2002 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
470 ^ aMessage sendTo:self usingClass:Object. |
468 ^ aMessage sendTo:self usingClass:Object. |
471 ]. |
469 ]. |
472 self _evaluate_. |
470 self _evaluate_. |
473 ]. |
471 ]. |
474 ^ aMessage sendTo:result |
472 ^ aMessage sendTo:result |
|
473 ! |
|
474 |
|
475 perform:aSelector withArguments:argArray |
|
476 "send the message aSelector with all args taken from argArray |
|
477 to the receiver." |
|
478 |
|
479 block notNil ifTrue:[ |
|
480 IsDebuggingQuery query ifTrue:[ |
|
481 "enable debugging / inspecting" |
|
482 ^ super perform:aSelector withArguments:argArray. |
|
483 ]. |
|
484 self _evaluate_. |
|
485 ]. |
|
486 ^ result perform:aSelector withArguments:argArray. |
475 ! ! |
487 ! ! |
476 |
488 |
477 !LazyValue methodsFor:'testing'! |
489 !LazyValue methodsFor:'testing'! |
478 |
490 |
479 isBehavior |
491 isBehavior |