FileBrowser.st
changeset 1786 b209a26b4143
parent 1784 329e3a904236
child 1820 ea3ea229a97a
--- a/FileBrowser.st	Mon Aug 03 19:03:23 1998 +0200
+++ b/FileBrowser.st	Mon Aug 03 19:56:47 1998 +0200
@@ -1503,6 +1503,18 @@
 
 !FileBrowser methodsFor:'misc user interaction'!
 
+closeRequest
+    "exit FileBrowser"
+
+    (self askIfModified:'contents has not been saved.\\Modifications will be lost when FileBrowser is closed.'
+              yesButton:'close') 
+    ifTrue:[
+        super closeRequest
+    ]
+
+    "Created: / 3.8.1998 / 19:55:06 / cg"
+!
+
 destroy
     "destroy view and boxes"
 
@@ -1529,13 +1541,6 @@
     self updateCurrentDirectory
 !
 
-terminate
-    "exit FileBrowser"
-
-    (self askIfModified:'contents has not been saved.\\Modifications will be lost when FileBrowser is closed.'
-	      yesButton:'close') ifTrue:[self destroy]
-!
-
 update:what with:someArgument from:changedObject
     realized ifFalse:[^ self].
 
@@ -4091,5 +4096,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.238 1998-08-01 15:52:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.239 1998-08-03 17:56:47 cg Exp $'
 ! !