UIPainter.st
changeset 1540 dda0bf556ebc
parent 1528 4136505d3cbe
child 1545 4f8b08f745eb
equal deleted inserted replaced
1539:3e6fd1cb8eae 1540:dda0bf556ebc
  2366         m := m decodeAsLiteralArray.
  2366         m := m decodeAsLiteralArray.
  2367         i := m detectItem:[:item | item nameKey == #undo] ifNone:nil.
  2367         i := m detectItem:[:item | item nameKey == #undo] ifNone:nil.
  2368         i notNil ifTrue:[
  2368         i notNil ifTrue:[
  2369             i label:(i label , ' (' , self painter undoHistory labelOfLastUndo , ')')   
  2369             i label:(i label , ' (' , self painter undoHistory labelOfLastUndo , ')')   
  2370         ].
  2370         ].
  2371         m receiver:self.
  2371         "/ m receiver:self.   -- now done in findGuiResources ...
  2372         m findGuiResourcesIn:self.
  2372         m findGuiResourcesIn:self.
  2373         m
  2373         m
  2374       ].
  2374       ].
  2375 ! !
  2375 ! !
  2376 
  2376