--- a/FileApplicationNoteBook.st	Mon Aug 26 14:25:21 2013 +0200
+++ b/FileApplicationNoteBook.st	Tue Aug 27 11:13:01 2013 +0200
@@ -4521,19 +4521,35 @@
     ^ super helpSpec addPairsFrom:#(
 
 #closeTabButton
-''
+'Close this tab'
 
 #hideEditorOperationsToolBar
 'Hide the additional editor operations menu'
 
 #indentCode
-''
+'Indent the selected lines (or the cursor line) by 4'
 
 #showEditOperationsToolBar
 'Show the additional editor operations menu'
 
 #undentCode
-''
+'Undent the selected lines (or the cursor line) by 4'
+
+#toggleBold
+'Toggle the selection''s bold attribute (if bold, turn off; if not, turn on)'
+
+#toggleItalic
+'Toggle the selection''s italic attribute (if italic, turn off; if not, turn on)'
+
+#toggleCode
+'Toggle the selection''s code+pre attribute (if code, turn off; if not, turn on)'
+
+#addAnchor
+'Make the selection an an anchor element'
+
+#addImage
+'Insert a bitmap image element'
+
 
 )
 ! !
@@ -4856,20 +4872,28 @@
      #(Menu
         (
          (MenuItem
-            activeHelpKey: makeBold
+            activeHelpKey: toggleBold
             label: 'bold'
-            itemValue: editOperationMakeBoldHTML
+            itemValue: editOperationToggleBoldHTML
             labelImage: (ResourceRetriever ToolbarIconLibrary #'edit_bold_15x15')
           )
          (MenuItem
-            activeHelpKey: makeItalic
+            activeHelpKey: toggleItalic
             enabled: canEdit
             label: 'italic'
-            itemValue: editOperationMakeItalicHTML  
+            itemValue: editOperationToggleItalicHTML  
             isButton: true
             labelImage: (ResourceRetriever ToolbarIconLibrary #'edit_italic_15x15')
           )
          (MenuItem
+            activeHelpKey: toggleCode
+            enabled: canEdit
+            label: 'code'
+            itemValue: editOperationToggleCodeHTML  
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary #'edit_code_15x15')
+          )
+         (MenuItem
             activeHelpKey: addAnchor
             enabled: canEdit
             label: 'anchor'
@@ -5269,16 +5293,14 @@
     "Created: / 02-08-2013 / 18:20:18 / cg"
 !
 
-editOperationMakeBoldHTML
+editOperationToggleBoldHTML
     self editOperationToggleHTML:'Toggle Bold' start:'<b>' end:'</b>'
 
     "Created: / 02-08-2013 / 18:04:27 / cg"
 !
 
-editOperationMakeItalicHTML
-    self editOperationToggleHTML:'Toggle Italic' start:'<i>' end:'</i>'
-
-    "Created: / 02-08-2013 / 18:14:55 / cg"
+editOperationToggleCodeHTML
+    self editOperationToggleHTML:'Toggle Code' start:'<code><pre>' end:'</pre></code>'
 !
 
 editOperationToggleHTML:info start:whatStart end:whatEnd
@@ -5304,6 +5326,12 @@
     "Created: / 02-08-2013 / 18:14:25 / cg"
 !
 
+editOperationToggleItalicHTML
+    self editOperationToggleHTML:'Toggle Italic' start:'<i>' end:'</i>'
+
+    "Created: / 02-08-2013 / 18:14:55 / cg"
+!
+
 editOperationUndentCode
     editView undentBy4
 
@@ -7216,10 +7244,10 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.280 2013-08-06 08:38:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.281 2013-08-27 09:13:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.280 2013-08-06 08:38:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.281 2013-08-27 09:13:01 cg Exp $'
 ! !