--- a/ProjectV.st Fri Apr 23 14:45:55 1999 +0200
+++ b/ProjectV.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/Attic/ProjectV.st,v 1.45 1999-04-22 16:40:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/ProjectV.st,v 1.46 1999-04-23 12:47:08 cg Exp $'
! !
--- 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 $'
! !