equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1993 by Claus Gittinger |
4 COPYRIGHT (c) 1993 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 |
470 |
472 |
471 |class| |
473 |class| |
472 |
474 |
473 class := self changeClass. |
475 class := self changeClass. |
474 class isNil ifTrue:[ |
476 class isNil ifTrue:[ |
475 self error:('Cannot apply change for missing class: ' , className) mayProceed:true. |
477 self proceedableError:('Cannot apply change for missing class: ' , className). |
476 ^ self |
478 ^ self |
477 ]. |
479 ]. |
478 class autoload. "Most changes cannot be applied to unloaded classes" |
480 class autoload. "Most changes cannot be applied to unloaded classes" |
479 Class nameSpaceQuerySignal answer:self nameSpace do:[ |
481 Class nameSpaceQuerySignal answer:self nameSpace do:[ |
480 Parser evaluate:(self source) |
482 Parser evaluate:(self source) |
488 "/ Class nameSpaceQuerySignal answer:ns do:[ |
490 "/ Class nameSpaceQuerySignal answer:ns do:[ |
489 "/ Parser evaluate:(self source) |
491 "/ Parser evaluate:(self source) |
490 "/ ]. |
492 "/ ]. |
491 |
493 |
492 "Modified: / 29-01-2011 / 12:28:03 / cg" |
494 "Modified: / 29-01-2011 / 12:28:03 / cg" |
|
495 "Modified: / 24-05-2018 / 14:56:13 / Claus Gittinger" |
493 ! |
496 ! |
494 |
497 |
495 applyWithNameSpaceOverride: nameSpaceOrNameSpaceName |
498 applyWithNameSpaceOverride: nameSpaceOrNameSpaceName |
496 "Apply the change, overriding a namespace to given one" |
499 "Apply the change, overriding a namespace to given one" |
497 |
500 |