equal
deleted
inserted
replaced
593 " |
593 " |
594 anyChanges ifTrue:[ |
594 anyChanges ifTrue:[ |
595 self raiseDeiconified. |
595 self raiseDeiconified. |
596 |
596 |
597 box := YesNoBox new. |
597 box := YesNoBox new. |
598 box title:('the modified changelist has not been written back to the change file.\\Write change file before exiting ?') withCRs. |
598 box title:('The modified changelist has not been written back to the change file.\\Write change file before exiting ?') withCRs. |
599 box okText:(resources at:'write') noText:(resources at:'don''t write'). |
599 box okText:(resources at:'write') noText:(resources at:'don''t write'). |
600 box yesAction:[self writeBackChanges] |
600 box yesAction:[self writeBackChanges] |
601 noAction:[]. |
601 noAction:[]. |
602 box showAtPointer. |
602 box showAtPointer. |
603 box destroy |
603 box destroy |
2637 |
2637 |
2638 anyChanges ifTrue:[ |
2638 anyChanges ifTrue:[ |
2639 again := true. |
2639 again := true. |
2640 [again] whileTrue:[ |
2640 [again] whileTrue:[ |
2641 action := OptionBox |
2641 action := OptionBox |
2642 request:(resources at:'the modified changelist has not been written back to the change file.\\Write change file before closing ?') withCRs |
2642 request:(resources at:'The modified changelist has not been written back to the change file.\\Write change file before closing ?') withCRs |
2643 label:'ChangesBrowser' |
2643 label:'ChangesBrowser' |
2644 form:(WarningBox iconBitmap) |
2644 form:(WarningBox iconBitmap) |
2645 buttonLabels:(resources array:#('cancel' 'don''t write' 'write')) |
2645 buttonLabels:(resources array:#('cancel' 'don''t write' 'write')) |
2646 values:#(#abort #ignore #save) |
2646 values:#(#abort #ignore #save) |
2647 default:#save. |
2647 default:#save. |
3624 ! ! |
3624 ! ! |
3625 |
3625 |
3626 !ChangesBrowser class methodsFor:'documentation'! |
3626 !ChangesBrowser class methodsFor:'documentation'! |
3627 |
3627 |
3628 version |
3628 version |
3629 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.209 2000-12-01 15:33:03 cg Exp $' |
3629 ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.210 2000-12-07 14:18:37 cg Exp $' |
3630 ! ! |
3630 ! ! |