rom/intuition/menus.c

   1 /*
   2     Copyright © 1995-2003, 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     if (msg) 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 MenuItem *item, *sub;
 140     UWORD            menunum, itemnum = 0, subnum = 0;
 141     BOOL             found = FALSE;
 142
 143     DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: Menu 0x%lx key 0x%lx <%c> do_click_op 0x%lx\n",menu,key,key,do_click_op));
 144
 145     key = ToUpper(key);
 146
 147     DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: Upperkey 0x%lx <%c>\n",key));
 148
 149     for(menunum = 0; menu; menu = menu->NextMenu, menunum ++)
 150     {
 151         DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: Menu 0x%lx Menunum %ld\n",menu,menunum));
 152
 153         for(item = menu->FirstItem, itemnum = 0; item; item = item->NextItem, itemnum++)
 154         {
 155             DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: Item 0x%lx itemnum %ld\n",item,itemnum));
 156             if ((sub = item->SubItem))
 157             {
 158                 DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: Sub 0x%lx\n",sub));
 159                 for(subnum = 0; sub; sub = sub->NextItem, subnum++)
 160                 {
 161                     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));
 162                     if ((sub->Flags & COMMSEQ) &&
 163                             (ToUpper((UBYTE)sub->Command) == key))
 164                     {
 165                         DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: found\n"));
 166                         if (do_click_op)
 167                         {
 168                             DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: click_op\n"));
 169                             if (sub->Flags & CHECKIT)
 170                             {
 171                                 DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: CheckIt change\n"));
 172                                 CheckMenuItemWasClicked(sub, subnum, item);
 173                             }
 174                             sub->NextSelect = MENUNULL;
 175                         }
 176                         found = TRUE;
 177                         break;
 178                     }
 179                 }
 180                 if (found) break;
 181
 182             }
 183             else
 184             {
 185                 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));
 186
 187                 if ((item->Flags & COMMSEQ) &&
 188                         (ToUpper((UBYTE)item->Command) == key))
 189                 {
 190                     DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: found\n"));
 191                     if (do_click_op)
 192                     {
 193                         DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: click_op\n"));
 194                         if (item->Flags & CHECKIT)
 195                         {
 196                             DEBUG_FINDMENUSHORTCUT(dprintf("FindMenuShortCut: CheckIt change\n"));
 197                             CheckMenuItemWasClicked(item, itemnum, menu->FirstItem);
 198                         }
 199                         item->NextSelect = MENUNULL;
 200                     }
 201                     found = TRUE;
 202                     subnum = NOSUB;
 203                     break;
 204                 }
 205             }
 206
 207         } /* for each item */
 208
 209         if (found) break;
 210
 211     } /* for each menu */
 212
 213     return found ? FULLMENUNUM(menunum, itemnum, subnum) : MENUNULL;
 214 }
 215
 216 /**************************************************************************************************/
 217
 218 void CheckMenuItemWasClicked(struct MenuItem *item, UWORD itemnum, struct MenuItem *parentitem)
 219 {
 220     /* Note: If you change something here, you probably must also change
 221              menutask.c/HandleCheckItem() which is used when the
 222       user uses the menus with the mouse! */
 223
 224     if (item->Flags & MENUTOGGLE)
 225     {
 226         item->Flags ^= CHECKED;
 227     }
 228     else
 229     {
 230         item->Flags |= CHECKED;
 231     }
 232
 233     if (item->MutualExclude)
 234     {
 235         WORD i;
 236
 237         for(i = 0; (i < 32) && parentitem; i++, parentitem = parentitem->NextItem)
 238         {
 239             if ((i != itemnum) && (item->MutualExclude & (1L << i)) &&
 240                 ((parentitem->Flags & (CHECKED | CHECKIT)) == (CHECKIT | CHECKED)))
 241             {
 242                 parentitem->Flags &= ~CHECKED;
 243             }
 244         }
 245
 246     } /* if (item->MutualExclude) */
 247 }
 248
 249
 250 /**************************************************************************************************/