equal
deleted
inserted
replaced
21 |
21 |
22 Project comment:' |
22 Project comment:' |
23 COPYRIGHT (c) 1993 by Claus Gittinger |
23 COPYRIGHT (c) 1993 by Claus Gittinger |
24 All Rights Reserved |
24 All Rights Reserved |
25 |
25 |
26 $Header: /cvs/stx/stx/libbasic/Project.st,v 1.18 1995-05-03 15:37:46 claus Exp $ |
26 $Header: /cvs/stx/stx/libbasic/Project.st,v 1.19 1995-05-06 04:26:35 claus Exp $ |
27 '! |
27 '! |
28 |
28 |
29 !Project class methodsFor:'documentation'! |
29 !Project class methodsFor:'documentation'! |
30 |
30 |
31 copyright |
31 copyright |
42 " |
42 " |
43 ! |
43 ! |
44 |
44 |
45 version |
45 version |
46 " |
46 " |
47 $Header: /cvs/stx/stx/libbasic/Project.st,v 1.18 1995-05-03 15:37:46 claus Exp $ |
47 $Header: /cvs/stx/stx/libbasic/Project.st,v 1.19 1995-05-06 04:26:35 claus Exp $ |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 documentation |
51 documentation |
52 " |
52 " |
53 this class is still under construction. |
53 this class is still under construction (especially the build features are unfinished). |
54 Currently, all it does is keep track of per-project views |
54 Currently, all it does is keep track of per-project views |
55 (to hide or show them), define the directory when filing-out, |
55 (to hide or show them), define the directory when filing-out, |
56 and define packageName for new classes and methods. |
56 and define packageName for new classes and methods. |
57 |
57 |
58 Future: |
58 Future: |
65 ! ! |
65 ! ! |
66 |
66 |
67 !Project class methodsFor:'initialization'! |
67 !Project class methodsFor:'initialization'! |
68 |
68 |
69 initialize |
69 initialize |
70 CurrentProject isNil ifTrue:[ |
70 SystemProject isNil ifTrue:[ |
71 NextSequential := 1. |
71 NextSequential := 1. |
72 CurrentProject := SystemProject := self new name:'default'. |
72 SystemProject := self new name:'default'. |
|
73 SystemProject packageName:'private'. |
73 " |
74 " |
74 the SystemProject does not keep a record if changes, |
75 the SystemProject does not keep a record if changes, |
75 but instead depends on the changes file - recording anything there. |
76 but instead depends on the changes file - recording anything there. |
76 " |
77 " |
77 SystemProject changeSet:nil. |
78 SystemProject changeSet:nil. |
78 ] |
79 ]. |
|
80 |
|
81 CurrentProject := SystemProject. |
79 |
82 |
80 " |
83 " |
81 Project initialize |
84 Project initialize |
82 " |
85 " |
83 ! ! |
86 ! ! |
248 views notNil ifTrue:[ |
251 views notNil ifTrue:[ |
249 views do:[:aView | |
252 views do:[:aView | |
250 aView notNil ifTrue:[aView unrealize] |
253 aView notNil ifTrue:[aView unrealize] |
251 ] |
254 ] |
252 ]. |
255 ]. |
|
256 ! |
|
257 |
|
258 destroyViews |
|
259 "destroy all views of this project" |
|
260 |
|
261 views notNil ifTrue:[ |
|
262 views do:[:aView | |
|
263 aView notNil ifTrue:[aView destroy] |
|
264 ] |
|
265 ]. |
253 ! ! |
266 ! ! |
254 |
267 |
255 !Project methodsFor:'initialization'! |
268 !Project methodsFor:'initialization'! |
256 |
269 |
257 initialize |
270 initialize |
|
271 |numString| |
|
272 |
258 views := WeakIdentitySet new. |
273 views := WeakIdentitySet new. |
259 name := 'new Project-' , NextSequential printString. |
274 numString := NextSequential printString. |
260 NextSequential := NextSequential + 1. |
275 NextSequential := NextSequential + 1. |
261 packageName := 'private'. |
276 |
|
277 name := 'new Project-' , numString. |
|
278 packageName := 'private-' , numString. |
262 changeSet := ChangeSet new. |
279 changeSet := ChangeSet new. |
263 self directory:'.' |
280 self directory:'.' |
264 ! ! |
281 ! ! |
265 |
282 |
266 !Project methodsFor:'properties'! |
283 !Project methodsFor:'properties'! |