workbench/libs/muimaster/mui_request.c

   1 /*
   2     Copyright © 2002-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <string.h>
   7
   8 #ifdef __AROS__
   9 #include <proto/alib.h>
  10 #else
  11 #include <clib/alib_protos.h>
  12 #endif
  13 #include <proto/exec.h>
  14 #include <proto/intuition.h>
  15 #include <proto/muimaster.h>
  16
  17 #include "mui.h"
  18 #include "support.h"
  19 #include "muimaster_intern.h"
  20
  21 extern struct Library *MUIMasterBase;
  22
  23 #ifdef __AROS__
  24 AROS_UFH2S(void, cpy_func,
  25     AROS_UFHA(UBYTE, chr, D0),
  26     AROS_UFHA(STRPTR *, strPtrPtr, A3))
  27 {
  28     AROS_USERFUNC_INIT
  29
  30     *(*strPtrPtr)++ = chr;
  31
  32     AROS_USERFUNC_EXIT
  33 }
  34
  35 AROS_UFH2S(void, len_func,
  36     AROS_UFHA(UBYTE, chr, D0),
  37     AROS_UFHA(LONG *, lenPtr, A3))
  38 {
  39     AROS_USERFUNC_INIT
  40
  41     (*lenPtr)++;
  42
  43     AROS_USERFUNC_EXIT
  44 }
  45 #endif
  46
  47 /*****************************************************************************
  48
  49     NAME */
  50         AROS_LH7(LONG, MUI_RequestA,
  51
  52 /*  SYNOPSIS */
  53         AROS_LHA(APTR,         app,     D0),
  54         AROS_LHA(APTR,         win,     D1),
  55         AROS_LHA(LONGBITS,     flags,   D2),
  56         AROS_LHA(CONST_STRPTR, title,   A0),
  57         AROS_LHA(CONST_STRPTR, gadgets, A1),
  58         AROS_LHA(CONST_STRPTR, format,  A2),
  59         AROS_LHA(APTR,         params,  A3),
  60
  61 /*  LOCATION */
  62         struct Library *, MUIMasterBase, 7, MUIMaster)
  63
  64 /*  FUNCTION
  65
  66     INPUTS
  67
  68     RESULT
  69
  70     NOTES
  71
  72     EXAMPLE
  73
  74     BUGS
  75
  76     SEE ALSO
  77
  78     INTERNALS
  79
  80 *****************************************************************************/
  81 {
  82     AROS_LIBFUNC_INIT
  83
  84     LONG result;
  85     char *reqtxt;
  86     LONG reqtxt_len;
  87 #ifndef __AROS__
  88     static const ULONG len_func = 0x52934e75; /* addq.l  #1,(A3) ; rts */
  89     static const ULONG cpy_func = 0x16c04e75; /* move.b d0,(a3)+ ; rts */
  90 #endif
  91
  92     Object *req_wnd;
  93     Object *req_group;
  94     Object *req_but[32]; /* more than 32 buttongadgets within a requester shouldn`t happen */
  95
  96     if (!app)
  97     {
  98         struct EasyStruct es;
  99         es.es_StructSize   = sizeof(struct EasyStruct);
 100         es.es_Flags        = 0;
 101         es.es_Title        = title;
 102         es.es_TextFormat   = format;
 103         es.es_GadgetFormat = gadgets;
 104         return EasyRequestArgs(NULL,&es,NULL,params);
 105     }
 106
 107 #ifdef __AROS__
 108     reqtxt_len = 0;
 109     RawDoFmt(format,params,(VOID_FUNC)AROS_ASMSYMNAME(len_func),&reqtxt_len);
 110 #else
 111     reqtxt_len = 0;
 112     RawDoFmt(format,params,(void(*)())&len_func,&reqtxt_len);
 113 #endif
 114
 115     if (!(reqtxt = AllocVec(reqtxt_len+1,0))) return 0; /* Return cancel if something failed */
 116
 117 #ifdef __AROS__
 118     {
 119         char *reqtxtptr = reqtxt;
 120
 121         RawDoFmt(format,params,(VOID_FUNC)AROS_ASMSYMNAME(cpy_func),&reqtxtptr);
 122     }
 123 #else
 124     RawDoFmt(format,params,(void(*)())&cpy_func,reqtxt);
 125 #endif
 126
 127     if (title == NULL && app != NULL)
 128     {
 129         title = (CONST_STRPTR) XGET(app, MUIA_Application_Title);
 130     }
 131
 132     req_wnd = WindowObject,
 133         MUIA_Window_Title,        title,
 134         MUIA_Window_RefWindow,    win,
 135         MUIA_Window_LeftEdge,     MUIV_Window_LeftEdge_Centered,
 136         MUIA_Window_TopEdge,      MUIV_Window_TopEdge_Centered,
 137         MUIA_Window_CloseGadget,  FALSE,
 138         MUIA_Window_SizeGadget,   FALSE,
 139         WindowContents, VGroup,
 140             MUIA_Background,       MUII_RequesterBack,
 141             Child, HGroup,
 142                 Child, TextObject,
 143                     TextFrame,
 144                     MUIA_InnerBottom,   8,
 145                     MUIA_InnerLeft,     8,
 146                     MUIA_InnerRight,    8,
 147                     MUIA_InnerTop,      8,
 148                     MUIA_Background,    MUII_TextBack,
 149                     MUIA_Text_SetMax,   TRUE,
 150                     MUIA_Text_Contents, reqtxt,
 151                     End,
 152                 End,
 153             Child, VSpace(2),
 154             Child, req_group = HGroup, End,
 155             End,
 156         End;
 157
 158   FreeVec(reqtxt);
 159
 160   result = 0;
 161
 162     if (req_wnd)
 163     {
 164         char *gadgs = StrDup(gadgets);
 165         if (gadgs)
 166         {
 167             char *current = gadgs;
 168             int active = -1;
 169             int num_gads = 0;
 170             IPTR isopen;
 171
 172 //          set(app, MUIA_Application_Sleep, TRUE);
 173             DoMethod(app, OM_ADDMEMBER, (IPTR)req_wnd);
 174
 175             while(current)
 176             {
 177                 char *next = strchr(current,'|');
 178                 if (next) *next++ = 0;
 179
 180                 if (current[0] == '*')
 181                 {
 182                     current++;
 183                     active = num_gads;
 184                 }
 185
 186                 if (!(req_but[num_gads] = SimpleButton(current)))
 187                     break;
 188                 num_gads++;
 189                 current = next;
 190             }
 191
 192             FreeVec(gadgs);
 193             DoMethod(req_group, MUIM_Group_InitChange);
 194
 195             /* if this is only one button lets add it separatly */
 196             if (num_gads == 1)
 197             {
 198                 DoMethod(req_group, OM_ADDMEMBER, (IPTR)HSpace(0));
 199                 DoMethod(req_group, OM_ADDMEMBER, (IPTR)req_but[0]);
 200                 DoMethod(req_group, OM_ADDMEMBER, (IPTR)HSpace(0));
 201                 DoMethod(req_but[0], MUIM_Notify, MUIA_Pressed, FALSE,
 202                          (IPTR)app, 2, MUIM_Application_ReturnID, 2);
 203             }
 204             else
 205             {
 206                 int j;
 207
 208                 for(j = 0; j < num_gads; j++)
 209                 {
 210                     if (j > 0)
 211                     {
 212                         DoMethod(req_group, OM_ADDMEMBER, (IPTR)HSpace(0));
 213                     }
 214                     DoMethod(req_group, OM_ADDMEMBER, (IPTR)req_but[j]);
 215                     DoMethod(req_but[j], MUIM_Notify, MUIA_Pressed, FALSE,
 216                              (IPTR)app, 2, MUIM_Application_ReturnID,
 217                              (j+2 <= num_gads) ? j+2 : 1);
 218                     set(req_but[j], MUIA_CycleChain, 1);
 219                 }
 220             }
 221             DoMethod(req_group, MUIM_Group_ExitChange);
 222
 223             /* now activate that button with a starting "*" */
 224             if(active != -1) set(req_wnd, MUIA_Window_ActiveObject, (IPTR) req_but[active]);
 225
 226             /* lets collect the waiting returnIDs now */
 227             // COLLECT_RETURNIDS;
 228
 229             set(req_wnd, MUIA_Window_Open, TRUE);
 230             get(req_wnd, MUIA_Window_Open, &isopen);
 231
 232             if (isopen)
 233             {
 234                 ULONG sigs = 0;
 235                 result = -1;
 236
 237                 while (result == -1)
 238                 {
 239                     ULONG ret = DoMethod(app, MUIM_Application_NewInput, (IPTR)&sigs);
 240
 241                     /* if a button was hit, lets get outda here. */
 242                     if (ret > 0 && ret <= num_gads+1)
 243                     {
 244                         result = ret-1;
 245                         break;
 246                     }
 247
 248                     if (sigs) sigs = Wait(sigs);
 249                 }
 250             }
 251
 252             /* now lets reissue the collected returnIDs again */
 253             // REISSUE_RETURNIDS;
 254
 255 //          set(app, MUIA_Application_Sleep, FALSE);
 256         }
 257
 258         DoMethod(app, OM_REMMEMBER, (IPTR)req_wnd);
 259         MUI_DisposeObject(req_wnd);
 260     }
 261     return result;
 262
 263     AROS_LIBFUNC_EXIT
 264
 265 } /* MUIA_RequestA */