--- a/ToolApplicationModel.st	Tue Jan 16 22:13:56 2018 +0100
+++ b/ToolApplicationModel.st	Tue Jan 16 22:14:09 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by eXept Software AG
               All Rights Reserved
@@ -241,67 +243,6 @@
 
 !ToolApplicationModel class methodsFor:'help specs'!
 
-flyByHelpSpec
-    <resource: #help>
-
-    ^super flyByHelpSpec addPairsFrom:#(
-
-"/#commitCancel
-"/'Cancels'
-"/
-"/#commitOK
-"/'Commit'
-
-#editCopy
-'Copy selection'
-
-#editCut
-'Cut selection'
-
-#editDelete
-'Delete selection'
-
-#editSearch
-'Search'
-
-#editMoveDown
-'Move Down'
-
-#editMoveIn
-'Move Into Next'
-
-#editMoveInAbove
-'Move Into Previous'
-
-#editMoveOut
-'Move Out'
-
-#editMoveUp
-'Move Up'
-
-#editPaste
-'Paste'
-
-#editUndo
-'Undo'
-
-#fileBrowseClass
-'Browse class'
-
-#fileDefineClass
-'Define class'
-
-#fileDefineClassAndSelector
-'Define class & selector'
-
-#fileExit
-'Exit'
-
-#helpShowHelp
-'Toggle help'
-)
-!
-
 helpSpec
     "This resource specification was automatically generated
      by the UIHelpTool of ST/X."
@@ -350,6 +291,9 @@
 #editDelete
 'Delete the selected item(s)'
 
+#editSearch
+'Search'
+
 #editMoveDown
 'Move the selected item one step down (in the order list)'
 
@@ -1685,7 +1629,7 @@
 !ToolApplicationModel::HistoryEntryForMethod methodsFor:'printing'!
 
 printStringInMenu
-    ^ methodClass name , ' » ' , (methodSelector?'?')
+    ^ methodClass name , ' » ' , (methodSelector?'?')
 
     "Modified: / 11-07-2006 / 13:53:40 / fm"
 ! !