2 Copyright © 2012-2015, The AROS Development Team. All rights reserved.
6 #define MUIMASTER_YES_INLINE_STDARG
8 #include <proto/muimaster.h>
9 #include <proto/intuition.h>
10 #include <proto/utility.h>
11 #include <proto/graphics.h>
12 #include <clib/alib_protos.h>
13 #include <mui/NListtree_mcc.h>
14 #include <mui/NList_mcc.h>
18 #include "Listtree_mcc.h"
19 #include "listtree_private.h"
21 #include <aros/debug.h>
23 #define NEWHANDLE(attrname) \
25 bug("[Listtree] OM_NEW:%s - unsupported\n", #attrname); \
28 #define CONV(AATTR, BATTR) \
30 convtags[i].ti_Tag = BATTR; \
31 convtags[i++].ti_Data = tag->ti_Data; \
35 convtags[i].ti_Tag = TAG_DONE; \
36 convtags[i].ti_Data = TAG_DONE;
38 /*** Methods ****************************************************************/
39 Object
*Listtree__OM_NEW(struct IClass
*cl
, Object
*obj
, struct opSet
*msg
)
41 struct Listtree_DATA
*data
= NULL
;
44 Object
*nlisttree
= NULL
;
45 struct TagItem convtags
[20];
48 /* Convert tags designated for NListtree */
49 for (tags
= msg
->ops_AttrList
; (tag
= NextTagItem(&tags
)); )
53 CONV(MUIA_Frame
, MUIA_Frame
)
54 CONV(MUIA_Listtree_Format
, MUIA_NListtree_Format
)
55 CONV(MUIA_Listtree_Title
, MUIA_NListtree_Title
)
56 CONV(MUIA_Listtree_DragDropSort
, MUIA_NListtree_DragDropSort
)
57 CONV(MUIA_List_Title
, MUIA_NList_Title
)
58 CONV(MUIA_List_DragSortable
, MUIA_NList_DragSortable
)
59 // CONV(MUIA_ContextMenu, MUIA_ContextMenu) FIXME causes a crash when right clicking
60 CONV(MUIA_List_MinLineHeight
, MUIA_NList_MinLineHeight
)
66 * set up a DestructHook which will call proxy MUIS_Listtree_TreeNode destrhook and
69 obj
= (Object
*) DoSuperNewTags(cl
, obj
, 0,
70 Child
, nlisttree
= (Object
*) NListtreeObject
,
71 TAG_MORE
, (IPTR
)convtags
,
75 if (!obj
) return FALSE
;
77 data
= INST_DATA(cl
, obj
);
78 data
->nlisttree
= nlisttree
;
80 data
->pool
= CreatePool(MEMF_ANY
| MEMF_CLEAR
, 16 * 1024, 8 * 1024);
82 /* parse initial taglist */
83 for (tags
= msg
->ops_AttrList
; (tag
= NextTagItem(&tags
)); )
87 case(MUIA_Listtree_ConstructHook
):
88 data
->constrhook
= (struct Hook
*)tag
->ti_Data
;
90 case(MUIA_Listtree_DestructHook
):
91 data
->destrhook
= (struct Hook
*)tag
->ti_Data
;
93 case(MUIA_List_MinLineHeight
):
94 case(MUIA_ContextMenu
):
95 case(MUIA_List_DragSortable
):
96 case(MUIA_List_Title
):
97 case(MUIA_Listtree_DragDropSort
):
98 case(MUIA_Listtree_Format
):
99 case(MUIA_Listtree_Title
):
101 /* Forwarded to NListtree */
103 NEWHANDLE(MUIA_Listtree_DisplayHook
)
104 NEWHANDLE(MUIA_Listtree_SortHook
)
106 bug("[Listtree] OM_NEW: unhandled %x\n", tag
->ti_Tag
);
113 #define SETHANDLE(attrname) \
115 bug("[Listtree] OM_SET:%s - unsupported\n", #attrname); \
118 #define FORWARDSET(AATTR, BATTR) \
120 set(data->nlisttree, BATTR, tag->ti_Data); \
123 IPTR
Listtree__OM_SET(struct IClass
*cl
, Object
*obj
, struct opSet
*msg
)
125 struct Listtree_DATA
*data
= INST_DATA(cl
, obj
);
126 struct TagItem
*tstate
= msg
->ops_AttrList
;
129 if (!data
->nlisttree
)
130 return DoSuperMethodA(cl
, obj
, (Msg
) msg
);
132 while ((tag
= NextTagItem(&tstate
)) != NULL
)
136 FORWARDSET(MUIA_Listtree_Quiet
, MUIA_NListtree_Quiet
)
138 SETHANDLE(MUIA_Listtree_Active
)
139 SETHANDLE(MUIA_Listtree_DoubleClick
)
140 case MUIB_List
| 0x00000010: break;
141 case MUIA_Prop_First
: break;
142 case MUIA_Prop_DoSmooth
: break;
143 case MUIA_NoNotify
: break;
144 case MUIA_Prop_Entries
: break;
145 case MUIA_Prop_Visible
: break;
146 case MUIA_Prop_DeltaFactor
: break;
148 bug("[Listtree] OM_SET: passing to parent class %x\n", tag
->ti_Tag
);
153 return DoSuperMethodA(cl
, obj
, (Msg
) msg
);
156 #define GETHANDLE(attrname) \
158 bug("[Listtree] OM_GET:%s - unsupported\n", #attrname); \
162 #define MUIA_List_Prop_Entries /* PRIV */ \
163 (MUIB_MUI | 0x0042a8f5) /* .sg LONG PRIV */
164 #define MUIA_List_Prop_Visible /* PRIV */ \
165 (MUIB_MUI | 0x004273e9) /* .sg LONG PRIV */
166 #define MUIA_List_Prop_First /* PRIV */ \
167 (MUIB_MUI | 0x00429df3) /* .sg LONG PRIV */
169 #define MUIA_List_VertProp_Entries /* PRIV */ \
170 MUIA_List_Prop_Entries /* PRIV */
171 #define MUIA_List_VertProp_Visible /* PRIV */ \
172 MUIA_List_Prop_Visible /* PRIV */
173 #define MUIA_List_VertProp_First /* PRIV */ \
174 MUIA_List_Prop_First /* PRIV */
176 #define FORWARDGET(AATTR, BATTR) \
178 *(msg->opg_Storage) = XGET(data->nlisttree, BATTR); \
181 IPTR
Listtree__OM_GET(struct IClass
*cl
, Object
*obj
, struct opGet
*msg
)
183 struct Listtree_DATA
*data
= INST_DATA(cl
, obj
);
185 if (!data
->nlisttree
)
188 switch (msg
->opg_AttrID
)
190 FORWARDGET(MUIA_Frame
, MUIA_Frame
)
191 FORWARDGET(MUIA_Listtree_DoubleClick
, MUIA_NListtree_DoubleClick
)
192 FORWARDGET(MUIA_List_Active
, MUIA_NList_Active
)
193 FORWARDGET(MUIA_Listtree_Active
, MUIA_NListtree_Active
)
194 FORWARDGET(MUIA_Listtree_Quiet
, MUIA_NListtree_Quiet
)
196 GETHANDLE(MUIA_List_VertProp_Entries
)
197 GETHANDLE(MUIA_List_VertProp_Visible
)
198 GETHANDLE(MUIA_List_VertProp_First
)
199 case MUIA_Disabled
: break;
200 case MUIA_Parent
: break;
201 case MUIA_Group_ChildList
: break;
202 case MUIA_Prop_First
: break;
203 case MUIA_Prop_DoSmooth
: break;
204 case MUIA_Listview_List
: break;
205 case MUIA_Virtgroup_Left
: break;
206 case MUIA_Virtgroup_Top
: break;
207 case 0x9d510020 /*MUIA_NListview_NList*/: break;
209 bug("[Listtree] OM_GET: passing to parent class %x\n", msg
->opg_AttrID
);
212 return DoSuperMethodA(cl
, obj
, (Msg
) msg
);
215 #define METHODSTUB(methodname) \
216 IPTR Listtree__##methodname(struct IClass *cl, Object *obj, Msg msg) \
218 bug("[Listtree] Usupported : %s\n", #methodname); \
219 return (IPTR)FALSE; \
222 METHODSTUB(MUIM_Listtree_Rename
)
223 METHODSTUB(MUIM_Listtree_Open
)
224 METHODSTUB(MUIM_Listtree_Close
)
225 METHODSTUB(MUIM_Listtree_TestPos
)
226 METHODSTUB(MUIM_Listtree_SetDropMark
)
227 METHODSTUB(MUIM_Listtree_FindName
)
228 METHODSTUB(MUIM_List_TestPos
)
229 METHODSTUB(MUIM_Listtree_GetNr
)
231 IPTR
Listtree__MUIM_Listtree_Insert(struct IClass
*cl
, Object
*obj
, struct MUIP_Listtree_Insert
*msg
)
233 struct Listtree_DATA
*data
= INST_DATA(cl
, obj
);
234 struct MUIS_Listtree_TreeNode
* _return
= AllocPooled(data
->pool
, sizeof(struct MUIS_Listtree_TreeNode
));
239 _return
->tn_Flags
= (UWORD
)msg
->Flags
;
242 LONG len
= strlen(msg
->Name
) + 1;
243 _return
->tn_Name
= AllocPooled(data
->pool
, len
);
244 CopyMem(msg
->Name
, _return
->tn_Name
, len
);
247 if (data
->constrhook
)
248 _return
->tn_User
= (APTR
)CallHookPkt(data
->constrhook
, data
->pool
, msg
->User
);
250 _return
->tn_User
= msg
->User
;
253 if (msg
->ListNode
!= (APTR
)MUIV_Listtree_Insert_ListNode_Root
)
254 bug("[Listtree] MUIM_Listtree_Insert - unhandled value of ListNode %x\n", msg
->ListNode
);
256 if ((msg
->PrevNode
!= (APTR
)MUIV_Listtree_Insert_PrevNode_Tail
)
257 && (msg
->PrevNode
!= (APTR
)MUIV_Listtree_Insert_PrevNode_Sorted
))
258 bug("[Listtree] MUIM_Listtree_Insert - unhandled value of PrevNode %x\n", msg
->PrevNode
);
261 * add handling for cases where ListNode and PrevNode actually point to Treenode structure
262 * The internal TreeNode structure needs to have then the poiter to NListTree node to be
263 * able to traslate. The pointer is acquired as return from below DoMethod call
265 * handle remaining enumeration values
268 DoMethod(data
->nlisttree
, MUIM_NListtree_Insert
, _return
->tn_Name
, _return
, msg
->ListNode
,
269 msg
->PrevNode
, _return
->tn_Flags
);
271 return (IPTR
)_return
;
274 IPTR
Listtree__MUIM_Listtree_GetEntry(struct IClass
*cl
, Object
*obj
, struct MUIP_Listtree_GetEntry
*msg
)
276 struct Listtree_DATA
*data
= INST_DATA(cl
, obj
);
279 if ((msg
->Node
!= (APTR
)MUIV_Listtree_GetEntry_ListNode_Root
)
280 && (msg
->Node
!= (APTR
)MUIV_Listtree_GetEntry_ListNode_Active
))
281 bug("[Listtree] MUIM_Listtree_GetEntry - unhandled value of Node %x\n", msg
->Node
);
284 * add handling for cases where Node actually point to Treenode structure
286 * handle remaining enumeration values
289 struct MUI_NListtree_TreeNode
* tn
= (struct MUI_NListtree_TreeNode
*) DoMethod(data
->nlisttree
,
290 MUIM_NListtree_GetEntry
, msg
->Node
, msg
->Position
, msg
->Flags
);
293 return (IPTR
)tn
->tn_User
;
298 IPTR
Listtree__MUIM_Listtree_Remove(struct IClass
*cl
, Object
*obj
, struct MUIP_Listtree_Remove
*msg
)
300 struct Listtree_DATA
*data
= INST_DATA(cl
, obj
);
302 /* TODO: handle remaining enumeration values */
303 if ((msg
->ListNode
== (APTR
)MUIV_Listtree_Remove_ListNode_Root
) &&
304 ((msg
->TreeNode
== (APTR
)MUIV_Listtree_Remove_TreeNode_Active
) ||
305 (msg
->TreeNode
== (APTR
)MUIV_Listtree_Remove_TreeNode_All
)))
307 /* Deallocating of MUIS_Listtree_TreeNode is happening in the DestructHook */
308 return DoMethod(data
->nlisttree
, MUIM_NListtree_Remove
, msg
->ListNode
, msg
->TreeNode
, msg
->Flags
);
312 * add handling for cases where ListNode/TreeNode actually point to Treenode structure
314 bug("[Listtree] MUIM_Listtree_Remove unsupported code path Listnode: %x, Treenode: %x, Flags: %d\n", msg
->ListNode
, msg
->TreeNode
, msg
->Flags
);