workbench/libs/muimaster/classes/popscreen.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 "popscreen_private.h"
  25
  26 extern struct Library *MUIMasterBase;
  27
  28 LONG PopscreenStrObjFunc(struct Hook *hook, Object *popup, Object *str)
  29 {
  30     struct Popscreen_DATA *data = (struct Popscreen_DATA *)hook->h_Data;
  31     struct List *pubscrlist;
  32     struct PubScreenNode *pubscrnode;
  33     STRPTR strtext = NULL, listentry;
  34     LONG index;
  35
  36     DoMethod(data->list, MUIM_List_Clear);
  37
  38     pubscrlist = LockPubScreenList();
  39     ForeachNode(pubscrlist, pubscrnode)
  40     {
  41         DoMethod(data->list, MUIM_List_InsertSingle,
  42             (IPTR) pubscrnode->psn_Node.ln_Name, MUIV_List_Insert_Bottom);
  43     }
  44     UnlockPubScreenList();
  45
  46     get(str, MUIA_String_Contents, &strtext);
  47
  48     for (index = 0;; index++)
  49     {
  50         DoMethod(data->list, MUIM_List_GetEntry, index, (IPTR) & listentry);
  51
  52         if (!listentry)
  53         {
  54             set(data->list, MUIA_List_Active,
  55                 strtext[0] ? MUIV_List_Active_Off : 0);
  56             break;
  57         }
  58
  59         if (stricmp(strtext, listentry) == 0)
  60         {
  61             set(data->list, MUIA_List_Active, index);
  62             break;
  63         }
  64     }
  65
  66     return TRUE;
  67 }
  68
  69 void PopscreenObjStrFunc(struct Hook *hook, Object *popup, Object *str)
  70 {
  71     STRPTR listentry;
  72
  73     DoMethod(popup, MUIM_List_GetEntry, MUIV_List_GetEntry_Active,
  74         (IPTR) & listentry);
  75
  76     if (listentry)
  77     {
  78         set(str, MUIA_String_Contents, listentry);
  79     }
  80 }
  81
  82 IPTR Popscreen__OM_NEW(struct IClass *cl, Object *obj, struct opSet *msg)
  83 {
  84     Object *lv, *list;
  85
  86     obj = (Object *) DoSuperNewTags
  87         (cl, obj, NULL,
  88         MUIA_Popobject_Object, (IPTR) (lv = (Object *) ListviewObject,
  89             MUIA_Listview_List, (IPTR) (list = (Object *) ListObject,
  90                 InputListFrame,
  91                 End),
  92             End),
  93         TAG_MORE, (IPTR) msg->ops_AttrList);
  94
  95     if (obj)
  96     {
  97         struct Popscreen_DATA *data = INST_DATA(cl, obj);
  98
  99         data->list = list;
 100
 101         data->strobj_hook.h_Entry = HookEntry;
 102         data->strobj_hook.h_SubEntry = (HOOKFUNC) PopscreenStrObjFunc;
 103         data->strobj_hook.h_Data = data;
 104
 105         data->objstr_hook.h_Entry = HookEntry;
 106         data->objstr_hook.h_SubEntry = (HOOKFUNC) PopscreenObjStrFunc;
 107         data->objstr_hook.h_Data = data;
 108
 109         SetAttrs(obj, MUIA_Popobject_StrObjHook, (IPTR) & data->strobj_hook,
 110             MUIA_Popobject_ObjStrHook, (IPTR) & data->objstr_hook,
 111             TAG_DONE);
 112
 113         DoMethod(lv, MUIM_Notify, MUIA_Listview_DoubleClick, TRUE,
 114             (IPTR) obj, 2, MUIM_Popstring_Close, TRUE);
 115     }
 116
 117     return (IPTR) obj;
 118 }
 119
 120 #if ZUNE_BUILTIN_POPSCREEN
 121 BOOPSI_DISPATCHER(IPTR, Popscreen_Dispatcher, cl, obj, msg)
 122 {
 123     switch (msg->MethodID)
 124     {
 125     case OM_NEW:
 126         return Popscreen__OM_NEW(cl, obj, (struct opSet *)msg);
 127     default:
 128         return DoSuperMethodA(cl, obj, msg);
 129     }
 130 }
 131 BOOPSI_DISPATCHER_END
 132
 133 const struct __MUIBuiltinClass _MUI_Popscreen_desc =
 134 {
 135     MUIC_Popscreen,
 136     MUIC_Popobject,
 137     sizeof(struct Popscreen_DATA),
 138     (void *) Popscreen_Dispatcher
 139 };
 140 #endif /* ZUNE_BUILTIN_POPSCREEN */