#termiante -> #closeRequest.
authorClaus Gittinger <cg@exept.de>
Mon, 03 Aug 1998 20:04:39 +0200
changeset 1789 16a48132abdb
parent 1788 4f2616466d68
child 1790 ec55be94e038
#termiante -> #closeRequest.
BrowserView.st
BrwsrView.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!
--- 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!