--- 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 $'
! !