--- a/FileApplicationNoteBook.st	Mon Apr 28 15:23:28 2008 +0200
+++ b/FileApplicationNoteBook.st	Wed Apr 30 14:08:25 2008 +0200
@@ -80,7 +80,7 @@
 		itemRemoved enableHexToggle md5CheckSum
 		md5HashValueComputationProcess viewModifiedChannel
 		textEditorModificationTime checkModifiedBlock fileEncodingHolder
-		doNotShowFontDialog lockFileEncodingHolder'
+		doNotShowFontDialog lockFileEncodingHolder enableSelectInBrowser'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:FileApplicationNoteBook
@@ -3528,6 +3528,9 @@
             labelImage: (ResourceRetriever ToolbarIconLibrary historyBackIcon)
           )
          (MenuItem
+            label: '-'
+          )
+         (MenuItem
             label: 'Print'
             itemValue: doPrint
             translateLabel: true
@@ -3535,6 +3538,9 @@
             labelImage: (ResourceRetriever ToolbarIconLibrary printerIcon)
           )
          (MenuItem
+            label: '-'
+          )
+         (MenuItem
             activeHelpKey: #'Edit Source'
             label: 'Edit'
             itemValue: doEdit
@@ -3543,7 +3549,7 @@
             labelImage: (ResourceRetriever ToolbarIconLibrary editFileIcon)
           )
          (MenuItem
-            #activeHelpKey: #closeTabButton
+            activeHelpKey: closeTabButton
             label: 'Close'
             itemValue: doClose
             translateLabel: true
@@ -4407,6 +4413,7 @@
      #(Menu
         (
          (MenuItem
+            activeHelpKey: saveFile
             enabled: enableSave
             label: 'Save'
             itemValue: accept
@@ -4416,6 +4423,7 @@
             labelImage: (ResourceRetriever ToolbarIconLibrary saveTextToFileIcon)
           )
          (MenuItem
+            activeHelpKey: reloadFile
             enabled: enableReload
             label: 'Reload'
             itemValue: reload
@@ -4425,9 +4433,20 @@
             labelImage: (ResourceRetriever ToolbarIconLibrary reloadTextFromFileIcon)
           )
          (MenuItem
+            activeHelpKey: findInBrowser
+            enabled: enableSelectInBrowser
+            label: 'Select in Browser'
+            itemValue: selectInBrowser
+            nameKey: SelectInBrowser
+            translateLabel: true
+            isButton: true
+            labelImage: (ResourceRetriever ToolbarIconLibrary searchFileIcon)
+          )
+         (MenuItem
             label: '-'
           )
          (MenuItem
+            activeHelpKey: print
             enabled: enableHexToggle
             label: 'Print'
             itemValue: doPrint
@@ -4440,6 +4459,7 @@
             label: '-'
           )
          (MenuItem
+            activeHelpKey: toggleHexDisplay
             enabled: enableHexToggle
             label: 'Hex'
             translateLabel: true
@@ -4451,6 +4471,7 @@
             label: ''
           )
          (MenuItem
+            activeHelpKey: showDifferences
             label: 'Diff to Current'
             itemValue: openDiffView
             translateLabel: true
@@ -4677,6 +4698,8 @@
         ^ nil
     ].
 
+    self enableSelectInBrowser value:true.
+
     presentation := self presentation.
     presentation == #asText ifTrue:[
         fileSize > (4 * 1024 * 1024) ifTrue:[
@@ -4920,6 +4943,15 @@
     ]
 !
 
+selectInBrowser
+    |application|
+
+    application := self masterApplication.
+    application notNil ifTrue:[
+        application gotoFile:(self fileName).
+    ].
+!
+
 setContents
     |text|
 
@@ -5111,6 +5143,13 @@
     ^ enableSave.
 !
 
+enableSelectInBrowser
+    enableSelectInBrowser isNil ifTrue:[
+        enableSelectInBrowser := false asValue.
+    ].
+    ^ enableSelectInBrowser.
+!
+
 fileContentsModel
     fileContentsModel isNil ifTrue:[
         fileContentsModel := ValueHolder new.
@@ -5964,5 +6003,5 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.223 2008-03-10 09:03:33 mb Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.224 2008-04-30 12:08:25 cg Exp $'
 ! !