451 self setChangeList. |
451 self setChangeList. |
452 changeListView action:[:lineNr | self changeSelection:lineNr]. |
452 changeListView action:[:lineNr | self changeSelection:lineNr]. |
453 Processor addTimedBlock:checkBlock afterSeconds:5. |
453 Processor addTimedBlock:checkBlock afterSeconds:5. |
454 ! |
454 ! |
455 |
455 |
456 update:what |
456 update:what with:aParameter from:changedObject |
457 |box| |
457 |box| |
458 |
458 |
459 (what == #aboutToExit) ifTrue:[ |
459 (what == #aboutToExit) ifTrue:[ |
460 " |
460 " |
461 smalltalk is about to shut down - |
461 smalltalk is about to shut down - |
462 - if change list was modified, ask user and save if requested. |
462 - if change list was modified, ask user and save if requested. |
463 " |
463 " |
464 anyChanges ifTrue:[ |
464 anyChanges ifTrue:[ |
465 self raiseDeiconified. |
465 self raiseDeiconified. |
466 |
466 |
467 box := YesNoBox new. |
467 box := YesNoBox new. |
468 box title:(resources at:'changefile has not been updated from the modified changelist.\\Update before exiting ?') withCRs. |
468 box title:(resources at:'changefile has not been updated from the modified changelist.\\Update before exiting ?') withCRs. |
469 box noText:(resources at:'don''t update'). |
469 box noText:(resources at:'don''t update'). |
470 box okText:(resources at:'update'). |
470 box okText:(resources at:'update'). |
471 box yesAction:[self writeBackChanges] |
471 box yesAction:[self writeBackChanges] |
472 noAction:[]. |
472 noAction:[]. |
473 box showAtPointer |
473 box showAtPointer |
474 ]. |
474 ]. |
475 ^ self |
475 ^ self |
476 ]. |
476 ]. |
477 super update:what |
477 super update:what |
|
478 |
|
479 "Created: 15.6.1996 / 15:26:30 / cg" |
478 ! ! |
480 ! ! |
479 |
481 |
480 !ChangesBrowser methodsFor:'private'! |
482 !ChangesBrowser methodsFor:'private'! |
481 |
483 |
482 appendChange:changeNr toFile:fileName |
484 appendChange:changeNr toFile:fileName |