equal
deleted
inserted
replaced
2509 transaction isEmpty ifFalse:[ |
2509 transaction isEmpty ifFalse:[ |
2510 identifier := identifier + 1. |
2510 identifier := identifier + 1. |
2511 transaction identifier:identifier. |
2511 transaction identifier:identifier. |
2512 history addLast:transaction. |
2512 history addLast:transaction. |
2513 history size > (self class maxHistorySize) ifTrue:[history removeFirst]. |
2513 history size > (self class maxHistorySize) ifTrue:[history removeFirst]. |
2514 Transcript showCR:aTextOrNil. |
|
2515 ]. |
2514 ]. |
2516 transaction := nil |
2515 transaction := nil |
2517 |
2516 |
2518 ] ifFalse:[ |
2517 ] ifFalse:[ |
2519 aBlock value |
2518 aBlock value |