From 96cc5f4af531563656989bb5356aa6456a063c20 Mon Sep 17 00:00:00 2001
From: deadwood <deadwood@fb15a70f-31f2-0310-bbcc-cdcc74a49acc>
Date: Wed, 24 Jun 2015 19:44:00 +0000
Subject: [PATCH] Listtree.mcc: implement OM_DISPOSE

git-svn-id: https://svn.aros.org/svn/aros/trunk/AROS@50868 fb15a70f-31f2-0310-bbcc-cdcc74a49acc
---
 workbench/classes/zune/listtree/listtree.c    | 9 +++++++++
 workbench/classes/zune/listtree/listtree.conf | 1 +
 2 files changed, 10 insertions(+)

diff --git a/workbench/classes/zune/listtree/listtree.c b/workbench/classes/zune/listtree/listtree.c
index e80a7c203b..13856ecf21 100644
--- a/workbench/classes/zune/listtree/listtree.c
+++ b/workbench/classes/zune/listtree/listtree.c
@@ -362,6 +362,15 @@ Object *Listtree__OM_NEW(struct IClass *cl, Object *obj, struct opSet *msg)
     return obj;
 }
 
+IPTR Listtree__OM_DISPOSE(struct IClass *cl, Object *obj, Msg msg)
+{
+    struct Listtree_DATA *data = INST_DATA(cl, obj);
+
+    DeletePool(data->pool);
+
+    return DoSuperMethodA(cl, obj, msg);
+}
+
 #define SETHANDLE(attrname)                                         \
     case(attrname):                                                 \
         bug("[Listtree] OM_SET:%s - unsupported\n", #attrname);     \
diff --git a/workbench/classes/zune/listtree/listtree.conf b/workbench/classes/zune/listtree/listtree.conf
index 4235ec4e20..620b53c211 100644
--- a/workbench/classes/zune/listtree/listtree.conf
+++ b/workbench/classes/zune/listtree/listtree.conf
@@ -19,6 +19,7 @@ classdatatype struct Listtree_DATA
 OM_NEW
 OM_SET
 OM_GET
+OM_DISPOSE
 MUIM_Listtree_Insert
 MUIM_Listtree_GetEntry
 MUIM_Listtree_GetNr
-- 
2.11.4.GIT