--- a/Project.st Thu May 04 14:48:11 1995 +0200
+++ b/Project.st Sat May 06 06:26:35 1995 +0200
@@ -23,7 +23,7 @@
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Project.st,v 1.18 1995-05-03 15:37:46 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Project.st,v 1.19 1995-05-06 04:26:35 claus Exp $
'!
!Project class methodsFor:'documentation'!
@@ -44,13 +44,13 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Project.st,v 1.18 1995-05-03 15:37:46 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Project.st,v 1.19 1995-05-06 04:26:35 claus Exp $
"
!
documentation
"
- this class is still under construction.
+ this class is still under construction (especially the build features are unfinished).
Currently, all it does is keep track of per-project views
(to hide or show them), define the directory when filing-out,
and define packageName for new classes and methods.
@@ -67,15 +67,18 @@
!Project class methodsFor:'initialization'!
initialize
- CurrentProject isNil ifTrue:[
+ SystemProject isNil ifTrue:[
NextSequential := 1.
- CurrentProject := SystemProject := self new name:'default'.
+ SystemProject := self new name:'default'.
+ SystemProject packageName:'private'.
"
the SystemProject does not keep a record if changes,
but instead depends on the changes file - recording anything there.
"
SystemProject changeSet:nil.
- ]
+ ].
+
+ CurrentProject := SystemProject.
"
Project initialize
@@ -250,15 +253,29 @@
aView notNil ifTrue:[aView unrealize]
]
].
+!
+
+destroyViews
+ "destroy all views of this project"
+
+ views notNil ifTrue:[
+ views do:[:aView |
+ aView notNil ifTrue:[aView destroy]
+ ]
+ ].
! !
!Project methodsFor:'initialization'!
initialize
+ |numString|
+
views := WeakIdentitySet new.
- name := 'new Project-' , NextSequential printString.
+ numString := NextSequential printString.
NextSequential := NextSequential + 1.
- packageName := 'private'.
+
+ name := 'new Project-' , numString.
+ packageName := 'private-' , numString.
changeSet := ChangeSet new.
self directory:'.'
! !