equal
deleted
inserted
replaced
418 "set the defaultNameSpace of this project. |
418 "set the defaultNameSpace of this project. |
419 New classes will (if not specified by a directive) be installed |
419 New classes will (if not specified by a directive) be installed |
420 in this nameSpace. Useful, when filing in ST-80 code, to avoid |
420 in this nameSpace. Useful, when filing in ST-80 code, to avoid |
421 overwriting of standard classes." |
421 overwriting of standard classes." |
422 |
422 |
423 defaultNameSpace := aNamespace. |
423 aNamespace ~~ defaultNameSpace ifTrue:[ |
424 self changed:#defaultNameSpace. |
424 defaultNameSpace := aNamespace. |
425 self == CurrentProject ifTrue:[ |
425 self changed:#defaultNameSpace. |
426 Project changed:#defaultNameSpace |
426 self == CurrentProject ifTrue:[ |
|
427 Project changed:#defaultNameSpace |
|
428 ] |
427 ] |
429 ] |
428 |
430 |
429 "Created: 2.1.1997 / 19:54:37 / cg" |
431 "Created: 2.1.1997 / 19:54:37 / cg" |
430 "Modified: 27.1.1997 / 12:00:01 / cg" |
432 "Modified: 27.1.1997 / 12:00:01 / cg" |
431 ! |
433 ! |
727 |
729 |
728 |s coll first| |
730 |s coll first| |
729 |
731 |
730 s := aStream. |
732 s := aStream. |
731 |
733 |
732 s nextPutLine:'; $Header: /cvs/stx/stx/libbasic/Project.st,v 1.71 1999-03-25 17:34:23 cg Exp $'; nextPutLine:';'. |
734 s nextPutLine:'; $Header: /cvs/stx/stx/libbasic/Project.st,v 1.72 1999-03-29 22:16:38 cg Exp $'; nextPutLine:';'. |
733 s nextPutLine:'; Project saved ' , Smalltalk timeStamp; nextPutLine:';'. |
735 s nextPutLine:'; Project saved ' , Smalltalk timeStamp; nextPutLine:';'. |
734 s nextPutLine:'; Be careful when editing - do not corrupt the files syntax.'. |
736 s nextPutLine:'; Be careful when editing - do not corrupt the files syntax.'. |
735 s nextPutLine:'; (Lines starting with a semicolon are comment lines)'. |
737 s nextPutLine:'; (Lines starting with a semicolon are comment lines)'. |
736 s nextPutLine:'; (Lines ending with a backslash are concatenated with the following line)'. |
738 s nextPutLine:'; (Lines ending with a backslash are concatenated with the following line)'. |
737 |
739 |
1222 properties isNil ifTrue:[^ nil]. |
1224 properties isNil ifTrue:[^ nil]. |
1223 ^ properties at:aKey ifAbsent:nil. |
1225 ^ properties at:aKey ifAbsent:nil. |
1224 ! |
1226 ! |
1225 |
1227 |
1226 propertyAt:aKey put:aValue |
1228 propertyAt:aKey put:aValue |
|
1229 |oldValue| |
|
1230 |
|
1231 oldValue := self propertyAt:aKey. |
|
1232 |
1227 properties isNil ifTrue:[ |
1233 properties isNil ifTrue:[ |
1228 properties := IdentityDictionary new |
1234 properties := IdentityDictionary new |
1229 ]. |
1235 ]. |
1230 properties at:aKey put:aValue. |
1236 properties at:aKey put:aValue. |
1231 self changed:aKey. |
1237 |
|
1238 oldValue ~~ aValue ifTrue:[ |
|
1239 self changed:aKey. |
|
1240 ]. |
1232 |
1241 |
1233 "Created: / 23.3.1999 / 14:21:11 / cg" |
1242 "Created: / 23.3.1999 / 14:21:11 / cg" |
1234 ! |
1243 ! |
1235 |
1244 |
1236 type |
1245 type |
1245 |
1254 |
1246 (#(application library smalltalk) includes:aSymbol) ifFalse:[ |
1255 (#(application library smalltalk) includes:aSymbol) ifFalse:[ |
1247 self warn:'invalid project type'. |
1256 self warn:'invalid project type'. |
1248 ^ self |
1257 ^ self |
1249 ]. |
1258 ]. |
1250 properties isNil ifTrue:[ |
1259 self propertyAt:#type put:aSymbol |
1251 properties := IdentityDictionary new |
|
1252 ]. |
|
1253 properties at:#type put:aSymbol. |
|
1254 self changed:#type. |
|
1255 |
|
1256 ! |
1260 ! |
1257 |
1261 |
1258 wasLoadedFromFile |
1262 wasLoadedFromFile |
1259 "return true, if the project was loaded from a file" |
1263 "return true, if the project was loaded from a file" |
1260 |
1264 |
1503 conditionForInclusion := something.! ! |
1507 conditionForInclusion := something.! ! |
1504 |
1508 |
1505 !Project class methodsFor:'documentation'! |
1509 !Project class methodsFor:'documentation'! |
1506 |
1510 |
1507 version |
1511 version |
1508 ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.71 1999-03-25 17:34:23 cg Exp $' |
1512 ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.72 1999-03-29 22:16:38 cg Exp $' |
1509 ! ! |
1513 ! ! |
1510 Project initialize! |
1514 Project initialize! |