workbench/libs/muimaster/classes/poplist.c

   1 /*
   2     Copyright © 2002-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #define MUIMASTER_YES_INLINE_STDARG
   7
   8 #include <exec/memory.h>
   9 #include <clib/alib_protos.h>
  10 #include <proto/exec.h>
  11 #include <proto/dos.h>
  12 #include <proto/utility.h>
  13 #include <proto/intuition.h>
  14 #include <proto/muimaster.h>
  15
  16 #include <string.h>
  17 #include <stdio.h>
  18
  19 #include "mui.h"
  20 #include "muimaster_intern.h"
  21 #include "support.h"
  22 #include "support_classes.h"
  23 #include "debug.h"
  24 #include "poplist_private.h"
  25
  26 extern struct Library *MUIMasterBase;
  27
  28 LONG PoplistStrObjFunc(struct Hook *hook, Object *popup, Object *str)
  29 {
  30     struct Poplist_DATA *data = (struct Poplist_DATA *)hook->h_Data;
  31     STRPTR               strtext, listentry;
  32     LONG                 index;
  33
  34     get(str, MUIA_String_Contents, &strtext);
  35
  36     for(index = 0; ; index++)
  37     {
  38         DoMethod(data->list, MUIM_List_GetEntry, index, (IPTR)&listentry);
  39
  40         if (!listentry)
  41         {
  42             set(data->list, MUIA_List_Active, MUIV_List_Active_Off);
  43             break;
  44         }
  45
  46         if (stricmp(strtext, listentry) == 0)
  47         {
  48             set(data->list, MUIA_List_Active, index);
  49             break;
  50         }
  51     }
  52
  53     return TRUE;
  54 }
  55
  56 void PoplistObjStrFunc(struct Hook *hook, Object *popup, Object *str)
  57 {
  58     STRPTR listentry;
  59
  60     DoMethod(popup, MUIM_List_GetEntry, MUIV_List_GetEntry_Active, (IPTR)&listentry);
  61
  62     if (listentry)
  63     {
  64         set(str, MUIA_String_Contents, listentry);
  65     }
  66 }
  67
  68 IPTR Poplist__OM_NEW(struct IClass *cl, Object *obj, struct opSet *msg)
  69 {
  70     STRPTR array = (STRPTR)GetTagData(MUIA_Poplist_Array, 0, msg->ops_AttrList);
  71     Object *lv, *list;
  72
  73     obj = (Object *)DoSuperNewTags
  74     (
  75         cl, obj, NULL,
  76         MUIA_Popobject_Object, (IPTR)(lv = (Object *)ListviewObject,
  77             MUIA_Listview_List, (IPTR)(list = (Object *)ListObject,
  78                 InputListFrame,
  79                 array ? MUIA_List_SourceArray : TAG_IGNORE, (IPTR)array,
  80                 End),
  81             End),
  82         TAG_MORE, (IPTR) msg->ops_AttrList
  83     );
  84
  85     if (obj)
  86     {
  87         struct Poplist_DATA *data = INST_DATA(cl, obj);
  88
  89         data->list = list;
  90
  91         data->strobj_hook.h_Entry = HookEntry;
  92         data->strobj_hook.h_SubEntry = (HOOKFUNC)PoplistStrObjFunc;
  93         data->strobj_hook.h_Data = data;
  94
  95         data->objstr_hook.h_Entry = HookEntry;
  96         data->objstr_hook.h_SubEntry = (HOOKFUNC)PoplistObjStrFunc;
  97         data->objstr_hook.h_Data = data;
  98
  99         SetAttrs(obj, MUIA_Popobject_StrObjHook, (IPTR)&data->strobj_hook,
 100                       MUIA_Popobject_ObjStrHook, (IPTR)&data->objstr_hook,
 101                       TAG_DONE);
 102
 103         DoMethod(lv, MUIM_Notify, MUIA_Listview_DoubleClick, TRUE,
 104                  (IPTR)obj, 2, MUIM_Popstring_Close, TRUE);
 105     }
 106
 107     return (IPTR)obj;
 108 }
 109
 110 #if ZUNE_BUILTIN_POPLIST
 111 BOOPSI_DISPATCHER(IPTR, Poplist_Dispatcher, cl, obj, msg)
 112 {
 113     switch (msg->MethodID)
 114     {
 115         case OM_NEW: return Poplist__OM_NEW(cl, obj, (struct opSet *)msg);
 116         default:     return DoSuperMethodA(cl, obj, msg);
 117     }
 118 }
 119 BOOPSI_DISPATCHER_END
 120
 121 const struct __MUIBuiltinClass _MUI_Poplist_desc =
 122 {
 123     MUIC_Poplist,
 124     MUIC_Popobject,
 125     sizeof(struct Poplist_DATA),
 126     (void*)Poplist_Dispatcher
 127 };
 128 #endif /* ZUNE_BUILTIN_POPLIST */