UIObjectView.st
changeset 1918 f5e8dfe30838
parent 1911 0538568157f0
child 1954 1344ec1f99eb
equal deleted inserted replaced
1917:53832fa044f1 1918:f5e8dfe30838
   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