equal
deleted
inserted
replaced
407 "arrive here, whenever any class changed somehow. |
407 "arrive here, whenever any class changed somehow. |
408 (something contains aSymbol describing what happened)" |
408 (something contains aSymbol describing what happened)" |
409 |
409 |
410 |selector oldMethod changedClass whatChange| |
410 |selector oldMethod changedClass whatChange| |
411 |
411 |
|
412 something == #methodCoverageInfo ifTrue:[^ self]. |
|
413 something == #methodTrap ifTrue:[^ self]. |
|
414 |
412 "/ |
415 "/ |
413 "/ no action, if disabled |
416 "/ no action, if disabled |
414 "/ |
417 "/ |
415 historyMode ifFalse:[ |
418 historyMode ifFalse:[ |
416 ^ self |
419 ^ self |
525 ]. |
528 ]. |
526 |
529 |
527 whatChange == #classDefinition ifTrue:[ |
530 whatChange == #classDefinition ifTrue:[ |
528 "/ it is a class definition that has changed |
531 "/ it is a class definition that has changed |
529 "/ add a line to the history method; if present |
532 "/ add a line to the history method; if present |
530 self updateAfterClassClassChange:'class definition' in:changedClass. |
533 self updateAfterClassChange:'class definition' in:changedClass. |
531 ^self |
534 ^self |
532 ]. |
535 ]. |
533 ]. |
536 ]. |
534 "/ Transcript show: 'unhandled change: ', something printString;cr. |
537 "/ Transcript show: 'unhandled change: ', something printString;cr. |
535 |
538 |
995 HistoryLine deleted. |
998 HistoryLine deleted. |
996 " |
999 " |
997 ! |
1000 ! |
998 |
1001 |
999 version |
1002 version |
1000 ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.79 2011-07-16 17:09:29 cg Exp $' |
1003 ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.80 2011-07-20 18:19:42 cg Exp $' |
1001 ! ! |
1004 ! ! |
1002 |
1005 |
1003 !HistoryManager::HistoryLine class methodsFor:'filtering'! |
1006 !HistoryManager::HistoryLine class methodsFor:'filtering'! |
1004 |
1007 |
1005 filterHistoryLines:aCollectionOfHistoryLines |
1008 filterHistoryLines:aCollectionOfHistoryLines |
1690 ! ! |
1693 ! ! |
1691 |
1694 |
1692 !HistoryManager class methodsFor:'documentation'! |
1695 !HistoryManager class methodsFor:'documentation'! |
1693 |
1696 |
1694 version_CVS |
1697 version_CVS |
1695 ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.79 2011-07-16 17:09:29 cg Exp $' |
1698 ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.80 2011-07-20 18:19:42 cg Exp $' |
1696 ! ! |
1699 ! ! |
1697 |
1700 |
1698 HistoryManager initialize! |
1701 HistoryManager initialize! |
1699 HistoryManager::HistoryLine initialize! |
1702 HistoryManager::HistoryLine initialize! |