equal
deleted
inserted
replaced
702 applyAction := [ |
702 applyAction := [ |
703 "/ AbortOperationRequest handle:[:ex | |
703 "/ AbortOperationRequest handle:[:ex | |
704 "/ ^ false. |
704 "/ ^ false. |
705 "/ ] do:[ |
705 "/ ] do:[ |
706 ParseError handle:[:ex | |
706 ParseError handle:[:ex | |
707 ex signal == UndefinedSuperclassError ifTrue:[ |
707 ex creator == UndefinedSuperclassError ifTrue:[ |
708 codeView error:(ex errorString) position:1 to:nil from:nil |
708 codeView error:(ex errorString) position:1 to:nil from:nil |
709 ] ifFalse:[ |
709 ] ifFalse:[ |
710 codeView error:(ex description) position:(ex startPosition) to:(ex endPosition) from:(ex parser). |
710 codeView error:(ex description) position:(ex startPosition) to:(ex endPosition) from:(ex parser). |
711 ex mayProceed ifTrue:[ex proceed]. |
711 ex mayProceed ifTrue:[ex proceed]. |
712 ] |
712 ] |
744 ^ aborted not |
744 ^ aborted not |
745 |
745 |
746 "Created: / 07-02-1998 / 19:32:35 / cg" |
746 "Created: / 07-02-1998 / 19:32:35 / cg" |
747 "Modified: / 29-01-2011 / 11:46:44 / cg" |
747 "Modified: / 29-01-2011 / 11:46:44 / cg" |
748 "Modified: / 15-02-2018 / 19:01:50 / stefan" |
748 "Modified: / 15-02-2018 / 19:01:50 / stefan" |
|
749 "Modified: / 27-08-2018 / 10:51:12 / Claus Gittinger" |
749 ! |
750 ! |
750 |
751 |
751 applyPossiblyModifiedChange:aChange |
752 applyPossiblyModifiedChange:aChange |
752 |ns superClass superClassName savedClassName| |
753 |ns superClass superClassName savedClassName| |
753 |
754 |