rom/intuition/menus.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include <proto/exec.h>
   8 #include <proto/intuition.h>
   9 #include <proto/alib.h>
  10 #include <proto/layers.h>
  11 #include <proto/graphics.h>
  12 #include <proto/keymap.h>
  13 #include <proto/utility.h>
  14 #include <clib/macros.h>
  15 #include <exec/memory.h>
  16 #include <exec/alerts.h>
  17 #include <exec/interrupts.h>
  18 #include <exec/ports.h>
  19 #include <intuition/intuition.h>
  20 #include <intuition/intuitionbase.h>
  21 #include <intuition/gadgetclass.h>
  22 #include <devices/inputevent.h>
  23 #include <devices/input.h>
  24 #include "inputhandler.h"
  25
  26 #include "intuition_intern.h"
  27 #include "menus.h"
  28
  29 #define DEBUG_FINDMENUSHORTCUT(x)   ;
  30
  31 /**************************************************************************************************/
  32
  33 struct MenuMessage *AllocMenuMessage(struct IntuitionBase *IntuitionBase)
  34 {
  35     struct MenuMessage *msg;
  36
  37     msg = AllocVec(sizeof(struct MenuMessage), MEMF_PUBLIC | MEMF_CLEAR);
  38
  39     return msg;
  40 }
  41
  42 /**************************************************************************************************/
  43
  44 void FreeMenuMessage(struct MenuMessage *msg, struct IntuitionBase *IntuitionBase)
  45 {
  46     FreeVec(msg);
  47 }
  48
  49
  50 /**************************************************************************************************/
  51
  52 void SendMenuMessage(struct MenuMessage *msg, struct IntuitionBase *IntuitionBase)
  53 {
  54     PutMsg(GetPrivIBase(IntuitionBase)->MenuHandlerPort, &msg->msg);
  55 }
  56
  57 /**************************************************************************************************/
  58
  59 struct MenuMessage *GetMenuMessage(struct MsgPort *port, struct IntuitionBase *IntuitionBase)
  60 {
  61     return (struct MenuMessage *)GetMsg(port);
  62 }
  63
  64
  65 /**************************************************************************************************/
  66
  67 void ReplyMenuMessage(struct MenuMessage *msg, struct IntuitionBase *IntuitionBase)
  68 {
  69     FreeMenuMessage(msg, IntuitionBase);
  70 }
  71
  72 /**************************************************************************************************/
  73
  74
  75
  76 void MH2Int_MakeMenusInactive(struct Window *win, UWORD menupick, struct IntuitionBase *IntuitionBase)
  77 {
  78     struct InputEvent ie;
  79     struct IOStdReq   ior;
  80     struct MsgPort    replyport;
  81
  82     ie.ie_NextEvent     = 0;
  83     ie.ie_Class         = IECLASS_MENU;
  84     ie.ie_SubClass      = IESUBCLASS_MENUSTOP;
  85     ie.ie_Code          = menupick;
  86     ie.ie_EventAddress  = win;
  87
  88     replyport.mp_Node.ln_Type = NT_MSGPORT;
  89     replyport.mp_Flags        = PA_SIGNAL;
  90     replyport.mp_SigBit       = SIGB_INTUITION;
  91     replyport.mp_SigTask      = FindTask(NULL);
  92     NEWLIST(&replyport.mp_MsgList);
  93
  94     ior = *(GetPrivIBase(IntuitionBase)->InputIO);
  95     ior.io_Message.mn_ReplyPort = &replyport;
  96
  97     ior.io_Command = IND_WRITEEVENT;
  98     ior.io_Data    = &ie;
  99     ior.io_Length  = sizeof(struct InputEvent);
 100
 101     DoIO((struct IORequest *)&ior);
 102 }
 103
 104 /**************************************************************************************************/
 105 /**************************************************************************************************/
 106 /**************************************************************************************************/
 107
 108 void GetMenuBox(struct Window *win, struct MenuItem *item,
 109                 WORD *xmin, WORD *ymin, WORD *xmax, WORD *ymax)
 110 {
 111
 112     WORD left, right, top, bottom;
 113
 114     left  = top    =  0x7fff;
 115     right = bottom = -0x7fff;
 116
 117     while(item != NULL)
 118     {
 119         left   = min(left,   item->LeftEdge);
 120         top    = min(top,    item->TopEdge);
 121         right  = max(right,  item->LeftEdge + item->Width  - 1);
 122         bottom = max(bottom, item->TopEdge  + item->Height - 1);
 123
 124         item = item->NextItem;
 125     }
 126
 127     if (xmin) *xmin = left   - win->WScreen->MenuHBorder;
 128     if (ymin) *ymin = top    - win->WScreen->MenuVBorder;
 129     if (xmax) *xmax = right  + win->WScreen->MenuHBorder;
 130     if (ymax) *ymax = bottom + win->WScreen->MenuVBorder;
 131
 132 }
 133
 134 /**************************************************************************************************/
 135
 136 UWORD FindMenuShortCut(struct Menu *menu, UBYTE key, BOOL do_click_op,
 137                        struct IntuitionBase *IntuitionBase)
 138 {
 139     struct Library  *UtilityBase = GetPrivIBase(IntuitionBase)->UtilityBase;
 140     struct MenuItem *item, *sub;
 141     UWORD            menunum, itemnum = 0, subnum = 0;
 142     BOOL             found = FALSE;
 143
 144     DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: Menu 0x%lx key 0x%lx <%c> do_click_op 0x%lx\n",menu,key,key,do_click_op));
 145
 146     key = ToUpper(key);
 147
 148     DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: Upperkey 0x%lx <%c>\n",key));
 149
 150     for(menunum = 0; menu; menu = menu->NextMenu, menunum ++)
 151     {
 152         DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: Menu 0x%lx Menunum %ld\n",menu,menunum));
 153
 154         for(item = menu->FirstItem, itemnum = 0; item; item = item->NextItem, itemnum++)
 155         {
 156             DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: Item 0x%lx itemnum %ld\n",item,itemnum));
 157             if ((sub = item->SubItem))
 158             {
 159                 DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: Sub 0x%lx\n",sub));
 160                 for(subnum = 0; sub; sub = sub->NextItem, subnum++)
 161                 {
 162                     DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: Sub 0x%lx subnum %ld Flags 0x%lx Cmd 0x%lx <%c>\n",sub,subnum,sub->Flags,sub->Command,sub->Command));
 163                     if ((sub->Flags & COMMSEQ) &&
 164                             (ToUpper((UBYTE)sub->Command) == key))
 165                     {
 166                         DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: found\n"));
 167                         if (do_click_op)
 168                         {
 169                             DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: click_op\n"));
 170                             if (sub->Flags & CHECKIT)
 171                             {
 172                                 DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: CheckIt change\n"));
 173                                 CheckMenuItemWasClicked(sub, subnum, item);
 174                             }
 175                             sub->NextSelect = MENUNULL;
 176                         }
 177                         found = TRUE;
 178                         break;
 179                     }
 180                 }
 181                 if (found) break;
 182
 183             }
 184             else
 185             {
 186                 DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: Item 0x%lx itemnum %ld Flags 0x%lx Cmd 0x%lx <%c>\n",item,itemnum,item->Flags,item->Command,item->Command));
 187
 188                 if ((item->Flags & COMMSEQ) &&
 189                         (ToUpper((UBYTE)item->Command) == key))
 190                 {
 191                     DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: found\n"));
 192                     if (do_click_op)
 193                     {
 194                         DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: click_op\n"));
 195                         if (item->Flags & CHECKIT)
 196                         {
 197                             DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: CheckIt change\n"));
 198                             CheckMenuItemWasClicked(item, itemnum, menu->FirstItem);
 199                         }
 200                         item->NextSelect = MENUNULL;
 201                     }
 202                     found = TRUE;
 203                     subnum = NOSUB;
 204                     break;
 205                 }
 206             }
 207
 208         } /* for each item */
 209
 210         if (found) break;
 211
 212     } /* for each menu */
 213
 214     return found ? FULLMENUNUM(menunum, itemnum, subnum) : MENUNULL;
 215 }
 216
 217 /**************************************************************************************************/
 218
 219 void CheckMenuItemWasClicked(struct MenuItem *item, UWORD itemnum, struct MenuItem *parentitem)
 220 {
 221     /* Note: If you change something here, you probably must also change
 222              menutask.c/HandleCheckItem() which is used when the
 223       user uses the menus with the mouse! */
 224
 225     if (item->Flags & MENUTOGGLE)
 226     {
 227         item->Flags ^= CHECKED;
 228     }
 229     else
 230     {
 231         item->Flags |= CHECKED;
 232     }
 233
 234     if (item->MutualExclude)
 235     {
 236         WORD i;
 237
 238         for(i = 0; (i < 32) && parentitem; i++, parentitem = parentitem->NextItem)
 239         {
 240             if ((i != itemnum) && (item->MutualExclude & (1L << i)) &&
 241                 ((parentitem->Flags & (CHECKED | CHECKIT)) == (CHECKIT | CHECKED)))
 242             {
 243                 parentitem->Flags &= ~CHECKED;
 244             }
 245         }
 246
 247     } /* if (item->MutualExclude) */
 248 }
 249
 250
 251 /**************************************************************************************************/