equal
deleted
inserted
replaced
463 |
463 |
464 "Created: 3.12.1995 / 13:44:58 / cg" |
464 "Created: 3.12.1995 / 13:44:58 / cg" |
465 "Modified: 3.12.1995 / 13:58:04 / cg" |
465 "Modified: 3.12.1995 / 13:58:04 / cg" |
466 ! |
466 ! |
467 |
467 |
468 addClassRemoveChange:oldClassName |
468 addClassRemoveChange:oldClass |
469 "add a class-remove-change to the current project" |
469 "add a class-remove-change to the current project" |
470 |
470 |
471 |p| |
471 |p| |
472 |
472 |
473 p := CurrentProject. |
473 p := CurrentProject. |
474 p notNil ifTrue:[ |
474 p notNil ifTrue:[ |
475 p addClassRemoveChange:oldClassName |
475 p addClassRemoveChange:oldClass |
476 ] |
476 ] |
477 ! |
477 ! |
478 |
478 |
479 addClassRenameChangeFrom:oldName to:newName |
479 addClassRenameChangeFrom:oldName to:newName |
480 "add a class-rename-change to the current project" |
480 "add a class-rename-change to the current project" |
1020 changeSet addClassDefinitionChangeFor:aClass |
1020 changeSet addClassDefinitionChangeFor:aClass |
1021 ]. |
1021 ]. |
1022 self rememberChangedClass:aClass |
1022 self rememberChangedClass:aClass |
1023 ! |
1023 ! |
1024 |
1024 |
1025 addClassRemoveChange:oldClassName |
1025 addClassRemoveChange:oldClass |
1026 "add a class-remove-change to the current project" |
1026 "add a class-remove-change to the current project" |
1027 |
1027 |
1028 |changeSet| |
1028 |changeSet| |
1029 |
1029 |
1030 (changeSet := self changeSet) notNil ifTrue:[ |
1030 (changeSet := self changeSet) notNil ifTrue:[ |
1031 changeSet addClassRemoveChange:oldClassName |
1031 changeSet addClassRemoveChange:oldClass |
1032 ]. |
1032 ]. |
1033 ! |
1033 ! |
1034 |
1034 |
1035 addClassRenameChangeFrom:oldName to:newName |
1035 addClassRenameChangeFrom:oldName to:newName |
1036 "add a class-rename-change to the current project" |
1036 "add a class-rename-change to the current project" |
3958 ! ! |
3958 ! ! |
3959 |
3959 |
3960 !Project class methodsFor:'documentation'! |
3960 !Project class methodsFor:'documentation'! |
3961 |
3961 |
3962 version |
3962 version |
3963 ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.183 2003-03-03 20:12:01 stefan Exp $' |
3963 ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.184 2003-04-09 12:29:15 james Exp $' |
3964 ! ! |
3964 ! ! |
3965 |
3965 |
3966 Project initialize! |
3966 Project initialize! |