ScalosV2/PopupMenuClass.c

   1 // :ts=4 (Tabsize)
   2
   3 #include <proto/utility.h>
   4 #include <proto/exec.h>
   5 #include <proto/alib.h>
   6 #include <proto/pm.h>
   7 #include <string.h>
   8 #include <exec/memory.h>
   9
  10 #include <libraries/pm.h>
  11 // #include <proto/pm.h>
  12
  13 #include "Scalos.h"
  14 #include "PopupMenuClass.h"
  15 #include "ScalosIntern.h"
  16
  17 #include "scalos_protos.h"
  18 #include "Debug.h"
  19 #include "SubRoutines.h"
  20
  21 /****** PopupMenu.scalos/--background ***************************************
  22 *
  23 *   PopupMenu class is used to generate popup menus and to display them
  24 *   on screen.
  25 *
  26 *****************************************************************************
  27 */
  28 // /
  29
  30 /****** PopupMenu.scalos/SCCA_PopupMenu_Item ********************************
  31 *
  32 *  NAME
  33 *   SCCA_PopupMenu_Item -- (V40) IS. (Object *)
  34 *
  35 *  FUNCTION
  36 *   This attribute addes an popup menu item to the menu.
  37 *
  38 *****************************************************************************
  39 */
  40 // /
  41 /****** PopupMenu.scalos/SCCA_PopupMenu_Window ******************************
  42 *
  43 *  NAME
  44 *   SCCA_PopupMenu_Window -- (V40) IS. (Object *)
  45 *
  46 *  FUNCTION
  47 *   Sets the window object where the popup menu should belong to. This
  48 *   attribute must be given.
  49 *
  50 *****************************************************************************
  51 */
  52 // /
  53
  54 /** Init a PopupMenu
  55 */
  56 static ULONG PopupMenu_Init(struct SC_Class *cl, Object *obj, struct SCCP_Init *msg, struct PopupMenuInst *inst)
  57 {
  58         if (SC_DoSuperMethodA(cl,obj, (Msg) msg))
  59         {
  60                 struct TagItem *tags = msg->ops_AttrList;
  61                 struct TagItem **taglist = &tags;
  62                 struct TagItem *tag;
  63                 struct MenuItemNode *node;
  64
  65                 NewList((struct List *) &inst->itemlist);
  66
  67                 while ((tag = NextTagItem(taglist)))
  68                 {
  69                         switch (tag->ti_Tag)
  70                         {
  71
  72                           case SCCA_PopupMenu_Item:
  73                                 if ((node = (struct MenuItemNode *) AllocNode(&inst->itemlist,sizeof(struct MenuItemNode))))
  74                                 {
  75                                         node->itemobj = (Object *) tag->ti_Data;
  76                                 }
  77                                 break;
  78
  79                           case SCCA_PopupMenu_Window:
  80                                 inst->windowobj = (Object *) tag->ti_Data;
  81                                 break;
  82                         }
  83                 }
  84                 return(TRUE);
  85         }
  86         return(FALSE);
  87 }
  88 // /
  89
  90 /** Exit a PopupMenu
  91 */
  92 static ULONG PopupMenu_Exit(struct SC_Class *cl, Object *obj, Msg msg, struct PopupMenuInst *inst)
  93 {
  94         struct MenuItemNode *node;
  95
  96         if (inst->popupmenu)
  97                 PM_FreePopupMenu(inst->popupmenu);
  98
  99         for (node = (struct MenuItemNode *) inst->itemlist.mlh_Head; ((struct MinNode *) node)->mln_Succ; node = (struct MenuItemNode *) ((struct MinNode *) node)->mln_Succ)
 100         {
 101                 SC_DisposeObject(node->itemobj);
 102         }
 103
 104         FreeAllNodes(&inst->itemlist);
 105
 106         return(SC_DoSuperMethodA(cl,obj, (Msg) msg));
 107 }
 108 // /
 109
 110 /****** PopupMenu.scalos/SCCM_PopupMenu_Open ********************************
 111 *
 112 *  NAME
 113 *   SCCM_PopupMenu_Open
 114 *
 115 *  SYNOPSIS
 116 *   ULONG SC_DoMethod(obj,SCCM_Popup_Open);
 117 *
 118 *  FUNCTION
 119 *   This method opens the popup menu relative to the mouse position.
 120 *   The method will return first after the menu was closed.
 121 *
 122 *  INPUTS
 123 *
 124 *  RESULT
 125 *   TRUE if the popup was successfully open else FALSE.
 126 *
 127 *  SEE ALSO
 128 *
 129 *****************************************************************************
 130 */
 131
 132 static ULONG PopupMenu_Open(struct SC_Class *cl, Object *obj, Msg msg, struct PopupMenuInst *inst)
 133 {
 134         if (!(IsMinListEmpty(&inst->itemlist)))
 135         {
 136                 struct MenuItemNode *node;
 137                 int entrycount = 1;
 138                 struct TagItem *taglist;
 139
 140                 if (!(inst->popupmenu))
 141                 {
 142                         for (node = (struct MenuItemNode *) inst->itemlist.mlh_Head; ((struct MinNode *) node)->mln_Succ; node = (struct MenuItemNode *) ((struct MinNode *) node)->mln_Succ)
 143                         {
 144                                 entrycount++;
 145                         }
 146
 147                         if ((taglist = (struct TagItem *) AllocVec(entrycount*8,MEMF_ANY)))
 148                         {
 149                                 struct TagItem *tag = taglist;
 150
 151                                 for (node = (struct MenuItemNode *) inst->itemlist.mlh_Head; ((struct MinNode *) node)->mln_Succ; node = (struct MenuItemNode *) ((struct MinNode *) node)->mln_Succ)
 152                                 {
 153                                         tag->ti_Tag = PM_Item;
 154                                         if (!(node->item))
 155                                                 node->item = (APTR) get(node->itemobj,SCCA_MenuItem_PopupItem);
 156                                         tag->ti_Data = (ULONG) node->item;
 157                                         tag++;
 158                                 }
 159                                 tag->ti_Tag = TAG_DONE;
 160
 161                                 inst->popupmenu = PM_MakeMenuA(taglist);
 162
 163                                 FreeVec(taglist);
 164                         }
 165                 }
 166
 167                 if (inst->popupmenu)
 168                 {
 169                         ULONG userdata;
 170
 171                         if ((userdata = PM_OpenPopupMenu((struct Window *) get(inst->windowobj,SCCA_Window_Window),
 172                                                                                         PM_Menu, inst->popupmenu, TAG_DONE)))
 173                         {
 174                                 SC_SetAttrs((Object *) userdata, SCCA_MenuItem_Activated,TRUE,TAG_DONE);
 175                         }
 176
 177                         return(TRUE);
 178                 }
 179
 180         }
 181
 182         return(FALSE);
 183 }
 184 // /
 185
 186
 187 /*-------------------------- MethodList --------------------------------*/
 188
 189 struct SC_MethodData PopupMenuMethods[] =
 190 {
 191         { SCCM_Init,(ULONG) PopupMenu_Init, 0, 0, NULL },
 192         { SCCM_Exit,(ULONG) PopupMenu_Exit, 0, 0, NULL },
 193         { SCMETHOD_DONE, NULL, 0, 0, NULL }
 194 };
 195