# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 902167479 -7200
# Node ID 16a48132abdb318602da56213b2ae09244aba139
# Parent  4f2616466d682fe7920fa0d228f3e7ae9e9f74ce
#termiante -> #closeRequest.

diff -r 4f2616466d68 -r 16a48132abdb BrowserView.st
--- a/BrowserView.st	Mon Aug 03 20:01:18 1998 +0200
+++ b/BrowserView.st	Mon Aug 03 20:04:39 1998 +0200
@@ -5809,6 +5809,17 @@
     "Created: / 18.6.1998 / 16:49:59 / cg"
 !
 
+closeRequest
+    "let user confirm, if codeView was modified and not saved"
+
+    (self checkSelectionChangeAllowed) ifTrue:[
+        super closeRequest
+    ]
+
+    "Created: / 3.8.1998 / 19:52:39 / cg"
+    "Modified: / 3.8.1998 / 20:02:29 / cg"
+!
+
 destroy
     "release dependant - destroy popups"
 
@@ -5934,12 +5945,6 @@
     "Modified: / 29.10.1997 / 15:50:26 / cg"
 !
 
-terminate
-    (self checkSelectionChangeAllowed) ifTrue:[
-        super terminate
-    ]
-!
-
 title:someString
     myLabel := someString.
     self topView label:someString.
@@ -12047,6 +12052,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.437 1998-07-31 15:16:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.438 1998-08-03 18:04:39 cg Exp $'
 ! !
 BrowserView initialize!
diff -r 4f2616466d68 -r 16a48132abdb BrwsrView.st
--- a/BrwsrView.st	Mon Aug 03 20:01:18 1998 +0200
+++ b/BrwsrView.st	Mon Aug 03 20:04:39 1998 +0200
@@ -5809,6 +5809,17 @@
     "Created: / 18.6.1998 / 16:49:59 / cg"
 !
 
+closeRequest
+    "let user confirm, if codeView was modified and not saved"
+
+    (self checkSelectionChangeAllowed) ifTrue:[
+        super closeRequest
+    ]
+
+    "Created: / 3.8.1998 / 19:52:39 / cg"
+    "Modified: / 3.8.1998 / 20:02:29 / cg"
+!
+
 destroy
     "release dependant - destroy popups"
 
@@ -5934,12 +5945,6 @@
     "Modified: / 29.10.1997 / 15:50:26 / cg"
 !
 
-terminate
-    (self checkSelectionChangeAllowed) ifTrue:[
-        super terminate
-    ]
-!
-
 title:someString
     myLabel := someString.
     self topView label:someString.
@@ -12047,6 +12052,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.437 1998-07-31 15:16:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.438 1998-08-03 18:04:39 cg Exp $'
 ! !
 BrowserView initialize!