# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1121420094 -7200
# Node ID 53832fa044f1920578e14c94dc2b3bf8b96eea1c
# Parent  c91c39976bef0573cccc6e8d04cd554b64d8104a
undo button

diff -r c91c39976bef -r 53832fa044f1 UIPainter.st
--- a/UIPainter.st	Wed Jul 13 17:47:46 2005 +0200
+++ b/UIPainter.st	Fri Jul 15 11:34:54 2005 +0200
@@ -2003,7 +2003,7 @@
             labelImage: (ResourceRetriever ToolbarIconLibrary start22x22Icon)
           )
          (MenuItem
-            label: ''
+            label: '-'
           )
          (MenuItem
             activeHelpKey: fileNew
@@ -2030,7 +2030,19 @@
             labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethodIcon)
           )
          (MenuItem
-            label: ''
+            label: '-'
+          )
+         (MenuItem
+            activeHelpKey: editUndo
+            enabled: hasUndoHistoryHolder
+            label: 'Undo'
+            itemValue: undoLast
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever XPToolbarIconLibrary undoIcon)
+          )
+         (MenuItem
+            label: '-'
           )
          (MenuItem
             activeHelpKey: editCut
@@ -2070,7 +2082,7 @@
             labelImage: (ResourceRetriever ToolbarIconLibrary deleteWidgetIcon)
           )
          (MenuItem
-            label: ''
+            label: '-'
           )
          (MenuItem
             activeHelpKey: moveWidgetUp
@@ -2109,7 +2121,7 @@
             labelImage: (ResourceRetriever ToolbarIconLibrary moveWidgetLeftDownIcon)
           )
          (MenuItem
-            label: ''
+            label: '-'
             startGroup: right
           )
          (MenuItem
@@ -2338,6 +2350,10 @@
     ^ builder booleanValueAspectFor:#hasOneSelectionOtherThanCanvas
 !
 
+hasUndoHistory
+    ^ self painter hasUndoHistory
+!
+
 helpIcon
 
     ^Icon helpIcon
@@ -2808,6 +2824,26 @@
     "Modified: / 20.6.1998 / 16:49:16 / cg"
 ! !
 
+!UIPainter methodsFor:'help spec'!
+
+flyByHelpSpec
+    |spec|
+
+    spec := self class flyByHelpSpec.
+    spec at:#editUndo put:(resources string:'Undo (%1)' 
+                        with:(resources string:self painter undoHistory labelOfLastUndo)).
+    ^ spec
+!
+
+helpSpec
+    |spec|
+
+    spec := self class helpSpec.
+    spec at:#editUndo put:(resources string:'Undo (%1)' 
+                        with:(resources string:self painter undoHistory labelOfLastUndo)).
+    ^ spec
+! !
+
 !UIPainter methodsFor:'menus-dynamic'!
 
 menuEdit
@@ -2818,7 +2854,8 @@
         m := m decodeAsLiteralArray.
         i := m detectItem:[:item | item nameKey == #undo] ifNone:nil.
         i notNil ifTrue:[
-            i label:(i label , ' (' , self painter undoHistory labelOfLastUndo , ')')   
+            i label:(resources string:(i label , ' (%1)') 
+                        with:(resources string:self painter undoHistory labelOfLastUndo)).
         ].
         "/ m receiver:self.   -- now done in findGuiResources ...
         m findGuiResourcesIn:self.