--- a/FileApplicationNoteBook.st	Wed Dec 17 11:13:24 2003 +0100
+++ b/FileApplicationNoteBook.st	Fri Dec 19 13:16:43 2003 +0100
@@ -2927,6 +2927,29 @@
     ^ 'HTML View for:'
 ! !
 
+!FileApplicationNoteBook::HtmlViewApplication class methodsFor:'help specs'!
+
+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:FileApplicationNoteBook::HtmlViewApplication    
+    "
+
+    <resource: #help>
+
+    ^ super helpSpec addPairsFrom:#(
+
+#'Edit Source'
+''
+
+)
+! !
+
 !FileApplicationNoteBook::HtmlViewApplication class methodsFor:'interface specs'!
 
 windowSpec
@@ -3010,37 +3033,45 @@
     <resource: #menu>
 
     ^ 
-     #(#Menu
-        #(
-         #(#MenuItem
-            #label: 'Reload'
-            #translateLabel: true
-            #isButton: true
-            #value: #doReload
-            #labelImage: #(#ResourceRetriever #AbstractFileBrowser #htmlReloadIcon)
+     #(Menu
+        (
+         (MenuItem
+            label: 'Reload'
+            itemValue: doReload
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever AbstractFileBrowser htmlReloadIcon)
           )
-         #(#MenuItem
-            #label: 'Back'
-            #translateLabel: true
-            #isButton: true
-            #value: #doGoBack
-            #labelImage: #(#ResourceRetriever #Icon #leftIcon)
+         (MenuItem
+            label: 'Back'
+            itemValue: doGoBack
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever Icon leftIcon)
           )
-         #(#MenuItem
-            #label: 'Print'
-            #translateLabel: true
-            #isButton: true
-            #value: #doPrint
-            #labelImage: #(#ResourceRetriever #ToolbarIconLibrary #printer22x22Icon)
+         (MenuItem
+            label: 'Print'
+            itemValue: doPrint
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary printer22x22Icon)
           )
-         #(#MenuItem
-            #label: 'Close'
-            #translateLabel: true
-            #isButton: true
-            #hideMenuOnActivated: false
-            #startGroup: #right
-            #value: #doClose
-            #labelImage: #(#ResourceRetriever #AbstractFileBrowser #closeIcon)
+         (MenuItem
+            activeHelpKey: #'Edit Source'
+            label: 'Edit'
+            itemValue: doEdit
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary edit20x20Icon)
+          )
+         (MenuItem
+            label: 'Close'
+            itemValue: doClose
+            translateLabel: true
+            isButton: true
+            startGroup: right
+            hideMenuOnActivated: false
+            labelImage: (ResourceRetriever AbstractFileBrowser closeIcon)
           )
          )
         nil
@@ -3086,6 +3117,11 @@
 
 !FileApplicationNoteBook::HtmlViewApplication methodsFor:'actions'!
 
+doEdit
+
+    self masterApplication openTextEditorOn:item.
+!
+
 doGoBack
 
     self htmlView menu_back.
@@ -4981,5 +5017,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.126 2003-11-11 09:51:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.127 2003-12-19 12:16:43 penk Exp $'
 ! !