--- a/AbstractHierarchicalItem.st	Sun May 03 10:12:44 2015 +0200
+++ b/AbstractHierarchicalItem.st	Sun May 03 14:50:06 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1999/2015 by eXept Software AG
               All Rights Reserved
@@ -1417,6 +1415,10 @@
 
 !AbstractHierarchicalItem methodsFor:'private-to be redefined'!
 
+fetchChildren
+    ^ nil
+!
+
 heightOn:aGC
     "return the height of the receiver, if it is to be displayed on aGC"
 
@@ -1483,20 +1485,6 @@
     ^ children
 !
 
-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
-!
-
 icon
     "returns the icon or nil;
      *** to optimize:redefine by subClass"
@@ -1918,10 +1906,10 @@
 !AbstractHierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/AbstractHierarchicalItem.st,v 1.3 2015-05-03 08:03:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/AbstractHierarchicalItem.st,v 1.4 2015-05-03 12:50:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/AbstractHierarchicalItem.st,v 1.3 2015-05-03 08:03:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/AbstractHierarchicalItem.st,v 1.4 2015-05-03 12:50:06 cg Exp $'
 ! !