ProjectView.st
changeset 2118 15936084e52b
parent 2109 a0fe5f821c3a
child 2302 8266e9ad23c7
--- a/ProjectView.st	Fri Apr 23 14:45:55 1999 +0200
+++ b/ProjectView.st	Fri Apr 23 14:47:08 1999 +0200
@@ -96,7 +96,7 @@
     "Modified: 14.2.1997 / 13:46:07 / cg"
 ! !
 
-!ProjectView methodsFor:'initialization'!
+!ProjectView methodsFor:'initialize / release'!
 
 addToCurrentProject
     "add this view to the current projects set of views.
@@ -107,6 +107,29 @@
     "Modified: 14.2.1997 / 13:35:58 / cg"
 !
 
+destroy
+    "Let user confirm, then close all of my views, and get rid of the changeList.
+     However, methods and classes are not restored to their
+     previous state."
+
+    |views|
+
+    myProject notNil ifTrue:[
+        views := myProject views.
+        (views size > 0) ifTrue:[
+            |box|
+
+            box := YesNoBox new.
+            box title:(resources string:'PROJECT_DESTROY') withCRs.
+            box okText:(resources string:'yes').
+            (box confirm) ifFalse:[^ self]
+        ].
+    ].
+    self doDestroy
+
+    "Modified: 14.2.1997 / 13:39:03 / cg"
+!
+
 initialize
     super initialize.
 
@@ -302,29 +325,6 @@
     "Modified: 14.2.1997 / 13:38:06 / cg"
 !
 
-destroy
-    "Let user confirm, then close all of my views, and get rid of the changeList.
-     However, methods and classes are not restored to their
-     previous state."
-
-    |views|
-
-    myProject notNil ifTrue:[
-        views := myProject views.
-        (views size > 0) ifTrue:[
-            |box|
-
-            box := YesNoBox new.
-            box title:(resources string:'PROJECT_DESTROY') withCRs.
-            box okText:(resources string:'yes').
-            (box confirm) ifFalse:[^ self]
-        ].
-    ].
-    self doDestroy
-
-    "Modified: 14.2.1997 / 13:39:03 / cg"
-!
-
 doDestroy
     "close all of my views, and get rid of the changeList.
      However, methods and classes are not restored to their
@@ -766,5 +766,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.45 1999-04-22 16:40:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.46 1999-04-23 12:47:08 cg Exp $'
 ! !