--- a/HierarchicalItem.st	Mon May 04 15:47:26 2015 +0200
+++ b/HierarchicalItem.st	Mon May 04 16:05:45 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1999 by eXept Software AG
               All Rights Reserved
@@ -97,6 +95,20 @@
 
 !HierarchicalItem methodsFor:'private'!
 
+fetchChildren
+    "should compute the list of children via the model.
+     Be aware, that the somewhat stupid 'optimization' of how the model is fetched may lead to
+     a O(n*log n) or even O(n^2) behavior here.
+     *** to optimize: redefine by subClass"
+
+    |model childrenFromModel|
+
+    (model := self model) notNil ifTrue:[
+        childrenFromModel := model childrenFor:self
+    ].
+    ^ childrenFromModel
+!
+
 makeWidthAndHeightUnknown
     width := height := nil
 !
@@ -275,10 +287,10 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.113 2015-05-02 14:48:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.114 2015-05-04 14:05:45 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.113 2015-05-02 14:48:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.114 2015-05-04 14:05:45 cg Exp $'
 ! !