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->ViewPort.DWidth - (nw.Width + ld->ld_WBorLeft + ld->ld_WBorRight)) / 2
 155                               - ld->ld_Screen->LeftEdge;
 156             }
 157             if (intreq->ir_TopEdge >= 0)
 158             {
 159                 nw.TopEdge = intreq->ir_TopEdge;
 160             } else {
 161                 nw.TopEdge = (ld->ld_Screen->ViewPort.DHeight - (nw.Height + ld->ld_WBorTop + ld->ld_WBorBottom)) / 2
 162                              - ld->ld_Screen->TopEdge;
 163             }
 164
 165             D(bug("MinWidth: %d, MinHeight: %d\n", ld->ld_MinWidth, ld->ld_MinHeight));
 166
 167             nw.Title = intreq->ir_TitleText;
 168             if (!nw.Title)
 169             {
 170                 nw.Title = GetString(intreq->ir_TitleID, intreq->ir_Catalog, ASLB(AslBase));
 171             }
 172
 173             D(bug("\tWindow title: %s", nw.Title));
 174
 175 /*          nw.FirstGadget      = ld->ld_GList;
 176 */
 177             nw.Flags    =  WFLG_DRAGBAR    | WFLG_DEPTHGADGET   | WFLG_CLOSEGADGET    |
 178                            WFLG_SIZEGADGET | WFLG_SIZEBBOTTOM   | WFLG_SIMPLE_REFRESH |
 179                            WFLG_NOCAREREFRESH;
 180
 181             if (!(intreq->ir_Flags & IF_OPENINACTIVE))
 182             {
 183                 nw.Flags |= WFLG_ACTIVATE;
 184             }
 185
 186             idcmp = IDCMP_CLOSEWINDOW | IDCMP_GADGETUP      | IDCMP_MOUSEMOVE  |
 187                     IDCMP_NEWSIZE     | IDCMP_REFRESHWINDOW | IDCMP_GADGETDOWN |
 188                     IDCMP_MENUPICK    | IDCMP_RAWKEY        | IDCMP_VANILLAKEY |
 189                     IDCMP_MOUSEBUTTONS;
 190
 191             wintags[1].ti_Data  = nw.Width;
 192             wintags[2].ti_Data  = nw.Height;
 193
 194             privateidcmp = ((intreq->ir_Flags & IF_PRIVATEIDCMP) || (!intreq->ir_Window));
 195             if (privateidcmp)
 196             {
 197                 nw.IDCMPFlags = idcmp;
 198             }
 199
 200             win = OpenWindowTagList(&nw, wintags);
 201             if (win)
 202             {
 203                 if (!privateidcmp)
 204                 {
 205                     win->UserPort = intreq->ir_Window->UserPort;
 206                     ModifyIDCMP(win, idcmp);
 207                 }
 208
 209                 ld->ld_Window = win;
 210
 211                 ObtainSemaphore( &(ASLB(AslBase)->ReqListSem) );
 212                 reqnode->rn_ReqWindow = win;
 213                 ReleaseSemaphore(&(ASLB(AslBase)->ReqListSem));
 214
 215                 D(bug("Window opened\n"));
 216
 217                 D(bug
 218                 (
 219                     "\tLeft: %d\n\tTop: %d\n\tWidth: %d\n\tHeight: %d\n",
 220                     win->LeftEdge,
 221                     win->TopEdge,
 222                     win->Width,
 223                     win->Height
 224                  ));
 225
 226
 227                 /* Constraint the window minsize */
 228
 229                 WindowLimits
 230                 (
 231                     win,
 232                     ld->ld_MinWidth + win->BorderLeft + win->BorderRight,
 233                     ld->ld_MinHeight + win->BorderTop + win->BorderBottom,
 234                     ~0,
 235                     ~0
 236                 );
 237
 238                 D(bug("Window limits set\n"));
 239
 240                 SetFont(win->RPort, ld->ld_Font);
 241
 242                 /* Layout the requester */
 243                 ld->ld_Command = LDCMD_LAYOUT;
 244                 if (CallHookPkt(&(reqinfo->GadgetryHook), ld, ASLB(AslBase)))
 245                 {
 246                     D(bug("Gadgetry layout done\n"));
 247
 248                     if (ld->ld_GList)
 249                     {
 250                         D(bug("Adding glist\n"));
 251                         AddGList(win, ld->ld_GList, -1, -1, NULL);
 252                         D(bug("Refreshing glist\n"));
 253                         RefreshGList(ld->ld_GList, win, NULL, -1);
 254
 255                         D(bug("Gadgetlist refreshed\n"));
 256                     }
 257
 258                     if (ld->ld_Menu) SetMenuStrip(win, ld->ld_Menu);
 259
 260                     ld->ld_Command = LDCMD_WINDOWOPENED;
 261                     CallHookPkt(&(reqinfo->GadgetryHook), ld, ASLB(AslBase));
 262
 263                     if (intreq->ir_Flags & IF_POPTOFRONT)
 264                     {
 265                         struct Screen   *frontscr;
 266                         ULONG            ilock;
 267
 268                         ilock = LockIBase(0);
 269                         frontscr = IntuitionBase->FirstScreen;
 270                         UnlockIBase(ilock);
 271
 272                         if (frontscr != win->WScreen)
 273                         {
 274                             ScreenToFront(win->WScreen);
 275                             intreq->ir_Flags |= IF_POPPEDTOFRONT;
 276                         }
 277                     }
 278
 279                     /* Wait for the user to do something */
 280                     success = HandleEvents(ld, reqinfo, ASLB(AslBase));
 281
 282                     /* Finished with event handling, clean up requester
 283                     specific stuff */
 284
 285                     ld->ld_Command = LDCMD_CLEANUP;
 286                     CallHookPkt(&(reqinfo->GadgetryHook), ld, ASLB(AslBase));
 287
 288                 } /* if (CallHookPkt(&(reqinfo->GadgetryHook), ld, ASLB(AslBase))) */
 289
 290                 /* win is closed in FreeCommon */
 291
 292             } /* if (win) */
 293
 294         } /* if (CallHookPkt( &(reqinfo->GadgetryHook), ld, ASLB(AslBase))) */
 295
 296         ObtainSemaphore( &(ASLB(AslBase)->ReqListSem) );
 297         reqnode->rn_ReqWindow = NULL;
 298         ReleaseSemaphore(&(ASLB(AslBase)->ReqListSem));
 299
 300         FreeCommon(ld, ASLB(AslBase));
 301
 302     } /* if (ld) */
 303
 304     ReturnBool ("AslRequest", success);
 305
 306     AROS_LIBFUNC_EXIT
 307 } /* AslRequest */