rom/intuition/menus.c

   1 /*
   2     Copyright © 1995-2017, 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     memset( &replyport, 0, sizeof( replyport ) );
  83
  84     ie.ie_NextEvent     = 0;
  85     ie.ie_Class         = IECLASS_MENU;
  86     ie.ie_SubClass      = IESUBCLASS_MENUSTOP;
  87     ie.ie_Code          = menupick;
  88     ie.ie_EventAddress  = win;
  89
  90     replyport.mp_Node.ln_Type = NT_MSGPORT;
  91     replyport.mp_Flags        = PA_SIGNAL;
  92     replyport.mp_SigBit       = SIGB_INTUITION;
  93     replyport.mp_SigTask      = FindTask(NULL);
  94     NEWLIST(&replyport.mp_MsgList);
  95
  96     ior = *(GetPrivIBase(IntuitionBase)->InputIO);
  97     ior.io_Message.mn_ReplyPort = &replyport;
  98
  99     ior.io_Command = IND_WRITEEVENT;
 100     ior.io_Data    = &ie;
 101     ior.io_Length  = sizeof(struct InputEvent);
 102
 103     DoIO((struct IORequest *)&ior);
 104 }
 105
 106 /**************************************************************************************************/
 107 /**************************************************************************************************/
 108 /**************************************************************************************************/
 109
 110 void GetMenuBox(struct Window *win, struct MenuItem *item,
 111                 WORD *xmin, WORD *ymin, WORD *xmax, WORD *ymax)
 112 {
 113
 114     WORD left, right, top, bottom;
 115
 116     left  = top    =  0x7fff;
 117     right = bottom = -0x7fff;
 118
 119     while(item != NULL)
 120     {
 121         left   = min(left,   item->LeftEdge);
 122         top    = min(top,    item->TopEdge);
 123         right  = max(right,  item->LeftEdge + item->Width  - 1);
 124         bottom = max(bottom, item->TopEdge  + item->Height - 1);
 125
 126         item = item->NextItem;
 127     }
 128
 129     if (xmin) *xmin = left   - win->WScreen->MenuHBorder;
 130     if (ymin) *ymin = top    - win->WScreen->MenuVBorder;
 131     if (xmax) *xmax = right  + win->WScreen->MenuHBorder;
 132     if (ymax) *ymax = bottom + win->WScreen->MenuVBorder;
 133
 134 }
 135
 136 /**************************************************************************************************/
 137
 138 UWORD FindMenuShortCut(struct Menu *menu, UBYTE key, BOOL do_click_op,
 139                        struct IntuitionBase *IntuitionBase)
 140 {
 141     struct Library  *UtilityBase = GetPrivIBase(IntuitionBase)->UtilityBase;
 142     struct MenuItem *item, *sub;
 143     UWORD            menunum, itemnum = 0, subnum = 0;
 144     BOOL             found = FALSE;
 145
 146     DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: Menu 0x%lx key 0x%lx <%c> do_click_op 0x%lx\n",menu,key,key,do_click_op));
 147
 148     key = ToUpper(key);
 149
 150     DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: Upperkey 0x%lx <%c>\n",key));
 151
 152     for(menunum = 0; menu; menu = menu->NextMenu, menunum ++)
 153     {
 154         DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: Menu 0x%lx Menunum %ld\n",menu,menunum));
 155
 156         for(item = menu->FirstItem, itemnum = 0; item; item = item->NextItem, itemnum++)
 157         {
 158             DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: Item 0x%lx itemnum %ld\n",item,itemnum));
 159             if ((sub = item->SubItem))
 160             {
 161                 DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: Sub 0x%lx\n",sub));
 162                 for(subnum = 0; sub; sub = sub->NextItem, subnum++)
 163                 {
 164                     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));
 165                     if ((sub->Flags & COMMSEQ) &&
 166                             (ToUpper((UBYTE)sub->Command) == key))
 167                     {
 168                         DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: found\n"));
 169                         if (do_click_op)
 170                         {
 171                             DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: click_op\n"));
 172                             if (sub->Flags & CHECKIT)
 173                             {
 174                                 DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: CheckIt change\n"));
 175                                 CheckMenuItemWasClicked(sub, subnum, item);
 176                             }
 177                             sub->NextSelect = MENUNULL;
 178                         }
 179                         found = TRUE;
 180                         break;
 181                     }
 182                 }
 183                 if (found) break;
 184
 185             }
 186             else
 187             {
 188                 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));
 189
 190                 if ((item->Flags & COMMSEQ) &&
 191                         (ToUpper((UBYTE)item->Command) == key))
 192                 {
 193                     DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: found\n"));
 194                     if (do_click_op)
 195                     {
 196                         DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: click_op\n"));
 197                         if (item->Flags & CHECKIT)
 198                         {
 199                             DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: CheckIt change\n"));
 200                             CheckMenuItemWasClicked(item, itemnum, menu->FirstItem);
 201                         }
 202                         item->NextSelect = MENUNULL;
 203                     }
 204                     found = TRUE;
 205                     subnum = NOSUB;
 206                     break;
 207                 }
 208             }
 209
 210         } /* for each item */
 211
 212         if (found) break;
 213
 214     } /* for each menu */
 215
 216     return found ? FULLMENUNUM(menunum, itemnum, subnum) : MENUNULL;
 217 }
 218
 219 /**************************************************************************************************/
 220
 221 void CheckMenuItemWasClicked(struct MenuItem *item, UWORD itemnum, struct MenuItem *parentitem)
 222 {
 223     /* Note: If you change something here, you probably must also change
 224              menutask.c/HandleCheckItem() which is used when the
 225       user uses the menus with the mouse! */
 226
 227     if (item->Flags & MENUTOGGLE)
 228     {
 229         item->Flags ^= CHECKED;
 230     }
 231     else
 232     {
 233         item->Flags |= CHECKED;
 234     }
 235
 236     if (item->MutualExclude)
 237     {
 238         WORD i;
 239
 240         for(i = 0; (i < 32) && parentitem; i++, parentitem = parentitem->NextItem)
 241         {
 242             if ((i != itemnum) && (item->MutualExclude & (1L << i)) &&
 243                 ((parentitem->Flags & (CHECKED | CHECKIT)) == (CHECKIT | CHECKED)))
 244             {
 245                 parentitem->Flags &= ~CHECKED;
 246             }
 247         }
 248
 249     } /* if (item->MutualExclude) */
 250 }
 251
 252
 253 /**************************************************************************************************/