?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
add place-holder directory for the a3000 wd533c93 scsi controller implementation.
[AROS.git] / workbench / libs / reqtools / req.c
blob5e3b57f8b8faadb2bed4daaf8c07b3a82d5530f6
1 /*
2 Copyright © 1995-2018, The AROS Development Team. All rights reserved.
3 $Id$
4 */
5
6 #include <aros/debug.h>
7
8 #include <exec/types.h>
9 #include <exec/io.h>
10 #include <exec/memory.h>
11 #include <intuition/intuition.h>
12 #include <intuition/intuitionbase.h>
13 #include <intuition/sghooks.h>
14 #include <intuition/imageclass.h>
15 #include <libraries/dos.h>
16 #include <libraries/gadtools.h>
17 #include <libraries/reqtools.h>
18 #include <proto/exec.h>
19 #include <proto/gadtools.h>
20 #include <proto/graphics.h>
21 #include <proto/intuition.h>
22 #include <proto/utility.h>
23 #include <proto/reqtools.h>
24 #include <string.h>
25
26 #include "filereq.h"
27
28
29 #include "rtlocale.h"
30
31 /****************************************************************************************/
32
33 #ifndef __AROS__
34
35 #ifdef __SASC
36 #pragma libcall ReqToolsBase rtLockPrefs a8 00
37 #pragma libcall ReqToolsBase rtUnlockPrefs ae 00
38 #else
39 #warning You might have to fix rtLockPrefs/rtUnlockPrefs for your compiler
40 #endif
41
42 #endif
43
44 /****************************************************************************************/
45
46 #define ThisProcess() ( ( struct Process * ) FindTask( NULL ) )
47
48 /****************************************************************************************/
49
50 struct PWCallBackArgs
51 {
52 char *buffer;
53 ULONG lastchecksum, verify, retcode;
54 };
55
56 /****************************************************************************************/
57
58 extern IPTR ASM LoopReqHandler (ASM_REGPARAM(a1, struct rtHandlerInfo *,));
59 extern void REGARGS SetWinTitleFlash (struct Window *, char *);
60 extern void ShortDelay (void);
61 extern ULONG ASM myTextLength (ASM_REGPARAM(a1, char *,),
62 ASM_REGPARAM(a0, struct TextAttr *,),
63 ASM_REGPARAM(a3, UBYTE *,),
64 ASM_REGPARAM(a2, struct Image *,),
65 ASM_REGPARAM(d7, ULONG,));
66
67 extern struct ReqToolsBase *ReqToolsBase;
68 extern struct DosLibrary *DOSBase;
69 extern struct IntuitionBase *IntuitionBase;
70 extern struct Library *GadToolsBase;
71 extern struct GfxBase *GfxBase;
72
73 /****************************************************************************************/
74
75 struct FmtBuff
76 {
77 LONG numlines, bufflen;
78 };
79
80 #define DOFMT_COUNTNEWLINES 0
81 #define DOFMT_COUNTBARS 1
82
83 /****************************************************************************************/
84
85
86 extern APTR DofmtCount (char *, APTR, ULONG *, int);
87 extern APTR STDARGS DofmtArgs (char *, char *,...);
88
89
90 extern void FillBarTable (char **, char *);
91 extern void FillNewLineTable (char **, char *);
92
93 /****************************************************************************************/
94
95 typedef struct Req_RealHandlerInfo Req_GlobData;
96 #define STRINGGADID 32
97
98 struct Req_RealHandlerInfo
99 {
100 IPTR (*func)(); /* private */
101 ULONG WaitMask;
102 ULONG DoNotWait;
103
104 /* PRIVATE */
105 char **gadstrbuff, **buff, *stringbuff, *textfmt;
106 struct PWCallBackArgs arg;
107 struct Gadget *strgad, *yesgad, *nogad, *retgad, *selgad;
108 struct TextAttr boldattr;
109 struct KeyButtonInfo buttoninfo;
110 struct StringInfo *strinfo;
111 struct Screen *scr, *frontscr;
112 struct Window *prwin;
113 struct Window *reqwin;
114 struct DrawInfo *drinfo;
115 struct rtReqInfo *reqinfo;
116 struct Hook *imsghook, backfillhook;
117 struct TextFont *reqfont;
118 struct Catalog *catalog;
119 struct Image headimg;
120 struct NewWindow newreqwin;
121 struct FmtBuff bodyfmt, gadfmtbuff;
122 UBYTE minmaxstr[30];
123 int idcmp, mode, min, max, checksum, pubscr, reqflags;
124 int retnum, waitpointer, allowempty, lockwindow, shareidcmp, noscreenpop;
125 int textht, texttop, strgadht, strgadtop, width, nowinbackfill;
126 int numlines, len, fontht, minmax, minmaxlen, minmaxtop, minmaxleft;
127 int fkeys;
128 APTR winlock, visinfo;
129 ULONG *value, *lenptr;
130 };
131
132 /****************************************************************************************/
133
134 static CONST UWORD pattern[] = { 0xAAAA,0x5555 };
135
136 static ULONG REGARGS ReqExit (Req_GlobData *, int);
137 static struct Image * REGARGS CreateRectImage
138 (Req_GlobData *, struct Image *, int, int, int, int, int, int);
139 static IPTR ASM SAVEDS myReqHandler (REGPARAM(a1, Req_GlobData *,),
140 REGPARAM(d0, ULONG,),
141 REGPARAM(a0, struct TagItem *,));
142
143 /****************************************************************************************/
144
145 #define GETSTRINGLONG_FLAGS (GSREQF_CENTERTEXT|GSREQF_HIGHLIGHTTEXT)
146 #define EZREQ_FLAGS (EZREQF_NORETURNKEY|EZREQF_LAMIGAQUAL|EZREQF_CENTERTEXT)
147
148
149 /****************************************************************************************/
150
151 ULONG ASM SAVEDS GetString (
152 REGPARAM(a1, UBYTE *, stringbuff), /* str in case of rtEZRequestA */
153 REGPARAM(d0, SIPTR, maxlen), /* args in case of rtEZRequestA */
154 REGPARAM(a2, char *, title), /* gadfmt in case of rtEZRequestA */
155 REGPARAM(d1, ULONG, checksum),
156 REGPARAM(d2, ULONG *, value),
157 REGPARAM(d3, LONG, mode),
158 REGPARAM(d4, struct rtReqInfo *, reqinfo),
159 REGPARAM(a0, struct TagItem *, taglist))
160 {
161 /* #define CLEARSIZE (28+sizeof(struct NewWindow)+sizeof(struct IntuiText)+\
162 sizeof(struct NewGadget)+2*sizeof(struct FmtBuff)) */
163
164 // FIXME: obsolete comment?
165 /* keep these vars together and just BEFORE NewWindow struct! */
166 /*-------------------------------------------------*/
167 int reqpos = REQPOS_DEFAULT;
168 char *pubname = NULL;
169 ULONG underscore = 0;
170 struct TextAttr *fontattr = NULL;
171 struct Locale *locale = NULL;
172 struct IntuiText itxt, *bodyitxt = NULL;
173 struct NewGadget ng;
174 struct Image *img;
175 /**/
176 // FIXME: obsolete comment?
177 /* KEEP MIN AND MAX IN THIS ORDER !!!! */
178 int max = MAXINT, min = MININT;
179 /**/
180 Req_GlobData *glob;
181 struct Gadget *gad;
182 struct TagItem *tag, *tstate;
183 /* for rtEZRequestA */
184 char *gadfmt = title;
185 char *ptr;
186 int val, spacing, reqhandler = FALSE, nogadfmt, gadlen = 0;
187 int height, top, showdef = TRUE;
188 int scrwidth, scrheight, i, j, npos, nlen, nogadgets, retnum;
189 int invisible, scrfontht, gadlines = 0;
190 int leftoff, rightoff;
191 ULONG *gadlenptr = NULL, *gadposptr = NULL, idcmpflags;
192 APTR gadfmtargs = NULL, textfmtargs = NULL;
193
194 memset (&itxt, 0, sizeof (struct IntuiText));
195 memset (&ng, 0, sizeof (struct NewGadget));
196
197 if (!(glob = AllocVec (sizeof (Req_GlobData), MEMF_PUBLIC | MEMF_CLEAR)))
198 return (FALSE);
199
200 glob->mode = mode;
201 glob->checksum = checksum;
202 glob->value = value;
203 glob->stringbuff = stringbuff;
204 glob->fkeys = rtLockPrefs()->Flags & RTPRF_FKEYS;
205 rtUnlockPrefs();
206
207 nogadfmt = (mode != IS_EZREQUEST);
208 invisible = (mode <= ENTER_PASSWORD);
209
210 if (mode == IS_EZREQUEST) title = NULL;
211 if (mode == ENTER_STRING) glob->width = 350; else glob->width = 180;
212 retnum = 1;
213 if ((glob->reqinfo = reqinfo))
214 {
215 if (reqinfo->Width) glob->width = reqinfo->Width;
216 if (reqinfo->ReqTitle) title = reqinfo->ReqTitle;
217 if (reqinfo->ReqPos != REQPOS_DEFAULT) reqpos = reqinfo->ReqPos;
218
219 glob->newreqwin.LeftEdge = reqinfo->LeftOffset;
220 glob->newreqwin.TopEdge = reqinfo->TopOffset;
221 glob->reqflags = reqinfo->Flags;
222 glob->waitpointer = reqinfo->WaitPointer;
223 glob->lockwindow = reqinfo->LockWindow;
224 glob->shareidcmp = reqinfo->ShareIDCMP;
225 glob->imsghook = reqinfo->IntuiMsgFunc;
226 }
227
228 /* parse tags */
229 tstate = taglist;
230 while ((tag = NextTagItem (&tstate)))
231 {
232 IPTR tagdata = tag->ti_Data;
233 if (tag->ti_Tag > RT_TagBase)
234 {
235 switch (tag->ti_Tag)
236 {
237 case RT_Window: glob->prwin = (struct Window *)tagdata; break;
238 case RT_IDCMPFlags: glob->idcmp = tagdata; break;
239 case RT_ReqPos: reqpos = tagdata; break;
240 case RT_LeftOffset: glob->newreqwin.LeftEdge = tagdata; break;
241 case RT_TopOffset: glob->newreqwin.TopEdge = tagdata; break;
242 case RT_PubScrName: pubname = (char *)tagdata; break;
243 case RT_Screen: glob->scr = (struct Screen *)tagdata; break;
244 case RT_ReqHandler: *(APTR *)tagdata = glob;
245 reqhandler = TRUE;
246 break;
247 case RT_WaitPointer: glob->waitpointer = tagdata; break;
248 case RT_Underscore: underscore = tagdata; break;
249 case RT_ShareIDCMP: glob->shareidcmp = tagdata; break;
250 case RT_LockWindow: glob->lockwindow = tagdata; break;
251 case RT_ScreenToFront: glob->noscreenpop = !tagdata; break;
252 case RT_TextAttr: fontattr = (struct TextAttr *)tagdata; break;
253 case RT_IntuiMsgFunc: glob->imsghook = (struct Hook *)tagdata; break;
254 case RT_Locale: locale = (struct Locale *)tagdata; break;
255 case RTEZ_ReqTitle: if (mode == IS_EZREQUEST) title = (char *)tagdata;
256 break;
257 /* RTGS_Flags == RTGL_Flags == RTEZ_Flags */
258 case RTEZ_Flags: glob->reqflags = tagdata; break;
259 case RTEZ_DefaultResponse: retnum = tagdata; break;
260 case RTGL_Min: min = tagdata; glob->minmax = TRUE; break;
261 case RTGL_Max: max = tagdata; glob->minmax = TRUE; break;
262 /* RTGS_Width == RTGL_Width */
263 case RTGL_Width: if (mode == ENTER_NUMBER || mode == ENTER_STRING)
264 glob->width = tagdata;
265 break;
266 case RTGL_ShowDefault: showdef = tagdata; break;
267 /* RTGS_GadFmt == RTGL_GadFmt */
268 case RTGL_GadFmt: nogadfmt = FALSE;
269 gadfmt = (char *)tagdata;
270 break;
271 /* RTGS_GadFmtArgs == RTGL_GadFmtArgs */
272 case RTGL_GadFmtArgs: gadfmtargs = (APTR)tagdata; break;
273 /* RTGS_Invisible == RTGL_Invisible */
274 case RTGL_Invisible: invisible = tagdata; break;
275 /* RTGS_BackFill == RTGL_BackFill */
276 case RTGL_BackFill: if (mode == ENTER_NUMBER || mode == ENTER_STRING)
277 glob->nowinbackfill = !tagdata;
278 break;
279 /* RTGS_TextFmt == RTGL_TextFmt */
280 case RTGL_TextFmt: if (mode == ENTER_NUMBER || mode == ENTER_STRING)
281 glob->textfmt = (char *)tagdata;
282 break;
283 /* RTGS_TextFmtArgs == RTGL_TextFmtArgs */
284 case RTGL_TextFmtArgs: textfmtargs = (APTR)tagdata; break;
285 case RTGS_AllowEmpty: glob->allowempty = tagdata; break;
286
287 } /* switch (tag->ti_Tag) */
288
289 } /* if (tag->ti_Tag > RT_TagBase)*/
290
291 } /* while ((tag = NextTagItem (&tstate))) */
292
293 glob->catalog = RT_OpenCatalog (locale);
294
295 /* ignore RTGL_Min and RTGL_Max if not rtNewGetLongA() */
296 if (mode != ENTER_NUMBER) glob->minmax = FALSE;
297 retnum++;
298 glob->newreqwin.Flags = WFLG_DEPTHGADGET|WFLG_DRAGBAR|WFLG_ACTIVATE
299 |WFLG_SIMPLE_REFRESH|WFLG_RMBTRAP;
300
301 idcmpflags = glob->idcmp | IDCMP_REFRESHWINDOW|IDCMP_GADGETUP|IDCMP_RAWKEY;
302 if (mode != IS_EZREQUEST) idcmpflags |= IDCMP_MOUSEBUTTONS|IDCMP_ACTIVEWINDOW;
303
304 if (!glob->prwin || !glob->prwin->UserPort
305 || (glob->prwin->UserPort->mp_SigTask != ThisProcess()))
306 glob->shareidcmp = FALSE;
307
308 if (!(glob->scr = GetReqScreen (&glob->newreqwin, &glob->prwin, glob->scr, pubname)))
309 return (ReqExit (glob, FALSE));
310
311 spacing = rtGetVScreenSize (glob->scr, (ULONG *)&scrwidth, (ULONG *)&scrheight);
312
313 if (fontattr)
314 {
315 if (!(glob->reqfont = OpenFont (fontattr))) fontattr = NULL;
316 }
317
318 if (!fontattr) fontattr = glob->scr->Font;
319
320 if (!(glob->visinfo = GetVisualInfoA (glob->scr, NULL))
321 || !(glob->drinfo = GetScreenDrawInfo (glob->scr)))
322 return (ReqExit (glob, FALSE));
323
324 itxt.ITextFont = fontattr;
325 glob->boldattr = *fontattr;
326 glob->boldattr.ta_Style |= FSF_BOLD;
327 glob->fontht = fontattr->ta_YSize;
328 scrfontht = glob->scr->Font->ta_YSize;
329 leftoff = glob->scr->WBorLeft + 4;
330 rightoff = glob->scr->WBorRight + 4;
331
332 /* Calculate the width, height and position of the requester window. We try
333 to position the window as close to the mouse as possible (default). */
334
335 if (mode != IS_EZREQUEST)
336 {
337 if (nogadfmt)
338 {
339 underscore = '_';
340 gadfmt = GetStr (glob->catalog, MSG_OK_BAR_CANCEL);
341 if (mode <= ENTER_PASSWORD)
342 {
343 gadfmt = GetStr (glob->catalog, MSG_LAST_BAR_CANCEL);
344 if (!stringbuff[0] || mode == CHECK_PASSWORD)
345 while (*gadfmt && (*gadfmt++ != '|'));
346 }
347 }
348 glob->reqflags &= GETSTRINGLONG_FLAGS;
349 glob->reqflags |= EZREQF_NORETURNKEY;
350 }
351 else
352 {
353 glob->reqflags &= EZREQ_FLAGS;
354 glob->textfmt = stringbuff;
355 textfmtargs = (APTR)(IPTR)maxlen;
356 }
357
358 if (glob->textfmt)
359 {
360 /* Calculate size of buffer needed to expand format string, also
361 calculates number of lines in format string.
362 (APTR)maxlen points to the arguments! */
363
364 DofmtCount (glob->textfmt, textfmtargs, &glob->bodyfmt.numlines, DOFMT_COUNTNEWLINES);
365 glob->numlines = glob->bodyfmt.numlines;
366
367 if (!(glob->buff = (char **)AllocVec (glob->bodyfmt.bufflen
368 + ((sizeof(APTR) * 2) + (int)sizeof (struct IntuiText)) * glob->numlines, MEMF_PUBLIC)))
369 return (ReqExit (glob, FALSE));
370
371 /* expand format string and fill in table of pointers to each line */
372 glob->lenptr = (ULONG *)&glob->buff[glob->numlines];
373 bodyitxt = (struct IntuiText *)&glob->lenptr[glob->numlines];
374 ptr = (char *)&bodyitxt[glob->numlines];
375 Dofmt (ptr, glob->textfmt, textfmtargs);
376
377 if (mode == IS_EZREQUEST) gadfmtargs = textfmtargs;
378 FillNewLineTable (glob->buff, ptr);
379
380 /* Calculate width on screen of each line, remember largest */
381 for (i = 0, glob->len = 0; i < glob->numlines; i++)
382 {
383 itxt.IText = (UBYTE *)glob->buff[i];
384 j = glob->lenptr[i] = IntuiTextLength (&itxt);
385 if (j > glob->len) glob->len = j;
386 }
387 glob->width = glob->len + 70;
388 }
389
390 nogadgets = (gadfmt == NULL);
391
392 if (!nogadgets)
393 {
394 DofmtCount (gadfmt, gadfmtargs, &glob->gadfmtbuff.numlines, DOFMT_COUNTBARS);
395 gadlines = glob->gadfmtbuff.numlines;
396
397 glob->gadfmtbuff.bufflen += (sizeof(APTR) * 3) * gadlines;
398 if (!(glob->gadstrbuff = (char **)AllocVec (glob->gadfmtbuff.bufflen, MEMF_PUBLIC)))
399 return (ReqExit (glob, FALSE));
400
401 gadlenptr = (ULONG *)&glob->gadstrbuff[gadlines];
402 gadposptr = (ULONG *)&gadlenptr[gadlines];
403 ptr = (char *)&gadposptr[gadlines];
404 Dofmt (ptr, gadfmt, gadfmtargs);
405 FillBarTable (glob->gadstrbuff, ptr);
406
407 for (i = 0; i < gadlines; i++)
408 {
409 UBYTE underscorechar = (UBYTE)underscore;
410
411 gadlenptr[i] = myTextLength (glob->gadstrbuff[i], fontattr, &underscorechar, NULL, 0) + 24;
412 gadlen += gadlenptr[i];
413 }
414
415 } /* if (!nogadgets) */
416
417 /* else gadlines = 0; is always NULL (cleared at beginning) */
418
419 if (!title)
420 {
421 if (gadlines >= 2) title = GetStr (glob->catalog, MSG_REQUEST);
422 else title = GetStr (glob->catalog, MSG_INFORMATION);
423 }
424
425 glob->newreqwin.Title = (UBYTE *)title;
426
427 top = (glob->scr->WBorTop + scrfontht + 1) + spacing;
428 val = glob->fontht + 6;
429
430
431 if (mode != IS_EZREQUEST)
432 {
433 #if 1
434 /* AROS FIX: calc. was wrong because scr->WBorTop not taken into account. */
435
436 height = glob->scr->WBorTop + 13 + glob->fontht * 2 + scrfontht + spacing * 3 + glob->scr->WBorBottom;
437
438 #else
439 height = 15 + glob->fontht * 2 + scrfontht + spacing * 3 + glob->scr->WBorBottom;
440 #endif
441
442 if (glob->textfmt)
443 {
444 glob->texttop = top;
445 glob->textht = (glob->fontht + 1) * glob->numlines + (glob->nowinbackfill ? 0 : 15);
446 height += spacing + glob->textht;
447 top += spacing + glob->textht;
448 }
449
450 if (glob->minmax)
451 {
452 height += glob->fontht + spacing + 4;
453 if (min == 0x80000000)
454 DofmtArgs (glob->minmaxstr, GetStr (glob->catalog, MSG_MAX_FMT), max);
455 else if (max != 0x7FFFFFFF)
456 DofmtArgs (glob->minmaxstr, GetStr (glob->catalog, MSG_MIN_MAX_FMT), min, max);
457 else
458 DofmtArgs (glob->minmaxstr, GetStr (glob->catalog, MSG_MIN_FMT), min);
459 itxt.IText = glob->minmaxstr;
460 glob->minmaxlen = IntuiTextLength (&itxt) + 8;
461 if (glob->minmaxlen + 16 > glob->width) glob->width = glob->minmaxlen + 16;
462 }
463
464 if (glob->width < 180) glob->width = 180;
465
466 glob->strgadtop = top;
467 glob->strgadht = val;
468
469 } /* if (mode != IS_EZREQUEST) */
470 else
471 {
472 glob->texttop = top;
473 glob->textht = (glob->fontht + 1) * glob->numlines + 15;
474 #if 1
475 /* AROS FIX: Did not take scr->WBorTop into account */
476 height = spacing * 2 + scrfontht + glob->textht + 1 + glob->scr->WBorTop + glob->scr->WBorBottom;
477 #else
478 height = spacing * 2 + scrfontht + glob->textht + 3 + glob->scr->WBorBottom;
479 #endif
480 if (!nogadgets) height += spacing + val;
481 }
482
483 i = gadlen + gadlines * 16;
484 if (i > glob->width) glob->width = i;
485
486 if (glob->width > scrwidth) glob->width = scrwidth;
487 if (height > scrheight) height = scrheight;
488
489 /* Create gadgets */
490 gad = (struct Gadget *)CreateContext (&glob->buttoninfo.glist);
491 ng.ng_VisualInfo = glob->visinfo;
492 ng.ng_TextAttr = fontattr;
493 ng.ng_TopEdge = height - spacing - val - glob->scr->WBorBottom;
494 ng.ng_Height = val;
495 ng.ng_GadgetID = 1;
496
497 if (!nogadgets)
498 {
499 nlen = gadlenptr[gadlines-1];
500
501 if (gadlines > 1)
502 {
503 npos = glob->width - (nlen + rightoff);
504 rtSpread (gadposptr, gadlenptr, gadlen,
505 leftoff, glob->width - rightoff, gadlines);
506 }
507 else
508 {
509 gadposptr[0] = npos = (glob->width - nlen) / 2;
510 retnum = 1;
511 }
512
513 for (i = 0; i < gadlines; i++)
514 {
515 ng.ng_GadgetID++;
516 if (i == gadlines - 1) ng.ng_GadgetID = 1;
517
518 ng.ng_LeftEdge = gadposptr[i];
519 ng.ng_Width = gadlenptr[i];
520 ng.ng_GadgetText = glob->gadstrbuff[i];
521 ng.ng_TextAttr = fontattr;
522
523 if ((val = (ng.ng_GadgetID == retnum
524 && !(glob->reqflags & EZREQF_NORETURNKEY))))
525 ng.ng_TextAttr = &glob->boldattr;
526
527 gad = my_CreateButtonGadget (gad, underscore, &ng);
528
529 if (val) glob->retgad = gad;
530 if (!i) glob->yesgad = gad;
531 }
532 glob->nogad = gad;
533
534 } /* if (!nogadgets) */
535 else
536 {
537 /* glob->nogad = NULL; */
538 npos = glob->width / 2;
539 nlen = 0;
540 }
541
542 if (!glob->nowinbackfill && glob->texttop)
543 {
544 ng.ng_LeftEdge = leftoff;
545 ng.ng_TopEdge = glob->texttop;
546 ng.ng_Width = glob->width - (leftoff + rightoff);
547 ng.ng_Height = glob->textht;
548 ng.ng_GadgetText = NULL;
549
550 gad = myCreateGadget (TEXT_KIND, gad, &ng, GTTX_Border, TRUE, TAG_END);
551 }
552
553 glob->newreqwin.Width = glob->width;
554 glob->newreqwin.Height = height;
555 reqpos = CheckReqPos (reqpos, RTPREF_OTHERREQ, &glob->newreqwin);
556
557 if (reqpos == REQPOS_POINTER)
558 {
559 glob->newreqwin.LeftEdge = -npos - nlen / 2;
560 glob->newreqwin.TopEdge = -height + glob->fontht / 2 + 5 + spacing;
561 }
562
563 rtSetReqPosition (reqpos, &glob->newreqwin, glob->scr, glob->prwin);
564
565 ng.ng_Height = glob->fontht + 6;
566
567 if (mode != IS_EZREQUEST)
568 {
569 glob->minmaxtop = ng.ng_TopEdge = height - 2 * (glob->fontht + spacing) - 10 - glob->scr->WBorBottom;
570 ng.ng_GadgetText = NULL;
571
572 if (glob->minmax)
573 {
574 ng.ng_LeftEdge = glob->minmaxleft = (glob->width - glob->minmaxlen) / 2;
575 ng.ng_Width = glob->minmaxlen;
576 ng.ng_Height -= 2;
577
578 gad = myCreateGadget (TEXT_KIND, gad, &ng,
579 GTTX_Text, (IPTR) glob->minmaxstr, GTTX_Border, TRUE, TAG_END);
580 ng.ng_Height += 2;
581 }
582
583 ng.ng_LeftEdge = leftoff;
584 ng.ng_Width = glob->width - (leftoff + rightoff);
585 ng.ng_TopEdge = glob->strgadtop;
586 ng.ng_GadgetID = STRINGGADID;
587
588 if (mode <= ENTER_PASSWORD)
589 {
590 stringbuff = NULL;
591 maxlen = 16;
592 }
593
594 if (mode < ENTER_NUMBER)
595 gad = my_CreateStringGadget (gad, &ng, maxlen, stringbuff);
596 else
597 gad = my_CreateIntegerGadget (gad, &ng, 16, *value, GACT_STRINGCENTER);
598
599 glob->strgad = gad;
600 if (gad)
601 {
602 glob->strinfo = (struct StringInfo *)glob->strgad->SpecialInfo;
603 glob->arg.buffer = glob->strinfo->Buffer;
604
605 if (mode == ENTER_NUMBER && !showdef) *glob->arg.buffer = 0;
606 if (invisible) {
607 glob->strinfo->Extension->Pens[0] = 0;
608 glob->strinfo->Extension->Pens[1] = 0;
609 glob->strinfo->Extension->ActivePens[0] = 0;
610 glob->strinfo->Extension->ActivePens[1] = 0;
611 }
612 }
613
614 /* we do this here because there seems to be a bug in GO! :-( */
615 gad = glob->strgad;
616
617 } /* if (mode != IS_EZREQUEST) */
618
619 img = &glob->headimg;
620 if (!glob->nowinbackfill)
621 {
622 val = glob->scr->WBorTop + glob->scr->Font->ta_YSize + 1;
623 img = CreateRectImage (glob, img, glob->scr->WBorLeft, val,
624 glob->width - glob->scr->WBorLeft - glob->scr->WBorRight,
625 height - val - glob->scr->WBorBottom,
626 SHINEPEN, BACKGROUNDPEN);
627
628 if (glob->minmax)
629 img = CreateRectImage (glob, img, glob->minmaxleft, ++glob->minmaxtop,
630 glob->minmaxlen, glob->fontht + 2,
631 BACKGROUNDPEN, BACKGROUNDPEN);
632 if (glob->texttop)
633 img = CreateRectImage (glob, img, leftoff + 1, glob->texttop + 1,
634 glob->width - (leftoff + rightoff + 2),
635 glob->textht - 2, BACKGROUNDPEN, BACKGROUNDPEN);
636
637 if (glob->strgadtop)
638 img = CreateRectImage (glob, img, leftoff + 2, glob->strgadtop,
639 glob->width - (leftoff + rightoff + 4), glob->strgadht,
640 BACKGROUNDPEN, BACKGROUNDPEN);
641 }
642
643 if (glob->textfmt)
644 {
645 /* build list of intuitexts (line by line) */
646 itxt.FrontPen = glob->drinfo->dri_Pens[
647 (glob->reqflags & GSREQF_HIGHLIGHTTEXT) ? HIGHLIGHTTEXTPEN : TEXTPEN];
648 itxt.TopEdge = glob->texttop + (glob->nowinbackfill ? 0 : 8);
649 val = (glob->width - glob->len) / 2;
650 for (i = 0, j = 0; i < glob->numlines; i++, j += glob->fontht + 1)
651 {
652 bodyitxt[i] = itxt;
653 if (glob->reqflags & EZREQF_CENTERTEXT)
654 val = (glob->width - glob->lenptr[i]) / 2;
655 if (val < 35) val = 35;
656 bodyitxt[i].LeftEdge = val;
657 bodyitxt[i].TopEdge += j;
658 bodyitxt[i].IText = glob->buff[i];
659
660 if (i) bodyitxt[i-1].NextText = &bodyitxt[i];
661 }
662
663 } /* if (glob->textfmt) */
664
665 if (glob->headimg.NextImage || glob->textfmt)
666 {
667 ng.ng_LeftEdge = ng.ng_TopEdge = ng.ng_Width = ng.ng_Height = 0;
668 ng.ng_GadgetText = NULL;
669
670 gad = myCreateGadget (GENERIC_KIND, gad, &ng, TAG_END);
671 if (gad)
672 {
673 gad->GadgetType |= GTYP_BOOLGADGET;
674 #ifdef __AROS__
675 /* FIXME: A workaround here for AROS, because this would overpaint many gadgets */
676 /* This seems to rely somehow on how GadTools refreshes gadgets
677 (the order etc.).
678
679 This gadget is at the end of the gadget list and in GadgetRender
680 contains a linked list of fillrectclass images for the requester
681 background and textbox backgrounds. */
682
683 gad->Flags |= GFLG_GADGHNONE;
684 #else
685 gad->Flags |= GFLG_GADGIMAGE|GFLG_GADGHNONE;
686 gad->GadgetRender = (APTR)glob->headimg.NextImage;
687 #endif
688 gad->GadgetText = &bodyitxt[0];
689
690 }
691 }
692
693 if (!gad || (!glob->nowinbackfill && !img)) return (ReqExit (glob, FALSE));
694
695 glob->newreqwin.IDCMPFlags = glob->shareidcmp ? 0 : idcmpflags;
696
697
698 /* Now open the message window. */
699 if (!(glob->reqwin = OpenWindowBF (&glob->newreqwin,
700 &glob->backfillhook,
701 glob->drinfo->dri_Pens,
702 NULL,
703 NULL,
704 !glob->nowinbackfill)))
705 return (ReqExit (glob, FALSE));
706
707 if (glob->shareidcmp)
708 {
709 glob->reqwin->UserPort = glob->prwin->UserPort;
710 ModifyIDCMP (glob->reqwin, idcmpflags);
711 }
712
713 AddGList (glob->reqwin, glob->buttoninfo.glist, -1, -1, NULL);
714 RefreshGadgets (glob->buttoninfo.glist, glob->reqwin, NULL);
715 GT_RefreshWindow (glob->reqwin, NULL);
716 glob->winlock = DoLockWindow (glob->prwin, glob->lockwindow, NULL, TRUE);
717 DoWaitPointer (glob->prwin, glob->waitpointer, TRUE);
718
719 glob->frontscr = IntuitionBase->FirstScreen;
720 DoScreenToFront (glob->scr, glob->noscreenpop, TRUE);
721
722 glob->buttoninfo.win = glob->reqwin;
723 glob->min = min;
724 glob->max = max;
725 glob->pubscr = (glob->newreqwin.Type == PUBLICSCREEN);
726
727 /* fill in RealHandlerInfo */
728 glob->func = (IPTR (*)())myReqHandler;
729 glob->WaitMask = (1 << glob->reqwin->UserPort->mp_SigBit);
730 glob->DoNotWait = TRUE;
731
732 if (reqhandler) return (CALL_HANDLER);
733
734 return (LoopReqHandler ((struct rtHandlerInfo *)glob));
735 }
736
737 /****************************************************************************************/
738
739 static struct Image * REGARGS CreateRectImage (Req_GlobData *glob,
740 struct Image *previmg, int x, int y, int w, int h, int pen, int bgpen)
741 {
742 struct Image *img;
743
744 if (!previmg) return (NULL);
745
746 img = NewObject (NULL, "fillrectclass",
747 IA_Left, x, IA_Top, y,
748 IA_Width, w, IA_Height, h,
749 IA_FGPen, glob->drinfo->dri_Pens[pen],
750 IA_BGPen, glob->drinfo->dri_Pens[bgpen],
751 IA_Mode, JAM2,
752 (pen == SHINEPEN) ? IA_APattern : TAG_END, (IPTR) pattern,
753 IA_APatSize, 1,
754 TAG_END);
755
756 previmg->NextImage = img;
757
758 return (img);
759 }
760
761 /****************************************************************************************/
762
763 #define RETURN_KEY 13
764 #define ESC_KEY 27
765 #define SHIFT_KEY 0x60
766 #define F1_KEY 0x50
767 #define F10_KEY 0x59
768
769 #define QUALS_CONSIDERED ( IEQUALIFIER_LCOMMAND | IEQUALIFIER_RCOMMAND | IEQUALIFIER_LSHIFT | \
770 IEQUALIFIER_RSHIFT | IEQUALIFIER_LALT | IEQUALIFIER_RALT | \
771 IEQUALIFIER_CONTROL )
772
773 /****************************************************************************************/
774
775 static IPTR ASM SAVEDS myReqHandler (
776 REGPARAM(a1, Req_GlobData *, glob),
777 REGPARAM(d0, ULONG, sigs),
778 REGPARAM(a0, struct TagItem *, taglist))
779 {
780 struct Gadget *tmpgad, *selgad;
781 struct TagItem *tag;
782 struct TagItem *tstate = taglist;
783 struct IntuiMessage *msg;
784 ULONG class, tagdata;
785 UWORD code, qual;
786 int gadid, val, leftamiga, doactgad, copystr;
787 char *str, key;
788
789 /* uncomment if sigs is no longer ignored */
790 //if (glob->DoNotWait) sigs = 0;
791
792 doactgad = (glob->mode != IS_EZREQUEST) && !(glob->buttoninfo.lastcode);
793
794 /* parse tags */
795 while ((tag = NextTagItem (&tstate)))
796 {
797 tagdata = tag->ti_Data;
798 if (tag->ti_Tag > RT_TagBase)
799 {
800 switch (tag->ti_Tag)
801 {
802 case RTRH_EndRequest:
803 glob->arg.retcode = tagdata;
804 return (ReqExit (glob, tagdata));
805 }
806 }
807 }
808
809 while ((msg = GetWin_GT_Msg (glob->reqwin, glob->imsghook, glob->reqinfo)))
810 {
811 class = msg->Class;
812 code = msg->Code;
813 qual = msg->Qualifier;
814
815 gadid = 0;
816 if (class == IDCMP_RAWKEY && glob->nogad)
817 {
818 /* Convert key to ASCII and check if a gadget pops up */
819 if (!(gadid = CheckGadgetKey (code, qual, &key, &glob->buttoninfo)))
820 {
821 if (!glob->buttoninfo.lastcode && !(qual & IEQUALIFIER_REPEAT))
822 {
823 leftamiga = (qual & IEQUALIFIER_LCOMMAND);
824 selgad = NULL;
825
826 if (key == RETURN_KEY) selgad = glob->retgad;
827 if (key == ESC_KEY) selgad = glob->nogad;
828
829 if (!(glob->reqflags & EZREQF_LAMIGAQUAL) || leftamiga)
830 {
831 switch (key)
832 {
833 case 'V': if (!leftamiga) break;
834 case 'Y': selgad = glob->yesgad; break;
835 case 'B': if (!leftamiga) break;
836 case 'N': case 'R': selgad = glob->nogad; break;
837 }
838 }
839
840 if ( ( glob->fkeys ) &&
841 !(qual & QUALS_CONSIDERED) &&
842 (code >= F1_KEY) && (code <= F10_KEY) &&
843 (code - F1_KEY < glob->gadfmtbuff.numlines))
844 {
845 LONG i = code - F1_KEY;
846
847 selgad = glob->yesgad;
848
849 while( i && selgad )
850 {
851 selgad = selgad->NextGadget;
852 --i;
853 }
854 }
855
856 if (selgad) my_DownGadget (selgad, code, &glob->buttoninfo);
857
858 } /* if (!glob->buttoninfo.lastcode && !(qual & IEQUALIFIER_REPEAT)) */
859
860 } /* if (!(gadid = CheckGadgetKey (code, qual, &key, &glob->buttoninfo))) */
861
862 } /* if (class == IDCMP_RAWKEY && glob->nogad) */
863
864 tmpgad = (struct Gadget *)msg->IAddress;
865 Reply_GT_Msg (msg);
866
867 if (class == IDCMP_REFRESHWINDOW)
868 {
869 GT_BeginRefresh (glob->reqwin);
870 GT_EndRefresh (glob->reqwin, TRUE);
871 continue;
872 }
873
874 if (class == IDCMP_GADGETUP || gadid)
875 {
876 if (!gadid) gadid = tmpgad->GadgetID;
877
878 if (gadid < STRINGGADID)
879 {
880 if (gadid == 1 || glob->mode == IS_EZREQUEST
881 || glob->mode == ENTER_PASSWORD)
882 {
883 glob->arg.retcode = gadid - 1;
884 return (ReqExit (glob, FALSE));
885 }
886 }
887
888 if (glob->mode == IS_EZREQUEST) continue;
889
890 if (glob->mode > ENTER_PASSWORD)
891 {
892 if (gadid == STRINGGADID)
893 {
894 if (code == 1)
895 {
896 doactgad = FALSE;
897 continue;
898 }
899
900 my_SelectGadget ((*glob->arg.buffer || glob->allowempty)
901 ? glob->yesgad : glob->nogad, glob->reqwin);
902 ShortDelay();
903 }
904
905 if (glob->mode == ENTER_STRING)
906 {
907 copystr = (glob->arg.buffer[0] != 0);
908 glob->arg.retcode = copystr;
909 if (glob->allowempty) copystr = glob->arg.retcode = TRUE;
910 if (gadid > 2 && gadid < STRINGGADID) glob->arg.retcode = gadid - 1;
911 return (ReqExit (glob, copystr));
912 }
913
914 /* glob->mode == ENTER_NUMBER */
915 if (glob->arg.buffer[0])
916 {
917 val = glob->strinfo->LongInt;
918 str = NULL;
919 if (val < glob->min) str = GetStr (glob->catalog, MSG_TOO_SMALL);
920 else if (val > glob->max) str = GetStr (glob->catalog, MSG_TOO_BIG);
921 if (str)
922 {
923 if (gadid == STRINGGADID)
924 my_SelectGadget (glob->yesgad, glob->reqwin);
925 SetWinTitleFlash (glob->reqwin, str);
926 continue;
927 }
928 *glob->value = val;
929 }
930
931 glob->arg.retcode = (glob->arg.buffer[0] != 0);
932 if (gadid > 2 && gadid < STRINGGADID) glob->arg.retcode = gadid - 1;
933
934 return (ReqExit (glob, FALSE));
935
936 } /* if (glob->mode > ENTER_PASSWORD) */
937
938 if (gadid == STRINGGADID)
939 {
940 if (code == 1)
941 {
942 doactgad = FALSE;
943 continue;
944 }
945 }
946
947 if (glob->arg.buffer[0])
948 {
949 if ((str = ((PWCALLBACKFUNPTR)
950 glob->value)(glob->mode, glob->checksum, &glob->arg)))
951 {
952 /* Check if return was 'Please verify', MAJOR HACK !! */
953 if (*str != 'P') DisplayBeep (glob->scr);
954 SetWindowTitles (glob->reqwin, str, (char *)~0);
955 my_SetStringGadget (glob->reqwin, glob->strgad, "");
956 }
957 else return (ReqExit (glob, glob->arg.retcode));
958 }
959
960 } /* if (glob->mode > ENTER_PASSWORD) */
961 else if (class & glob->idcmp)
962 {
963 glob->arg.retcode = glob->idcmp;
964 return (ReqExit (glob, FALSE));
965 }
966
967 } /* while ((msg = GetWin_GT_Msg (glob->reqwin, glob->imsghook, glob->reqinfo))) */
968
969 if (doactgad)
970 {
971 ActivateGadget (glob->strgad, glob->reqwin, NULL);
972 }
973
974 glob->DoNotWait = FALSE;
975
976 return (CALL_HANDLER);
977 }
978
979 /****************************************************************************************/
980
981 static ULONG REGARGS ReqExit (Req_GlobData *glob, int cpystr)
982 {
983 ULONG ret = glob->arg.retcode;
984 struct Image *img, *img2;
985
986 if (cpystr && glob->mode <= ENTER_STRING)
987 strcpy (glob->stringbuff, glob->arg.buffer);
988
989 DoScreenToFront (glob->frontscr, glob->noscreenpop, FALSE);
990
991 if (glob->reqwin)
992 {
993 DoLockWindow (glob->prwin, glob->lockwindow, glob->winlock, FALSE);
994 DoWaitPointer (glob->prwin, glob->waitpointer, FALSE);
995 DoCloseWindow (glob->reqwin, glob->shareidcmp);
996 }
997
998 RT_CloseCatalog (glob->catalog);
999 my_FreeGadgets (glob->buttoninfo.glist);
1000 img = glob->headimg.NextImage;
1001
1002 while (img)
1003 {
1004 img2 = img->NextImage;
1005 DisposeObject (img);
1006 img = img2;
1007 }
1008
1009 FreeVec (glob->buff);
1010 FreeVec (glob->gadstrbuff);
1011
1012 if (glob->drinfo) FreeScreenDrawInfo (glob->scr, glob->drinfo);
1013
1014 FreeVisualInfo (glob->visinfo);
1015
1016 if (glob->pubscr) UnlockPubScreen (NULL, glob->scr);
1017 if (glob->reqfont) CloseFont (glob->reqfont);
1018
1019 FreeVec (glob);
1020
1021 return (ret);
1022 }
1023
1024 /****************************************************************************************/
Mirror of AROS' svn.