equal
deleted
inserted
replaced
431 |
431 |
432 "Modified: / 30.3.1999 / 16:18:12 / stefan" |
432 "Modified: / 30.3.1999 / 16:18:12 / stefan" |
433 ! |
433 ! |
434 |
434 |
435 resetModification |
435 resetModification |
436 "set modification state to false |
436 "set modification state to false" |
437 " |
437 |
438 undoHistory resetModification |
438 undoHistory resetModification |
439 ! |
439 ! |
440 |
440 |
441 testMode |
441 testMode |
442 "returns true if running test |
442 "returns true if running test |
1513 ^ self numberOfSelections == 1 |
1513 ^ self numberOfSelections == 1 |
1514 |
1514 |
1515 ! |
1515 ! |
1516 |
1516 |
1517 hasUndoHistory |
1517 hasUndoHistory |
1518 "returns true if undos exists |
1518 "returns true if undos exists" |
1519 " |
1519 |
1520 ^ undoHistory isEmpty not |
1520 ^ undoHistory isEmpty not |
1521 ! |
1521 ! |
1522 |
1522 |
1523 isModified |
1523 isModified |
1524 "returns true if painter is modified |
1524 "returns true if painter is modified" |
1525 " |
1525 |
1526 ^ undoHistory isModified |
1526 ^ undoHistory isModified |
1527 ! |
1527 ! |
1528 |
1528 |
1529 isSelected:anObject |
1529 isSelected:anObject |
1530 "return true, if the argument, anObject is selected |
1530 "return true, if the argument, anObject is selected |
1531 " |
1531 " |
2485 " |
2485 " |
2486 "/ startIdentifier := identifier |
2486 "/ startIdentifier := identifier |
2487 |
2487 |
2488 identifier := startIdentifier := 0. |
2488 identifier := startIdentifier := 0. |
2489 history := OrderedCollection new. |
2489 history := OrderedCollection new. |
2490 |
|
2491 ! ! |
2490 ! ! |
2492 |
2491 |
2493 !UIObjectView::UndoHistory methodsFor:'activation & deactivation'! |
2492 !UIObjectView::UndoHistory methodsFor:'activation & deactivation'! |
2494 |
2493 |
2495 withinTransaction:aType text:aTextOrNil do:aBlock |
2494 withinTransaction:aType text:aTextOrNil do:aBlock |