--- a/FileBrowser.st	Tue Oct 02 20:11:33 2001 +0200
+++ b/FileBrowser.st	Tue Oct 02 20:18:29 2001 +0200
@@ -1896,12 +1896,12 @@
      this replaces everything by the commands output ...
     "
     action := [:command | 
-		self class addToCommandHistory:command for:fileName.
-		self doExecuteCommand:command replace:true
-	      ].
-
-    (self askIfModified:'contents has not been saved.\\Modifications will be lost when command is executed.'
-	      yesButton:'execute') ifFalse:[^ self].
+                self class addToCommandHistory:command for:fileName.
+                self doExecuteCommand:command replace:true
+              ].
+
+    (self askIfModified:'Contents has not been saved.\\Modifications will be lost when command is executed.'
+              yesButton:'Execute') ifFalse:[^ self].
 
 "/    "
 "/     this inserts the commands output ...
@@ -1911,7 +1911,7 @@
 
     sel := fileListView selection.
     sel size == 1 ifTrue:[
-	fileName := fileList at:sel first
+        fileName := fileList at:sel first
     ].
     self askForCommandFor:fileName thenDo:action
 
@@ -2398,22 +2398,22 @@
     |fileName msg label|
 
     (subView modified not or:[subView contentsWasSaved]) ifTrue:[
-	self doFileGet:viaDoubleClick.
-	^ self
+        self doFileGet:viaDoubleClick.
+        ^ self
     ].
     fileName := self getSelectedFileName.
     fileName notNil ifTrue:[
-	(currentDirectory filenameFor:fileName) isDirectory ifTrue:[
-	    msg := 'contents has not been saved.\\Modifications will be lost when directory is changed.'.
-	    label := 'change'.
-	] ifFalse:[
-	    msg := 'contents has not been saved.\\Modifications will be lost when new file is read.'.
-	    label := 'get'.
-	].
-	(self ask:(resources at:msg) yesButton:label) ifTrue:[
-	    subView modified:false.
-	    self doFileGet:viaDoubleClick
-	]
+        (currentDirectory filenameFor:fileName) isDirectory ifTrue:[
+            msg := 'Contents has not been saved.\\Modifications will be lost when directory is changed.'.
+            label := 'Change'.
+        ] ifFalse:[
+            msg := 'Contents has not been saved.\\Modifications will be lost when new file is read.'.
+            label := 'Get'.
+        ].
+        (self ask:(resources at:msg) yesButton:label) ifTrue:[
+            subView modified:false.
+            self doFileGet:viaDoubleClick
+        ]
     ]
 
     "Created: 19.6.1996 / 09:38:35 / cg"
@@ -2459,6 +2459,9 @@
     "show a hex dump (similar to od -x)
      Only needed with non-Unix systems."
 
+    (self askIfModified:'Contents has not been saved.\\Modifications will be lost when hex dump is shown.'
+              yesButton:'HexDump') ifFalse:[^ self].
+
     self withReadCursorDo:[
         |fileName f stream data offs 
          addrDigits col line lineStream asciiLineStream lines|
@@ -7326,5 +7329,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.423 2001-10-02 18:11:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.424 2001-10-02 18:18:29 cg Exp $'
 ! !