equal
deleted
inserted
replaced
573 ]. |
573 ]. |
574 s skipSeparators. |
574 s skipSeparators. |
575 |
575 |
576 cmd := s nextAlphaNumericWord. |
576 cmd := s nextAlphaNumericWord. |
577 cmd notNil ifTrue:[ |
577 cmd notNil ifTrue:[ |
578 self |
578 AbortAllOperationRequest handle:[:ex | |
579 perform:('cmd_',cmd) asMutator with:s |
579 self errorStream nextPutLine:('Directive aborted: ', ex description) |
580 ifNotUnderstood:[ |
580 ] do:[ |
581 self errorStream |
581 (Error, ControlInterrupt) handle:[:ex | |
582 nextPutAll:'?? invalid command: '; |
582 self errorStream nextPutLine:('Ignored in directive: ', ex description). |
583 nextPutAll:cmd; |
583 ] do:[ |
584 nextPutAll:'. Type "#help" for help.'; |
584 self |
585 cr. |
585 perform:('cmd_',cmd) asMutator with:s |
|
586 ifNotUnderstood:[ |
|
587 self errorStream |
|
588 nextPutAll:'?? invalid command: '; |
|
589 nextPutAll:cmd; |
|
590 nextPutAll:'. Type "#help" for help.'; |
|
591 cr. |
|
592 ]. |
586 ]. |
593 ]. |
|
594 ]. |
587 ]. |
595 ]. |
588 |
596 |
589 "Created: / 07-12-2006 / 18:49:17 / cg" |
597 "Created: / 07-12-2006 / 18:49:17 / cg" |
590 ! |
598 ! |
591 |
599 |