equal
deleted
inserted
replaced
293 (rawCategoryList includes:categoryOfClass) ifTrue:[ |
293 (rawCategoryList includes:categoryOfClass) ifTrue:[ |
294 self colorizeCategoryAsChanged:categoryOfClass |
294 self colorizeCategoryAsChanged:categoryOfClass |
295 ]. |
295 ]. |
296 ^ self. |
296 ^ self. |
297 ]. |
297 ]. |
|
298 "/ Care for condensing current changeset. |
|
299 (something == #currentChangeSet) ifTrue:[ |
|
300 "/ List of categories does not change, so all we have |
|
301 "/ to do is to update cookedCategoryList and redraw. |
|
302 |
|
303 self listOfCategories. "/ This has the sideeffect to update cookedCategoryList. |
|
304 categoryListView notNil ifTrue:[ |
|
305 categoryListView invalidate. |
|
306 ] |
|
307 ]. |
|
308 |
298 ((something == #classVariables) |
309 ((something == #classVariables) |
299 or:[something == #classDefinition]) ifTrue:[ |
310 or:[something == #classDefinition]) ifTrue:[ |
300 listValid == true ifTrue:[ |
311 listValid == true ifTrue:[ |
301 categoryOfClass := aParameter category. |
312 categoryOfClass := aParameter category. |
302 (rawCategoryList includes:categoryOfClass) ifFalse:[ |
313 (rawCategoryList includes:categoryOfClass) ifFalse:[ |
451 ]. |
462 ]. |
452 super delayedUpdate:something with:aParameter from:changedObject |
463 super delayedUpdate:something with:aParameter from:changedObject |
453 |
464 |
454 "Created: / 05-02-2000 / 13:42:12 / cg" |
465 "Created: / 05-02-2000 / 13:42:12 / cg" |
455 "Modified: / 12-11-2001 / 19:36:16 / cg" |
466 "Modified: / 12-11-2001 / 19:36:16 / cg" |
456 "Modified: / 25-03-2014 / 23:21:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
467 "Modified: / 27-03-2014 / 11:16:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
457 ! |
468 ! |
458 |
469 |
459 forceUpdateList |
470 forceUpdateList |
460 self categoryList setValue:#(). |
471 self categoryList setValue:#(). |
461 self updateList. |
472 self updateList. |
1123 ! ! |
1134 ! ! |
1124 |
1135 |
1125 !ClassCategoryList class methodsFor:'documentation'! |
1136 !ClassCategoryList class methodsFor:'documentation'! |
1126 |
1137 |
1127 version |
1138 version |
1128 ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassCategoryList.st,v 1.53 2014-03-26 09:40:06 vrany Exp $' |
1139 ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassCategoryList.st,v 1.54 2014-03-27 11:19:37 vrany Exp $' |
1129 ! |
1140 ! |
1130 |
1141 |
1131 version_CVS |
1142 version_CVS |
1132 ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassCategoryList.st,v 1.53 2014-03-26 09:40:06 vrany Exp $' |
1143 ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassCategoryList.st,v 1.54 2014-03-27 11:19:37 vrany Exp $' |
1133 ! ! |
1144 ! ! |
1134 |
1145 |