# HG changeset patch
# User Gerald Klix (speedy) <Gerald.Klix@klix.ch>
# Date 1719486954 -7200
#      Thu Jun 27 13:15:54 2024 +0200
# Branch Cuis7.0based
# Node ID 6accb1ad56bc9864454cb57781d6108aa083a686
# Parent  e975c8b91d10cfe3df4a547ffca1060e4fce1bc0
SUM: Use item specific wrappers in link collections.

diff --git a/haver/office/OfficeRoots.pck.st b/haver/office/OfficeRoots.pck.st
--- a/haver/office/OfficeRoots.pck.st
+++ b/haver/office/OfficeRoots.pck.st
@@ -1,4 +1,4 @@
-'From Haver7.0 [latest update: #6454] on 26 June 2024 at 7:21:30 pm'!
+'From Haver7.0 [latest update: #6454] on 26 June 2024 at 9:57:32 pm'!
 'Description I provide a (persistent) root for all the office data like:
 
 - ToDo items
@@ -6,7 +6,7 @@
 - Documents
 
 and a lot more.'!
-!provides: 'OfficeRoots' 1 71!
+!provides: 'OfficeRoots' 1 72!
 !requires: 'IdGeneration' 1 2 nil!
 !requires: 'ActionButtons' 1 47 nil!
 !requires: 'ActionBuilder' 1 36 nil!
@@ -1601,6 +1601,14 @@
 		gettersAndSetters: #(
 			(itemsForPlanF itemsFromPlanF:))! !
 
+!(Modules>>#OfficeRoots>>#LinkingOfficeItem) class methodsFor: 'as yet unclassified' stamp: 'KLG 6/26/2024 21:27:51'!
+itemWrapperClassForItem: anItem
+	"Answer the wrapper class for hierarchical list morphs.
+	
+	Make double dispatch possible, but just use my itemWrapperClass."
+
+	^ anItem itemWrapperClass! !
+
 !(Modules>>#OfficeRoots>>#AbstractRootOfficeItem) methodsFor: 'accessing' stamp: 'KLG 6/26/2024 19:08:00'!
 root
 	"Answer the value of root"