workbench/libs/asl/aslrequest.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include <proto/dos.h>
   9 #include <proto/utility.h>
  10 #include <proto/intuition.h>
  11 #include <proto/graphics.h>
  12 #include <string.h>
  13 #include <intuition/intuition.h>
  14 #include "asl_intern.h"
  15
  16 struct LayoutData *AllocCommon(ULONG, struct IntReq *, APTR, struct AslBase_intern *);
  17 VOID FreeCommon(struct LayoutData *, struct AslBase_intern *);
  18 BOOL HandleEvents(struct LayoutData *, struct AslReqInfo *, struct AslBase_intern *);
  19
  20
  21 #define SDEBUG 0
  22 #define DEBUG 0
  23
  24
  25 #  include <aros/debug.h>
  26
  27 /*****************************************************************************
  28
  29     NAME */
  30 #include <proto/asl.h>
  31 #include <utility/tagitem.h>
  32
  33         AROS_LH2(BOOL, AslRequest,
  34
  35 /*  SYNOPSIS */
  36         AROS_LHA(APTR            , requester, A0),
  37         AROS_LHA(struct TagItem *, tagList, A1),
  38
  39 /*  LOCATION */
  40         struct Library *, AslBase, 10, Asl)
  41
  42 /*  FUNCTION
  43
  44     INPUTS
  45
  46     RESULT
  47
  48     NOTES
  49
  50     EXAMPLE
  51
  52     BUGS
  53
  54     SEE ALSO
  55
  56     INTERNALS
  57
  58     HISTORY
  59         27-11-96    digulla automatically created from
  60                             asl_lib.fd and clib/asl_protos.h
  61
  62 *****************************************************************************/
  63 {
  64     AROS_LIBFUNC_INIT
  65
  66     struct ReqNode      *reqnode;
  67     struct IntReq       *intreq;
  68     struct AslReqInfo   *reqinfo;
  69     struct LayoutData   *ld;
  70     struct Window       *win;
  71
  72
  73     BOOL success = FALSE;
  74
  75     D(bug("AslRequest(requester=%p, tagList=%p)\n", requester, tagList));
  76
  77     if (!requester)
  78     {
  79         SetIoErr(ERROR_NO_FREE_STORE);
  80         return (FALSE);
  81     }
  82
  83     /* Find the correspondent internal structure */
  84     reqnode = FindReqNode(requester, ASLB(AslBase));
  85     if (!reqnode)
  86     {
  87         return (FALSE);
  88     }
  89
  90     intreq  = reqnode->rn_IntReq;
  91     reqinfo = &(ASLB(AslBase)->ReqInfo[intreq->ir_ReqType]);
  92
  93 /*  stegerg: this must be done when the Requester is terminated
  94 **           before setting the new output variables in the Requester struct.
  95 **
  96 **    StripRequester(requester, intreq->ir_ReqType, ASLB(AslBase));
  97 */
  98
  99     /* Parse new tags if supplied */
 100     if (tagList)
 101     {
 102         struct ParseTagArgs pta;
 103
 104         ParseCommonTags(intreq, tagList, ASLB(AslBase));
 105
 106         /* Parse requester specific tags */
 107         pta.pta_IntReq  = intreq;
 108         pta.pta_Req     = reqnode->rn_Req;
 109         pta.pta_Tags    = tagList;
 110
 111         CallHookPkt(&(reqinfo->ParseTagsHook), &pta, ASLB(AslBase));
 112     }
 113
 114     /* Now do the layout stuff */
 115
 116
 117     /* Do some allocations common for all requesters */
 118     ld = AllocCommon(reqinfo->UserDataSize, intreq, requester, ASLB(AslBase));
 119     if (ld)
 120     {
 121         D(bug("Common stuff allocated\n"));
 122
 123         /* Tell the specific requester to initialize */
 124
 125         ld->ld_Command = LDCMD_INIT;
 126
 127         if (CallHookPkt( &(reqinfo->GadgetryHook), ld, ASLB(AslBase)))
 128         {
 129             struct NewWindow nw;
 130             struct TagItem   wintags[] =
 131             {
 132                 {WA_CustomScreen        , (IPTR)ld->ld_Screen       }, /* stegerg: requesters should not use WA_PubScreen */
 133                 {WA_InnerWidth          , 0                         },
 134                 {WA_InnerHeight         , 0                         },
 135                 {WA_AutoAdjust          , TRUE                      },
 136                 {WA_NewLookMenus        , TRUE                      },
 137             #if AVOID_FLICKER
 138                 {WA_BackFill            , (IPTR)LAYERS_NOBACKFILL   },
 139             #endif
 140                 {TAG_DONE                                           }
 141             };
 142             ULONG           idcmp;
 143             BOOL            privateidcmp;
 144
 145             memset(&nw, 0L, sizeof (struct NewWindow));
 146
 147             nw.Width    = (intreq->ir_Width > ld->ld_MinWidth) ? intreq->ir_Width : ld->ld_MinWidth;
 148             nw.Height   = (intreq->ir_Height > ld->ld_MinHeight) ? intreq->ir_Height : ld->ld_MinHeight;
 149
 150             if (intreq->ir_LeftEdge >= 0)
 151             {
 152                 nw.LeftEdge = intreq->ir_LeftEdge;
 153             } else {
 154                 nw.LeftEdge = (ld->ld_Screen->Width - (nw.Width + ld->ld_WBorLeft + ld->ld_WBorRight)) / 2;
 155             }
 156             if (intreq->ir_TopEdge >= 0)
 157             {
 158                 nw.TopEdge = intreq->ir_TopEdge;
 159             } else {
 160                 nw.TopEdge = (ld->ld_Screen->Height - (nw.Height + ld->ld_WBorTop + ld->ld_WBorBottom)) / 2;
 161             }
 162
 163             D(bug("MinWidth: %d, MinHeight: %d\n", ld->ld_MinWidth, ld->ld_MinHeight));
 164
 165             nw.Title = intreq->ir_TitleText;
 166             if (!nw.Title)
 167             {
 168                 nw.Title = GetString(intreq->ir_TitleID, intreq->ir_Catalog, ASLB(AslBase));
 169             }
 170
 171             D(bug("\tWindow title: %s", nw.Title));
 172
 173 /*          nw.FirstGadget      = ld->ld_GList;
 174 */
 175             nw.Flags    =  WFLG_DRAGBAR    | WFLG_DEPTHGADGET   | WFLG_CLOSEGADGET    |
 176                            WFLG_SIZEGADGET | WFLG_SIZEBBOTTOM   | WFLG_SIMPLE_REFRESH |
 177                            WFLG_NOCAREREFRESH;
 178
 179             if (!(intreq->ir_Flags & IF_OPENINACTIVE))
 180             {
 181                 nw.Flags |= WFLG_ACTIVATE;
 182             }
 183
 184             idcmp = IDCMP_CLOSEWINDOW | IDCMP_GADGETUP      | IDCMP_MOUSEMOVE  |
 185                     IDCMP_NEWSIZE     | IDCMP_REFRESHWINDOW | IDCMP_GADGETDOWN |
 186                     IDCMP_MENUPICK    | IDCMP_RAWKEY        | IDCMP_VANILLAKEY |
 187                     IDCMP_MOUSEBUTTONS;
 188
 189             wintags[1].ti_Data  = nw.Width;
 190             wintags[2].ti_Data  = nw.Height;
 191
 192             privateidcmp = ((intreq->ir_Flags & IF_PRIVATEIDCMP) || (!intreq->ir_Window));
 193             if (privateidcmp)
 194             {
 195                 nw.IDCMPFlags = idcmp;
 196             }
 197
 198             win = OpenWindowTagList(&nw, wintags);
 199             if (win)
 200             {
 201                 if (!privateidcmp)
 202                 {
 203                     win->UserPort = intreq->ir_Window->UserPort;
 204                     ModifyIDCMP(win, idcmp);
 205                 }
 206
 207                 ld->ld_Window = win;
 208
 209                 ObtainSemaphore( &(ASLB(AslBase)->ReqListSem) );
 210                 reqnode->rn_ReqWindow = win;
 211                 ReleaseSemaphore(&(ASLB(AslBase)->ReqListSem));
 212
 213                 D(bug("Window opened\n"));
 214
 215                 D(bug
 216                 (
 217                     "\tLeft: %d\n\tTop: %d\n\tWidth: %d\n\tHeight: %d\n",
 218                     win->LeftEdge,
 219                     win->TopEdge,
 220                     win->Width,
 221                     win->Height
 222                  ));
 223
 224
 225                 /* Constraint the window minsize */
 226
 227                 WindowLimits
 228                 (
 229                     win,
 230                     ld->ld_MinWidth + win->BorderLeft + win->BorderRight,
 231                     ld->ld_MinHeight + win->BorderTop + win->BorderBottom,
 232                     ~0,
 233                     ~0
 234                 );
 235
 236                 D(bug("Window limits set\n"));
 237
 238                 SetFont(win->RPort, ld->ld_Font);
 239
 240                 /* Layout the requester */
 241                 ld->ld_Command = LDCMD_LAYOUT;
 242                 if (CallHookPkt(&(reqinfo->GadgetryHook), ld, ASLB(AslBase)))
 243                 {
 244                     D(bug("Gadgetry layout done\n"));
 245
 246                     if (ld->ld_GList)
 247                     {
 248                         D(bug("Adding glist\n"));
 249                         AddGList(win, ld->ld_GList, -1, -1, NULL);
 250                         D(bug("Refreshing glist\n"));
 251                         RefreshGList(ld->ld_GList, win, NULL, -1);
 252
 253                         D(bug("Gadgetlist refreshed\n"));
 254                     }
 255
 256                     if (ld->ld_Menu) SetMenuStrip(win, ld->ld_Menu);
 257
 258                     ld->ld_Command = LDCMD_WINDOWOPENED;
 259                     CallHookPkt(&(reqinfo->GadgetryHook), ld, ASLB(AslBase));
 260
 261                     if (intreq->ir_Flags & IF_POPTOFRONT)
 262                     {
 263                         struct Screen   *frontscr;
 264                         ULONG            ilock;
 265
 266                         ilock = LockIBase(0);
 267                         frontscr = IntuitionBase->FirstScreen;
 268                         UnlockIBase(ilock);
 269
 270                         if (frontscr != win->WScreen)
 271                         {
 272                             ScreenToFront(win->WScreen);
 273                             intreq->ir_Flags |= IF_POPPEDTOFRONT;
 274                         }
 275                     }
 276
 277                     /* Wait for the user to do something */
 278                     success = HandleEvents(ld, reqinfo, ASLB(AslBase));
 279
 280                     /* Finished with event handling, clean up requester
 281                     specific stuff */
 282
 283                     ld->ld_Command = LDCMD_CLEANUP;
 284                     CallHookPkt(&(reqinfo->GadgetryHook), ld, ASLB(AslBase));
 285
 286                 } /* if (CallHookPkt(&(reqinfo->GadgetryHook), ld, ASLB(AslBase))) */
 287
 288                 /* win is closed in FreeCommon */
 289
 290             } /* if (win) */
 291
 292         } /* if (CallHookPkt( &(reqinfo->GadgetryHook), ld, ASLB(AslBase))) */
 293
 294         ObtainSemaphore( &(ASLB(AslBase)->ReqListSem) );
 295         reqnode->rn_ReqWindow = NULL;
 296         ReleaseSemaphore(&(ASLB(AslBase)->ReqListSem));
 297
 298         FreeCommon(ld, ASLB(AslBase));
 299
 300     } /* if (ld) */
 301
 302     ReturnBool ("AslRequest", success);
 303
 304     AROS_LIBFUNC_EXIT
 305 } /* AslRequest */