class: ListModelView
authorClaus Gittinger <cg@exept.de>
Mon, 04 May 2015 08:06:59 +0200
changeset 4752 37adb59864f9
parent 4751 a1b6112d33ca
child 4753 e579fa76300e
class: ListModelView
ListModelView.st
--- a/ListModelView.st	Sun May 03 14:50:06 2015 +0200
+++ b/ListModelView.st	Mon May 04 08:06:59 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1999 by eXept Software AG
 	      All Rights Reserved
@@ -1911,7 +1913,7 @@
     y0 := yTop.
 
     anItem isHierarchicalItem ifTrue:[
-        (anItem class whichClassIncludesSelector:#displayOn:x:y:h:) ~~ HierarchicalItem ifTrue:[
+        (anItem class whichClassIncludesSelector:#displayOn:x:y:h:) ~~ AbstractHierarchicalItem ifTrue:[
             "/ it has a redefined displayOn method.
             Transcript showCR:'please define #displayOn:x:y:h:isHighlightedAsSelected: in ',anItem class name.
             anItem displayOn:view x:x0 y:y0 h:h 
@@ -3409,11 +3411,11 @@
 !ListModelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.152 2015-02-26 09:57:49 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.153 2015-05-04 06:06:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.152 2015-02-26 09:57:49 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.153 2015-05-04 06:06:59 cg Exp $'
 ! !