--- a/WorkspaceApplication.st	Mon Oct 13 15:43:52 2008 +0200
+++ b/WorkspaceApplication.st	Mon Oct 13 19:07:57 2008 +0200
@@ -837,6 +837,7 @@
           )
          (MenuItem
             label: 'DoIt'
+            activeHelpKey: help_doIt
             itemValue: doIt
             translateLabel: true
             isButton: true
@@ -845,6 +846,7 @@
           )
          (MenuItem
             label: 'PrintIt'
+            activeHelpKey: help_printIt
             itemValue: printIt
             translateLabel: true
             isButton: true
@@ -853,6 +855,7 @@
           )
          (MenuItem
             label: 'InspectIt'
+            activeHelpKey: help_inspectIt
             itemValue: inspectIt
             translateLabel: true
             isButton: true
@@ -861,6 +864,7 @@
           )
          (MenuItem
             label: 'BrowseIt'
+            activeHelpKey: help_browseIt
             itemValue: browseIt
             translateLabel: true
             isButton: true
@@ -2335,5 +2339,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.159 2008-10-12 12:52:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.160 2008-10-13 17:07:57 cg Exp $'
 ! !