Tools__ClassCategoryList.st
changeset 16366 943f8dfaa647
parent 16202 f7f182723df6
child 16369 1090224cc0db
child 16493 441d1df09f8a
--- 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