equal
deleted
inserted
replaced
2504 (enabled and:[transaction isNil]) ifTrue:[ |
2504 (enabled and:[transaction isNil]) ifTrue:[ |
2505 transaction := Transaction type:aType text:aTextOrNil. |
2505 transaction := Transaction type:aType text:aTextOrNil. |
2506 |
2506 |
2507 aBlock value. |
2507 aBlock value. |
2508 |
2508 |
2509 transaction isEmpty ifFalse:[ |
2509 transaction notEmpty ifTrue:[ |
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 ]. |
2514 ]. |
2773 ! ! |
2773 ! ! |
2774 |
2774 |
2775 !UIObjectView::UndoHistory::Transaction methodsFor:'testing'! |
2775 !UIObjectView::UndoHistory::Transaction methodsFor:'testing'! |
2776 |
2776 |
2777 isEmpty |
2777 isEmpty |
2778 "returns true if no undo action is registered |
2778 "returns true if no undo action is registered" |
2779 " |
2779 |
2780 ^ actions isNil |
2780 ^ actions isNil |
|
2781 ! |
|
2782 |
|
2783 notEmpty |
|
2784 "returns true if no undo action is registered" |
|
2785 |
|
2786 ^ actions notNil |
2781 ! ! |
2787 ! ! |
2782 |
2788 |
2783 !UIObjectView class methodsFor:'documentation'! |
2789 !UIObjectView class methodsFor:'documentation'! |
2784 |
2790 |
2785 version |
2791 version |