FileBrowserV2.st
changeset 4774 5119967dbd89
parent 4771 9290fdb65a5d
child 4775 674138a9faee
--- a/FileBrowserV2.st	Wed Apr 02 23:50:57 2003 +0200
+++ b/FileBrowserV2.st	Thu Apr 03 00:40:24 2003 +0200
@@ -1644,8 +1644,7 @@
 !FileBrowserV2 methodsFor:'startup & release'!
 
 closeRequest
-
-    (self application:#FileApplicationNoteBook do:#tryCloseApplications) not ifTrue:[
+    (self applicationNamed:#FileApplicationNoteBook do:[:appl | appl tryCloseApplications]) ifFalse:[
         ^ self
     ].
     ^ super closeRequest.
@@ -1740,7 +1739,7 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.78 2003-04-02 21:48:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.79 2003-04-02 22:40:24 cg Exp $'
 ! !
 
 FileBrowserV2 initialize!