--- a/BookmarksEditDialog.st	Sun Dec 11 21:05:49 2016 +0100
+++ b/BookmarksEditDialog.st	Mon Dec 12 12:54:51 2016 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libtool' }"
 
+"{ NameSpace: Smalltalk }"
+
 SimpleDialog subclass:#BookmarksEditDialog
 	instanceVariableNames:'selectedBookmarksHolder bookmarkListHolder defaultBookmark answer'
 	classVariableNames:''
@@ -42,36 +44,27 @@
     ^ super flyByHelpSpec addPairsFrom:#(
 
 #moveUp
-'Move Up'
+'Move the selected bookmark up in the list'
 
 #moveDown
-'Move Down'
+'Move the selected bookmark down in the list'
+
+#exportBookmarks
+'Export bookmarks to a file'
+
+#importBookmarks
+'Import bookmarks from a file'
+
+#newBookmark
+'Add a new bookmark'
+
+#removeBookmark
+'Remove the selected bookmark'
+
+#sortBookmarks
+'Sort bookmarks alphabetically'
 
 ).
-!
-
-helpSpec
-    "This resource specification was automatically generated
-     by the UIHelpTool of ST/X."
-
-    "Do not manually edit this!! If it is corrupted,
-     the UIHelpTool may not be able to read the specification."
-
-    "
-     UIHelpTool openOnClass:BookmarksEditDialog    
-    "
-
-    <resource: #help>
-
-    ^ super helpSpec addPairsFrom:#(
-
-#moveDown
-''
-
-#moveUp
-''
-
-)
 ! !
 
 !BookmarksEditDialog class methodsFor:'image specs'!
@@ -248,6 +241,7 @@
     "Do not manually edit this!! If it is corrupted,
      the MenuEditor may not be able to read the specification."
 
+
     "
      MenuEditor new openOnClass:BookmarksEditDialog andSelector:#toolBarMenu
      (Menu new fromLiteralArrayEncoding:(BookmarksEditDialog toolBarMenu)) startUp
@@ -259,17 +253,17 @@
      #(Menu
         (
          (MenuItem
+            activeHelpKey: newBookmark
             label: 'New...'
             itemValue: new
-            translateLabel: true
             isButton: true
             labelImage: (ResourceRetriever XPToolbarIconLibrary newBookmark22x22Icon)
           )
          (MenuItem
+            activeHelpKey: removeBookmark
             enabled: removeButtonEnabledHolder
             label: 'Remove...'
             itemValue: remove
-            translateLabel: true
             isButton: true
             labelImage: (ResourceRetriever XPToolbarIconLibrary close22x22Icon)
           )
@@ -281,7 +275,6 @@
             enabled: upButtonEnabledHolder
             label: 'Up'
             itemValue: up
-            translateLabel: true
             isButton: true
             labelImage: (ResourceRetriever XPToolbarIconLibrary up22x22Icon)
           )
@@ -290,7 +283,6 @@
             enabled: downButtonEnabledHolder
             label: 'Down'
             itemValue: down
-            translateLabel: true
             isButton: true
             labelImage: (ResourceRetriever XPToolbarIconLibrary down22x22Icon)
           )
@@ -298,10 +290,10 @@
             label: '-'
           )
          (MenuItem
+            activeHelpKey: sortBookmarks
             enabled: sortButtonEnabledHolder
             label: 'Sort'
             itemValue: sort
-            translateLabel: true
             isButton: true
             labelImage: (ResourceRetriever BookmarksEditDialog sort22x22Icon)
           )
@@ -309,16 +301,16 @@
             label: '-'
           )
          (MenuItem
+            activeHelpKey: importBookmarks
             label: 'Import...'
             itemValue: import
-            translateLabel: true
             isButton: true
             labelImage: (ResourceRetriever XPToolbarIconLibrary fileIn22x22Icon)
           )
          (MenuItem
+            activeHelpKey: exportBookmarks
             label: 'Export...'
             itemValue: export
-            translateLabel: true
             isButton: true
             labelImage: (ResourceRetriever BookmarksEditDialog fileOut22x22Icon)
           )
@@ -326,8 +318,6 @@
         nil
         nil
       )
-
-    "Modified: / 17-01-2011 / 13:06:35 / cg"
 ! !
 
 !BookmarksEditDialog class methodsFor:'opening'!
@@ -645,9 +635,10 @@
 !BookmarksEditDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BookmarksEditDialog.st,v 1.10 2011-01-17 12:06:37 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/BookmarksEditDialog.st,v 1.10 2011-01-17 12:06:37 cg Exp $'
+    ^ '$Header$'
 ! !
+