equal
deleted
inserted
replaced
2617 index ~~ 0 ifTrue:[ |
2617 index ~~ 0 ifTrue:[ |
2618 infoCollection removeIndex:index |
2618 infoCollection removeIndex:index |
2619 ] |
2619 ] |
2620 ! |
2620 ! |
2621 |
2621 |
|
2622 removeMethod:method |
|
2623 "remove a method from the project" |
|
2624 |
|
2625 |infoCollection index className selector| |
|
2626 |
|
2627 (infoCollection := self methodInfo) isNil ifTrue:[^ self]. |
|
2628 className := method who methodClass name. |
|
2629 selector := method who methodSelector. |
|
2630 |
|
2631 index := infoCollection findFirst:[:i | i className = className.]. |
|
2632 index ~~ 0 ifTrue:[ |
|
2633 infoCollection removeIndex:index |
|
2634 ] |
|
2635 ! |
|
2636 |
2622 type |
2637 type |
2623 "return the type of project (one of #application, #library, #smalltalk)" |
2638 "return the type of project (one of #application, #library, #smalltalk)" |
2624 |
2639 |
2625 properties isNil ifTrue:[^ #application]. |
2640 properties isNil ifTrue:[^ #application]. |
2626 ^ properties at:#type ifAbsent:#application |
2641 ^ properties at:#type ifAbsent:#application |
3156 ! ! |
3171 ! ! |
3157 |
3172 |
3158 !Project class methodsFor:'documentation'! |
3173 !Project class methodsFor:'documentation'! |
3159 |
3174 |
3160 version |
3175 version |
3161 ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.119 1999-10-03 15:30:13 cg Exp $' |
3176 ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.120 1999-10-03 16:55:37 cg Exp $' |
3162 ! ! |
3177 ! ! |
3163 Project initialize! |
3178 Project initialize! |