equal
deleted
inserted
replaced
26 COPYRIGHT (c) 1990 by Claus Gittinger |
26 COPYRIGHT (c) 1990 by Claus Gittinger |
27 All Rights Reserved |
27 All Rights Reserved |
28 |
28 |
29 this class implements a changes browser. |
29 this class implements a changes browser. |
30 |
30 |
31 $Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.6 1994-01-08 17:22:50 claus Exp $ |
31 $Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.7 1994-01-16 03:59:52 claus Exp $ |
32 written jan 90 by claus |
32 written jan 90 by claus |
33 '! |
33 '! |
34 |
34 |
35 !ChangesBrowser class methodsFor:'behavior'! |
35 !ChangesBrowser class methodsFor:'behavior'! |
36 |
36 |
441 upd := Class updateChanges:false. |
441 upd := Class updateChanges:false. |
442 codeView abortAction:[Class updateChanges:upd. |
442 codeView abortAction:[Class updateChanges:upd. |
443 codeView abortAction:nil. |
443 codeView abortAction:nil. |
444 aStream close. |
444 aStream close. |
445 ^self]. |
445 ^self]. |
|
446 |
446 changeNrProcessed := changeNr. |
447 changeNrProcessed := changeNr. |
447 [ |
448 [ |
448 sawExcla ifFalse:[ |
449 Object abortSignal catch:[ |
449 Compiler evaluate:chunk notifying:self |
450 sawExcla ifFalse:[ |
450 ] ifTrue:[ |
451 Compiler evaluate:chunk notifying:self |
451 (Compiler evaluate:chunk notifying:self) fileInFrom:aStream |
452 ] ifTrue:[ |
452 notifying:self |
453 (Compiler evaluate:chunk notifying:self) fileInFrom:aStream |
|
454 notifying:self |
|
455 ] |
453 ]. |
456 ]. |
454 changeNrProcessed := nil. |
457 changeNrProcessed := nil. |
455 codeView abortAction:nil |
458 codeView abortAction:nil |
456 ] valueNowOrOnUnwindDo:[Class updateChanges:upd]. |
459 ] valueNowOrOnUnwindDo:[Class updateChanges:upd]. |
457 aStream close |
460 aStream close |