rom/intuition/sysreqhandler_morphos.c

   1 /*
   2     Copyright © 1995-2007, 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/keymap.h>
   9
  10 #include "intuition_intern.h"
  11 #include "intuition_customizesupport.h"
  12 #include "requesters.h"
  13
  14 #include <ctype.h>
  15
  16 #define DEBUG_SYSREQHANDLER(x)  ;
  17
  18 /*****************************************************************************
  19
  20     NAME */
  21 #include <proto/intuition.h>
  22 #include <exec/types.h>
  23 #include <intuition/intuition.h>
  24
  25     AROS_LH3(LONG, SysReqHandler,
  26
  27 /*  SYNOPSIS */
  28          AROS_LHA(struct Window  *, window, A0),
  29          AROS_LHA(ULONG   *,        IDCMPFlagsPtr, A1),
  30          AROS_LHA(BOOL            , WaitInput, D0),
  31
  32 /*  LOCATION */
  33          struct IntuitionBase *, IntuitionBase, 100, Intuition)
  34
  35 /*  FUNCTION
  36     Handles a requester, which was opened with BuildSysRequest() or
  37     BuildEasyRequestArgs(). When this function is called all outstanding
  38     IDCMP requests are processed. If an IDCMP request that would close
  39     a normal EasyRequestArgs() is encountered, SysReqHandler() returns
  40     with a return code equally to the return code EasyRequestArgs()
  41     would have returned. You may call this function in synchronous or
  42     asynchronous mode, by setting the WaitInput parameter.
  43
  44     INPUTS
  45     Window - The window pointer returned by either BuildSysRequest() or
  46          BuildEasyRequestArgs().
  47     IDCMPFlagsPtr - Pointer to a ULONG to store the IDCMP flag that was
  48             received by the window. This will be set if you
  49             provided additional IDCMP flags to BuildSysRequest() or
  50             BuildEasyRequest(). You may set this to NULL. You must
  51             initialize the pointed to ULONG every time you call
  52             SysReqHandler().
  53     WaitInput - Set this to TRUE, if you want this function to wait for
  54             the next IDCMP request, if there is none at the moment
  55             the function is called.
  56
  57     RESULT
  58     -2, if the requester was not satisfied. Normally you want to call
  59         this function at least until this function returns something
  60         different than -2.
  61     -1, if one of the IDCMP flags of idcmpPTR was set.
  62      0, if the rightmost button was clicked or an error occured.
  63      n, if the n-th button from the left was clicked.
  64
  65     NOTES
  66
  67     EXAMPLE
  68
  69     BUGS
  70     Gadget placing is still untidy.
  71     Does not support BuildSysRequest() requesters, yet.
  72
  73     SEE ALSO
  74     BuildSysRequest(), BuildEasyRequestArgs()
  75
  76     INTERNALS
  77
  78     HISTORY
  79
  80 *****************************************************************************/
  81 {
  82     AROS_LIBFUNC_INIT
  83
  84     LONG result;
  85     struct IntuiMessage *msg;
  86     struct IntRequestUserData *udata = (struct IntRequestUserData *)window->UserData;
  87
  88     DEBUG_SYSREQHANDLER(dprintf("SysReqHandler: window 0x%lx IDCMPPtr 0x%lx WaitInput 0x%lx\n",
  89                                 (ULONG) window,
  90                                 (ULONG) IDCMPFlagsPtr,
  91                                 (ULONG) WaitInput));
  92
  93     if (window == 0)
  94     {
  95         result = 0;
  96     }
  97     else if (window == (struct Window *)1)
  98     {
  99         result = 1;
 100     }
 101     else
 102     {
 103         result = -2;
 104
 105         if (WaitInput)
 106         {
 107             WaitPort(window->UserPort);
 108         }
 109         while ((msg = (struct IntuiMessage *)GetMsg(window->UserPort)))
 110         {
 111             DEBUG_SYSREQHANDLER(dprintf("SysReqHandler: msg 0x%lx class 0x%lx\n", (ULONG) msg, msg->Class));
 112             switch (msg->Class)
 113             {
 114             /* we don't use VANILLA (filtered from useridcmp!) to get
 115             all events we need */
 116             case IDCMP_RAWKEY:
 117             {
 118 #define RKBUFLEN 1
 119                 struct InputEvent ie;
 120                 char rawbuffer[RKBUFLEN];
 121
 122                 if (msg->Code & IECODE_UP_PREFIX) break;
 123
 124                 //hilight support
 125                 if (udata->NumGadgets > 1)
 126                 {
 127                     if (((msg->Code == 66) && (msg->Qualifier & (IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT))) ||
 128                          (msg->Code == 79))
 129                     {
 130                         intrequest_hilightgadget(udata,udata->ActiveGad,FALSE,IntuitionBase);
 131                         if (udata->ActiveGad > 0)
 132                         {
 133                             udata->ActiveGad --;
 134                         } else {
 135                             udata->ActiveGad = udata->NumGadgets - 1;
 136                         }
 137                         intrequest_hilightgadget(udata,udata->ActiveGad,TRUE,IntuitionBase);
 138                     } else if ((msg->Code == 66) || (msg->Code == 78))
 139                     {
 140                         intrequest_hilightgadget(udata,udata->ActiveGad,FALSE,IntuitionBase);
 141                         if (udata->ActiveGad < udata->NumGadgets - 1)
 142                         {
 143                             udata->ActiveGad ++;
 144                         } else {
 145                             udata->ActiveGad = 0;
 146                         }
 147                         intrequest_hilightgadget(udata,udata->ActiveGad,TRUE,IntuitionBase);
 148                     }
 149                 }
 150
 151                 ie.ie_Class = IECLASS_RAWKEY;
 152                 ie.ie_SubClass = 0;
 153                 ie.ie_Code = msg->Code;
 154                 ie.ie_Qualifier = 0;
 155                 ie.ie_EventAddress = (APTR *) *((ULONG *)msg->IAddress);
 156
 157                 if (KeymapBase && MapRawKey(&ie,rawbuffer,RKBUFLEN,0))
 158                 {
 159                     if (rawbuffer[0] == 13) //enter key
 160                     {
 161                         if (udata->ActiveGad != udata->NumGadgets - 1)
 162                         {
 163                             result = udata->ActiveGad + 1;
 164                         } else {
 165                             result = 0;
 166                         }
 167                     }
 168
 169                     if (rawbuffer[0] == 27) //escape key
 170                     {
 171                         result = 0;
 172                     }
 173                 }
 174
 175                 ie.ie_Qualifier = msg->Qualifier;
 176                 if (MatchHotkey(&ie,IA_REQUESTERCANCEL,IntuitionBase)) result = 0;
 177
 178                 if (MatchHotkey(&ie,IA_REQUESTEROK,IntuitionBase))
 179                 {
 180                     if (((struct IntRequestUserData *)window->UserData)->NumGadgets > 1)
 181                     {
 182                         result = 1;
 183                     } else {
 184                         result = 0;
 185                     }
 186                 }
 187             }
 188                 break;
 189
 190             case IDCMP_GADGETUP:
 191                 result = ((struct Gadget *)msg->IAddress)->GadgetID;
 192                 break;
 193
 194             case IDCMP_REFRESHWINDOW:
 195                 BeginRefresh(window);
 196                 intrequest_drawrequester(udata,IntuitionBase);
 197                 EndRefresh(window,TRUE);
 198                 break;
 199
 200             default:
 201                 DEBUG_SYSREQHANDLER(dprintf("SysReqHandler: unknown IDCMP\n"));
 202                 if (result == -2)
 203                 {
 204                     if (msg->Class &
 205                             ((struct IntRequestUserData *)window->UserData)->IDCMP)
 206                     {
 207                         if (IDCMPFlagsPtr)
 208                             *IDCMPFlagsPtr = msg->Class;
 209                         result = -1;
 210                     }
 211                 }
 212                 break;
 213             }
 214             ReplyMsg((struct Message *)msg);
 215
 216         } /* while ((msg = (struct IntuiMessage *)GetMsg(window->UserPort))) */
 217
 218     }
 219
 220     DEBUG_SYSREQHANDLER(dprintf("SysReqHandler: Result 0x%lx\n",result));
 221
 222     return result;
 223     AROS_LIBFUNC_EXIT
 224 } /* SysReqHandler() */