equal
deleted
inserted
replaced
287 p := CurrentProject. |
287 p := CurrentProject. |
288 (p notNil |
288 (p notNil |
289 and:[p ~~ SystemProject]) ifTrue:[ |
289 and:[p ~~ SystemProject]) ifTrue:[ |
290 p rememberOverwrittenMethod:newMethod from:oldMethod |
290 p rememberOverwrittenMethod:newMethod from:oldMethod |
291 ] ifFalse:[ |
291 ] ifFalse:[ |
292 'Project [info]: DefaultProject does not remember overwritten methods' infoPrintCR |
292 "/ 'Project [info]: DefaultProject does not remember overwritten methods' infoPrintCR |
293 ] |
293 ] |
294 |
294 |
295 "Modified: 26.5.1997 / 16:04:15 / cg" |
295 "Modified: / 7.3.1998 / 13:38:39 / cg" |
296 ! ! |
296 ! ! |
297 |
297 |
298 !Project methodsFor:'accessing'! |
298 !Project methodsFor:'accessing'! |
299 |
299 |
300 changeSet |
300 changeSet |
1019 ! ! |
1019 ! ! |
1020 |
1020 |
1021 !Project class methodsFor:'documentation'! |
1021 !Project class methodsFor:'documentation'! |
1022 |
1022 |
1023 version |
1023 version |
1024 ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.58 1998-02-16 14:06:35 cg Exp $' |
1024 ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.59 1998-03-07 13:39:10 cg Exp $' |
1025 ! ! |
1025 ! ! |
1026 Project initialize! |
1026 Project initialize! |