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.15 1995-03-25 22:10:09 claus Exp $ |
26 $Header: /cvs/stx/stx/libbasic/Project.st,v 1.16 1995-05-01 23:02:41 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.15 1995-03-25 22:10:09 claus Exp $ |
47 $Header: /cvs/stx/stx/libbasic/Project.st,v 1.16 1995-05-01 23:02:41 claus Exp $ |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 documentation |
51 documentation |
52 " |
52 " |
158 name |
158 name |
159 ^ name |
159 ^ name |
160 ! |
160 ! |
161 |
161 |
162 views |
162 views |
163 ^ views |
163 ^ views asArray |
164 ! |
164 ! |
165 |
165 |
166 classes |
166 classes |
167 "return a collection of classes belonging to that project" |
167 "return a collection of classes belonging to that project" |
168 |
168 |
184 Project changed:#name |
184 Project changed:#name |
185 ] |
185 ] |
186 ! |
186 ! |
187 |
187 |
188 views:aSetOfViews |
188 views:aSetOfViews |
189 views := aSetOfViews |
189 views := WeakIdentitySet withAll:aSetOfViews |
190 ! |
190 ! |
191 |
191 |
192 changeSet:aChangeSet |
192 changeSet:aChangeSet |
193 changeSet := aChangeSet |
193 changeSet := aChangeSet |
194 ! |
194 ! |
241 ! ! |
241 ! ! |
242 |
242 |
243 !Project methodsFor:'initialization'! |
243 !Project methodsFor:'initialization'! |
244 |
244 |
245 initialize |
245 initialize |
246 views := (OrderedCollection new). |
246 views := WeakIdentitySet new. |
247 name := 'new Project-' , NextSequential printString. |
247 name := 'new Project-' , NextSequential printString. |
248 NextSequential := NextSequential + 1. |
248 NextSequential := NextSequential + 1. |
249 packageName := 'private'. |
249 packageName := 'private'. |
250 changeSet := ChangeSet new. |
250 changeSet := ChangeSet new. |
251 self directory:'.' |
251 self directory:'.' |