--- a/Tools__ClassCategoryList.st Fri Apr 29 12:39:06 2016 +0200
+++ b/Tools__ClassCategoryList.st Fri Apr 29 12:43:19 2016 +0200
@@ -736,6 +736,35 @@
"Modified: / 10-11-2006 / 17:13:26 / cg"
! !
+!ClassCategoryList methodsFor:'initialize-release'!
+
+commonPostBuild
+ |listView|
+
+ listView := self listView.
+ listView notNil ifTrue:[
+ listView scrollWhenUpdating:nil
+ ].
+ super commonPostBuild
+!
+
+commonPostOpen
+ super commonPostOpen.
+ listValid ifFalse:[
+ self enqueueDelayedUpdateList.
+ self enqueueMessage:#xUpdateOutputGenerator for:self arguments:nil.
+ "/ self enqueueMessage:#updateSelectionIndexFromSelection for:self arguments:nil. "/ #().
+ ].
+!
+
+postBuildCategoryListView:aView
+ categoryListView := aView.
+ categoryListView visualBlock:[:view :lineNr | cookedCategoryList at:lineNr].
+ categoryListView selectedVisualBlock:[:view :lineNr | (cookedCategoryList at:lineNr) "string"withoutAnyColorEmphasis]
+
+ "Modified: / 26-03-2014 / 09:21:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!ClassCategoryList methodsFor:'private'!
colorizeCategoryAsChanged:category
@@ -1051,6 +1080,11 @@
"Created: / 05-02-2000 / 13:42:13 / cg"
"Modified: / 17-08-2011 / 09:52:13 / cg"
+!
+
+xUpdateOutputGenerator
+ "/ self updateOutputGenerator
+self enqueueDelayedUpdateOutputGenerator
! !
!ClassCategoryList methodsFor:'private-presentation'!
@@ -1158,26 +1192,6 @@
"Created: / 26-03-2014 / 08:51:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-!ClassCategoryList methodsFor:'setup'!
-
-commonPostBuild
- |listView|
-
- listView := self listView.
- listView notNil ifTrue:[
- listView scrollWhenUpdating:nil
- ].
- super commonPostBuild
-!
-
-postBuildCategoryListView:aView
- categoryListView := aView.
- categoryListView visualBlock:[:view :lineNr | cookedCategoryList at:lineNr].
- categoryListView selectedVisualBlock:[:view :lineNr | (cookedCategoryList at:lineNr) "string"withoutAnyColorEmphasis]
-
- "Modified: / 26-03-2014 / 09:21:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
!ClassCategoryList methodsFor:'special'!
addAdditionalCategory:aCategory