FileBrowserV2.st
changeset 3954 78e29a3ea4c1
parent 3953 4fd0ed70cf36
child 3957 e93370f11c10
--- a/FileBrowserV2.st	Tue Oct 08 10:20:23 2002 +0200
+++ b/FileBrowserV2.st	Tue Oct 08 10:42:58 2002 +0200
@@ -1254,6 +1254,14 @@
 
 !FileBrowserV2 methodsFor:'startup & release'!
 
+closeRequest
+
+    (self application:#FileApplicationNoteBook do:#closeRequest) not ifTrue:[
+        ^ self
+    ].
+    ^ super closeRequest.
+!
+
 hideFilenameEntryFieldButtonCreated:aButton
 
     aButton passiveLevel:(MenuPanel defaultLevel). 
@@ -1329,7 +1337,7 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.10 2002-10-08 08:20:15 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.11 2002-10-08 08:42:58 penk Exp $'
 ! !
 
 FileBrowserV2 initialize!