?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
minor simplification.
[AROS.git] / workbench / libs / asl / fontreqhooks.c
blob68c64d4680d1a40a0863d54edb1176e164cb5fb8
1 /*
2 Copyright © 1995-2003, The AROS Development Team. All rights reserved.
3 $Id$
4
5 Font requester specific code.
6 */
7
8
9 #include <proto/exec.h>
10 #include <proto/dos.h>
11 #include <proto/utility.h>
12 #include <proto/intuition.h>
13 #include <proto/graphics.h>
14 #include <proto/gadtools.h>
15 #include <exec/memory.h>
16 #include <dos/dos.h>
17 #include <intuition/screens.h>
18 #include <intuition/icclass.h>
19 #include <intuition/imageclass.h>
20 #include <graphics/gfx.h>
21 #include <devices/rawkeycodes.h>
22 #include <libraries/gadtools.h>
23 #include <workbench/startup.h>
24 #include <string.h>
25 #include <stdio.h>
26
27 #include "asl_intern.h"
28 #include "fontreqhooks.h"
29 #include "fontreqsupport.h"
30 #include "layout.h"
31
32 #if USE_SHARED_COOLIMAGES
33 #include <libraries/coolimages.h>
34 #include <proto/coolimages.h>
35 #else
36 #include "coolimages.h"
37 #endif
38
39 #define CATCOMP_NUMBERS
40 #include "strings.h"
41
42 #define SDEBUG 0
43 #define DEBUG 0
44
45 #include <aros/debug.h>
46
47 /*****************************************************************************************/
48
49 STATIC BOOL FOGadInit(struct LayoutData *, struct AslBase_intern *);
50 STATIC VOID FOWindowOpened(struct LayoutData *, struct AslBase_intern *);
51 STATIC BOOL FOGadLayout(struct LayoutData *, struct AslBase_intern *);
52 STATIC VOID FOGadCleanup(struct LayoutData *, struct AslBase_intern *);
53 STATIC ULONG FOHandleEvents(struct LayoutData *, struct AslBase_intern *);
54 STATIC ULONG FOGetSelectedFont(struct LayoutData *, struct AslBase_intern *AslBase);
55
56 /*****************************************************************************************/
57
58 #define ID_BUTOK ID_MAINBUTTON_OK
59 #define ID_BUTCANCEL ID_MAINBUTTON_CANCEL
60
61 #define ID_NAMELISTVIEW 1
62 #define ID_SIZELISTVIEW 2
63 #define ID_NAMESTRING 3
64 #define ID_SIZESTRING 4
65 #define ID_PREVIEW 5
66 #define ID_DRAWMODE 6
67 #define ID_STYLE 7
68 #define ID_FRONTPEN 8
69 #define ID_BACKPEN 9
70
71 #undef NUMBUTS
72 #define NUMBUTS 2L
73
74 #define FONTPREVIEWHEIGHT 40
75
76 #define CLASS_ASLBASE ((struct AslBase_intern *)cl->cl_UserData)
77 #define HOOK_ASLBASE ((struct AslBase_intern *)hook->h_Data)
78
79 #define AslBase HOOK_ASLBASE
80
81 /*****************************************************************************************/
82
83 AROS_UFH3(IPTR, SizeListviewRenderFunc,
84 AROS_UFHA(struct Hook *, hook, A0),
85 AROS_UFHA(struct Node *, node, A2),
86 AROS_UFHA(struct ASLLVDrawMsg *, msg, A1)
87 )
88 {
89 AROS_USERFUNC_INIT
90
91 IPTR retval;
92
93 if (msg->lvdm_MethodID == LV_DRAW)
94 {
95 struct DrawInfo *dri = msg->lvdm_DrawInfo;
96 struct RastPort *rp = msg->lvdm_RastPort;
97
98 WORD min_x = msg->lvdm_Bounds.MinX;
99 WORD min_y = msg->lvdm_Bounds.MinY;
100 WORD max_x = msg->lvdm_Bounds.MaxX;
101 WORD max_y = msg->lvdm_Bounds.MaxY;
102
103 UWORD erasepen = BACKGROUNDPEN;
104 UWORD textpen = TEXTPEN;
105
106 SetDrMd(rp, JAM1);
107
108
109 switch (msg->lvdm_State)
110 {
111 case ASLLVR_SELECTED:
112 erasepen = FILLPEN;
113 textpen = FILLTEXTPEN;
114
115 /* Fall through */
116
117 case ASLLVR_NORMAL:
118 {
119 struct TextExtent te;
120 WORD numfit;
121 UBYTE s[10];
122
123 SetAPen(rp, dri->dri_Pens[erasepen]);
124 RectFill(rp, min_x, min_y, max_x, max_y);
125
126 if (node)
127 {
128 sprintf(s, "%ld", (long)node->ln_Name);
129
130 numfit = TextFit(rp,
131 s,
132 strlen(s),
133 &te,
134 NULL,
135 1,
136 max_x - min_x + 1 - BORDERLVITEMSPACINGX * 2,
137 max_y - min_y + 1);
138
139 SetAPen(rp, dri->dri_Pens[textpen]);
140
141 /* Render text */
142 Move(rp, min_x + BORDERLVITEMSPACINGX,
143 min_y + BORDERLVITEMSPACINGY + rp->Font->tf_Baseline);
144 Text(rp, s, numfit);
145 }
146
147 } break;
148 }
149
150 retval = ASLLVCB_OK;
151 }
152 else
153 {
154 retval = ASLLVCB_UNKNOWN;
155 }
156
157 return retval;
158
159 AROS_USERFUNC_EXIT
160 }
161
162 /*****************************************************************************************/
163
164 #undef AslBase
165
166 /*****************************************************************************************/
167
168 AROS_UFH3(VOID, FOTagHook,
169 AROS_UFHA(struct Hook *, hook, A0),
170 AROS_UFHA(struct ParseTagArgs *, pta, A2),
171 AROS_UFHA(struct AslBase_intern *, AslBase, A1)
172 )
173 {
174 AROS_USERFUNC_INIT
175
176 struct TagItem *tag;
177 struct TagItem *tstate;
178 struct IntFontReq *iforeq;
179
180 EnterFunc(bug("FOTagHook(hook=%p, pta=%p)\n", hook, pta));
181
182 iforeq = (struct IntFontReq *)pta->pta_IntReq;
183
184 tstate = pta->pta_Tags;
185 while ((tag = NextTagItem(&tstate)) != NULL)
186 {
187 IPTR tidata = tag->ti_Data;
188
189 switch (tag->ti_Tag)
190 {
191 case ASLFO_InitialName:
192 if (tidata)
193 iforeq->ifo_TextAttr.ta_Name = (STRPTR)tidata;
194 break;
195
196 case ASLFO_InitialSize:
197 iforeq->ifo_TextAttr.ta_YSize = (UWORD)tidata;
198 break;
199
200 case ASLFO_InitialStyle:
201 iforeq->ifo_TextAttr.ta_Style = (UBYTE)tidata;
202 break;
203
204 case ASLFO_InitialFlags:
205 iforeq->ifo_TextAttr.ta_Flags = (UBYTE)tidata;
206 break;
207
208 case ASLFO_InitialFrontPen:
209 iforeq->ifo_FrontPen = (UBYTE)tidata;
210 break;
211
212 case ASLFO_InitialBackPen:
213 iforeq->ifo_BackPen = (UBYTE)tidata;
214 break;
215
216 case ASLFO_InitialDrawMode:
217 iforeq->ifo_DrawMode = (UBYTE)tidata;
218 break;
219
220 case ASLFO_Flags:
221 iforeq->ifo_Flags = (UBYTE)tidata;
222 break;
223
224 case ASLFO_DoFrontPen:
225 if (tidata)
226 iforeq->ifo_Flags |= FOF_DOFRONTPEN;
227 else
228 iforeq->ifo_Flags &= ~FOF_DOFRONTPEN;
229 break;
230
231 case ASLFO_DoBackPen:
232 if (tidata)
233 iforeq->ifo_Flags |= FOF_DOBACKPEN;
234 else
235 iforeq->ifo_Flags &= ~FOF_DOBACKPEN;
236 break;
237
238 case ASLFO_DoStyle:
239 if (tidata)
240 iforeq->ifo_Flags |= FOF_DOSTYLE;
241 else
242 iforeq->ifo_Flags &= ~FOF_DOSTYLE;
243 break;
244
245 case ASLFO_DoDrawMode:
246 if (tidata)
247 iforeq->ifo_Flags |= FOF_DODRAWMODE;
248 else
249 iforeq->ifo_Flags &= ~FOF_DODRAWMODE;
250 break;
251
252 case ASLFO_FixedWidthOnly:
253 if (tidata)
254 iforeq->ifo_Flags |= FOF_FIXEDWIDTHONLY;
255 else
256 iforeq->ifo_Flags &= ~FOF_FIXEDWIDTHONLY;
257 break;
258
259 case ASLFO_MinHeight:
260 iforeq->ifo_MinHeight = (UWORD)tidata;
261 break;
262
263 case ASLFO_MaxHeight:
264 iforeq->ifo_MaxHeight = (UWORD)tidata;
265 break;
266
267 case ASLFO_FilterFunc:
268 iforeq->ifo_FilterFunc = (struct Hook *)tidata;
269 break;
270
271 case ASLFO_HookFunc:
272 iforeq->ifo_HookFunc = (APTR)tidata;
273 break;
274
275 case ASLFO_MaxFrontPen:
276 iforeq->ifo_MaxFrontPen = (UWORD)tidata;
277 break;
278
279 case ASLFO_MaxBackPen:
280 iforeq->ifo_MaxBackPen = (UWORD)tidata;
281 break;
282
283 case ASLFO_ModeList:
284 iforeq->ifo_ModeList = (STRPTR *)tidata;
285 break;
286
287 case ASLFO_FrontPens:
288 iforeq->ifo_FrontPens = (UBYTE *)tidata;
289 break;
290
291 case ASLFO_BackPens:
292 iforeq->ifo_BackPens = (UBYTE *)tidata;
293 break;
294
295 case ASLFO_SampleText:
296 iforeq->ifo_SampleText = (STRPTR)tidata;
297 break;
298
299 default:
300 break;
301
302 } /* switch (tag->ti_Tag) */
303
304 } /* while ((tag = NextTagItem(&tstate)) != 0) */
305
306 ReturnVoid("FOTagHook");
307
308 AROS_USERFUNC_EXIT
309 }
310
311 /*****************************************************************************************/
312
313 AROS_UFH3(ULONG, FOGadgetryHook,
314 AROS_UFHA(struct Hook *, hook, A0),
315 AROS_UFHA(struct LayoutData *, ld, A2),
316 AROS_UFHA(struct AslBase_intern *, AslBase, A1)
317 )
318 {
319 AROS_USERFUNC_INIT
320
321 ULONG retval;
322
323 switch (ld->ld_Command)
324 {
325 case LDCMD_INIT:
326 retval = (ULONG)FOGadInit(ld, ASLB(AslBase));
327 break;
328
329 case LDCMD_WINDOWOPENED:
330 FOWindowOpened(ld, ASLB(AslBase));
331 retval = GHRET_OK;
332 break;
333
334 case LDCMD_LAYOUT:
335 retval = (ULONG)FOGadLayout(ld, ASLB(AslBase));
336 break;
337
338 case LDCMD_HANDLEEVENTS:
339 retval = (ULONG)FOHandleEvents(ld, ASLB(AslBase));
340 break;
341
342 case LDCMD_CLEANUP:
343 FOGadCleanup(ld, ASLB(AslBase));
344 retval = GHRET_OK;
345 break;
346
347 default:
348 retval = GHRET_FAIL;
349 break;
350 }
351
352 return (retval);
353
354 AROS_USERFUNC_EXIT
355 }
356
357 /*****************************************************************************************/
358
359 struct ButtonInfo
360 {
361 WORD gadid;
362 STRPTR text;
363 LONG deftextid;
364 #if USE_SHARED_COOLIMAGES
365 ULONG coolid;
366 Object **objvar;
367 const struct CoolImage *coolimage;
368 #else
369 const struct CoolImage *coolimage;
370 Object **objvar;
371 #endif
372 };
373
374 /*****************************************************************************************/
375
376 STATIC BOOL FOGadInit(struct LayoutData *ld, struct AslBase_intern *AslBase)
377 {
378 struct FOUserData *udata = ld->ld_UserData;
379 struct IntFontReq *iforeq = (struct IntFontReq *)ld->ld_IntReq;
380 STRPTR str[6];
381 #if USE_SHARED_COOLIMAGES
382 struct ButtonInfo bi[NUMBUTS] =
383 {
384 { ID_BUTOK , GetIR(iforeq)->ir_PositiveText , MSG_FONTREQ_POSITIVE_GAD, COOL_USEIMAGE_ID , &udata->OKBut },
385 { ID_BUTCANCEL , GetIR(iforeq)->ir_NegativeText , MSG_FONTREQ_NEGATIVE_GAD, COOL_CANCELIMAGE_ID , &udata->CancelBut }
386 };
387 #else
388 struct ButtonInfo bi[NUMBUTS] =
389 {
390 { ID_BUTOK , GetIR(iforeq)->ir_PositiveText , MSG_FONTREQ_POSITIVE_GAD, &cool_useimage , &udata->OKBut },
391 { ID_BUTCANCEL , GetIR(iforeq)->ir_NegativeText , MSG_FONTREQ_NEGATIVE_GAD, &cool_cancelimage , &udata->CancelBut }
392 };
393 #endif
394 Object *gad;
395 LONG error;
396 WORD gadrows, x, y, w, h, i, y2;
397 WORD sizelvwidth, labelwidth = 0, maxgadcolwidth = 0;
398
399 NEWLIST(&udata->NameListviewList);
400
401 udata->SizeListviewRenderHook.h_Entry = (APTR)AROS_ASMSYMNAME(SizeListviewRenderFunc);
402 udata->SizeListviewRenderHook.h_SubEntry = NULL;
403 udata->SizeListviewRenderHook.h_Data = AslBase;
404
405 udata->StringEditHook.h_Entry = (APTR)AROS_ASMSYMNAME(StringEditFunc);
406 udata->StringEditHook.h_SubEntry = NULL;
407 udata->StringEditHook.h_Data = AslBase;
408
409 FOGetFonts(ld, AslBase);
410
411 error = ERROR_NO_FREE_STORE;
412
413 /* calc. min. size */
414
415 w = 0;
416 for(i = 0; i < NUMBUTS; i++)
417 {
418 if(!bi[i].text) bi[i].text = GetString(bi[i].deftextid, GetIR(iforeq)->ir_Catalog, AslBase);
419
420 x = TextLength(&ld->ld_DummyRP, bi[i].text, strlen(bi[i].text));
421
422 #if FOREQ_COOL_BUTTONS
423 #if USE_SHARED_COOLIMAGES
424 if (CoolImagesBase)
425 {
426 bi[i].coolimage = (const struct CoolImage *)COOL_ObtainImageA(bi[i].coolid, NULL);
427 }
428
429 if (CoolImagesBase)
430 #endif
431 if (ld->ld_TrueColor)
432 {
433 x += IMAGEBUTTONEXTRAWIDTH + bi[i].coolimage->width;
434 }
435 #endif
436
437 if (x > w) w = x;
438 }
439
440 udata->ButWidth = w + BUTTONEXTRAWIDTH;
441
442 ld->ld_ButWidth = udata->ButWidth;
443 ld->ld_NumButtons = 4;
444
445 #if FOREQ_COOL_BUTTONS
446
447 #if USE_SHARED_COOLIMAGES
448 if (CoolImagesBase)
449 {
450 #endif
451 y = BUTTONEXTRAHEIGHT + ld->ld_Font->tf_YSize;
452 if (ld->ld_TrueColor)
453 {
454 y2 = IMAGEBUTTONEXTRAHEIGHT + DEF_COOLIMAGEHEIGHT;
455 } else {
456 y2 = 0;
457 }
458 udata->ButHeight = (y > y2) ? y : y2;
459 #if USE_SHARED_COOLIMAGES
460 }
461 else
462 {
463 udata->ButHeight = BUTTONEXTRAHEIGHT + ld->ld_Font->tf_YSize;
464 }
465 #endif
466
467 #else
468 udata->ButHeight = BUTTONEXTRAHEIGHT + ld->ld_Font->tf_YSize;
469 #endif
470
471 gadrows = 2; /* button row + string gadgets under listviews */
472 if (iforeq->ifo_Flags & FOF_DODRAWMODE) gadrows++;
473 if (iforeq->ifo_Flags & FOF_DOSTYLE) gadrows++;
474 if (iforeq->ifo_Flags & (FOF_DOFRONTPEN | FOF_DOBACKPEN)) gadrows++;
475
476 ld->ld_MinWidth = OUTERSPACINGX * 2 +
477 GADGETSPACINGX * 1 +
478 udata->ButWidth * NUMBUTS;
479
480 ld->ld_MinHeight = OUTERSPACINGY * 2 +
481 (GADGETSPACINGY + udata->ButHeight) * gadrows +
482 BORDERLVSPACINGY * 2 +
483 (ld->ld_Font->tf_YSize + BORDERLVITEMSPACINGY * 2) * FOREQ_MIN_VISIBLELINES +
484 FONTPREVIEWHEIGHT + GADGETSPACINGY -
485 GADGETSPACINGY; /* because the string gadgets are attached to listview gadgets */
486
487 /* make listview gadgets */
488
489 sizelvwidth = PROPSIZE +
490 FOREQ_VISIBILE_SIZE_CHARS * ld->ld_Font->tf_XSize +
491 BORDERLVSPACINGX * 2 +
492 BORDERLVITEMSPACINGX * 2;
493
494 x = ld->ld_WBorLeft + OUTERSPACINGX;
495 y = ld->ld_WBorTop + OUTERSPACINGY;
496 w = -ld->ld_WBorRight - ld->ld_WBorLeft - OUTERSPACINGX * 2 - PROPSIZE - GADGETSPACINGX - sizelvwidth;
497 h = -ld->ld_WBorBottom - ld->ld_WBorTop - OUTERSPACINGY * 2 -
498 udata->ButHeight * gadrows -
499 GADGETSPACINGY * gadrows -
500 (FONTPREVIEWHEIGHT + GADGETSPACINGY) +
501 GADGETSPACINGY; /* because the string gadgets are attached to listview gadgets */
502
503 {
504 struct TagItem lv_tags[] =
505 {
506 {GA_Left , x },
507 {GA_Top , y },
508 {GA_RelWidth , w },
509 {GA_RelHeight , h },
510 {GA_UserData , (IPTR)ld },
511 {GA_ID , ID_NAMELISTVIEW },
512 {GA_RelVerify , TRUE },
513 {ASLLV_Labels , (IPTR)&udata->NameListviewList },
514 {TAG_IGNORE , 0 },
515 {TAG_IGNORE , (IPTR)&udata->SizeListviewRenderHook },
516 {ASLLV_Font , (IPTR)ld->ld_Font },
517 {TAG_DONE }
518 };
519
520 udata->NameListview = gad = NewObjectA(AslBase->asllistviewclass, NULL, lv_tags);
521 if (!gad) goto failure;
522
523 lv_tags[0].ti_Tag = GA_RelRight;
524 lv_tags[0].ti_Data = -ld->ld_WBorRight - OUTERSPACINGX - sizelvwidth + 1;
525 lv_tags[2].ti_Tag = GA_Width;
526 lv_tags[2].ti_Data = sizelvwidth - PROPSIZE;
527 lv_tags[5].ti_Data = ID_SIZELISTVIEW;
528 lv_tags[7].ti_Data = 0;
529 lv_tags[8].ti_Tag = GA_Previous;
530 lv_tags[8].ti_Data = (IPTR)gad;
531 lv_tags[9].ti_Tag = ASLLV_CallBack;
532
533 udata->SizeListview = gad = NewObjectA(AslBase->asllistviewclass, NULL, lv_tags);
534 if (!gad) goto failure;
535
536 }
537
538 /* make scroller gadgets for listviews */
539
540 x = -ld->ld_WBorRight - OUTERSPACINGX - PROPSIZE - sizelvwidth - GADGETSPACINGX + 1;
541 y = ld->ld_WBorTop + OUTERSPACINGY;
542 w = PROPSIZE;
543 h = -ld->ld_WBorBottom - ld->ld_WBorTop - OUTERSPACINGY * 2 -
544 udata->ButHeight * gadrows -
545 GADGETSPACINGY * gadrows -
546 (FONTPREVIEWHEIGHT + GADGETSPACINGY) +
547 GADGETSPACINGY;
548 {
549 struct TagItem scroller_tags[] =
550 {
551 {GA_RelRight , x },
552 {GA_Top , y },
553 {GA_Width , w },
554 {GA_RelHeight , h },
555 {GA_ID , ID_NAMELISTVIEW },
556 {PGA_NewLook , TRUE },
557 {PGA_Borderless , TRUE },
558 {PGA_Freedom , FREEVERT },
559 {PGA_Top , 0 },
560 {PGA_Total , 20 },
561 {PGA_Visible , 1 },
562 {GA_Previous , (IPTR)gad },
563 {TAG_DONE }
564 };
565
566 if (!makescrollergadget(&udata->NameScrollGad, ld, scroller_tags, AslBase)) goto failure;
567 gad = udata->NameScrollGad.arrow2;
568
569 scroller_tags[0].ti_Data = x + sizelvwidth + GADGETSPACINGX;
570 scroller_tags[1].ti_Data = y;
571 scroller_tags[2].ti_Data = w;
572 scroller_tags[3].ti_Data = h;
573 scroller_tags[4].ti_Data = ID_SIZELISTVIEW;
574 scroller_tags[11].ti_Data = (IPTR)gad;
575
576 if (!makescrollergadget(&udata->SizeScrollGad, ld, scroller_tags, AslBase)) goto failure;
577 gad = udata->SizeScrollGad.arrow2;
578
579 }
580
581 connectscrollerandlistview(&udata->NameScrollGad, udata->NameListview, AslBase);
582 connectscrollerandlistview(&udata->SizeScrollGad, udata->SizeListview, AslBase);
583
584 /* make preview gadget */
585
586 x = ld->ld_WBorLeft + OUTERSPACINGX;
587 y = -ld->ld_WBorBottom - OUTERSPACINGY - udata->ButHeight -
588 GADGETSPACINGY - FONTPREVIEWHEIGHT;
589 w = -ld->ld_WBorRight - ld->ld_WBorLeft - OUTERSPACINGX * 2;
590
591 {
592 struct TagItem preview_tags[] =
593 {
594 {GA_Left , x },
595 {GA_RelBottom , y },
596 {GA_RelWidth , w },
597 {GA_Height , FONTPREVIEWHEIGHT },
598 {GA_Previous , (IPTR)gad },
599 {GA_ID , ID_PREVIEW },
600 {ASLFP_SampleText , (IPTR)iforeq->ifo_SampleText },
601 {ASLFP_APen , iforeq->ifo_FrontPen },
602 {ASLFP_BPen , iforeq->ifo_BackPen },
603 {TAG_DONE }
604 };
605
606 udata->Preview = gad = NewObjectA(AslBase->aslfontpreviewclass, NULL, preview_tags);
607 if (!gad) goto failure;
608 }
609
610 /* make string gadgets */
611
612 x = ld->ld_WBorLeft + OUTERSPACINGX;
613 y = -ld->ld_WBorBottom - OUTERSPACINGY - udata->ButHeight -
614 (udata->ButHeight + GADGETSPACINGY) * (gadrows - 1) -
615 (FONTPREVIEWHEIGHT + GADGETSPACINGY) + 1;
616
617 w = -ld->ld_WBorRight - ld->ld_WBorLeft - OUTERSPACINGX * 2 - GADGETSPACINGX - sizelvwidth;
618
619 {
620 struct TagItem string_tags[] =
621 {
622 {GA_Left , x },
623 {GA_RelBottom , y },
624 {GA_RelWidth , w },
625 {GA_Height , udata->ButHeight },
626 {GA_Previous , (IPTR)gad },
627 {STRINGA_TextVal , (IPTR)"" },
628 {STRINGA_MaxChars , MAXASLFONTNAME },
629 {STRINGA_EditHook , (IPTR)&udata->StringEditHook },
630 {GA_ID , ID_NAMESTRING },
631 {GA_RelVerify , TRUE },
632 {GA_UserData , (IPTR)ld },
633 {GA_TabCycle , TRUE },
634 {STRINGA_Font , (IPTR)ld->ld_Font },
635 {TAG_DONE }
636 };
637
638 udata->NameString = gad = NewObjectA(AslBase->aslstringclass, NULL, string_tags);
639 if (!gad) goto failure;
640
641 string_tags[0].ti_Tag = GA_RelRight;
642 string_tags[0].ti_Data = -ld->ld_WBorRight - OUTERSPACINGX - sizelvwidth + 1;
643 string_tags[2].ti_Tag = GA_Width;
644 string_tags[2].ti_Data = sizelvwidth;
645 string_tags[4].ti_Data = (IPTR)gad;
646 string_tags[5].ti_Tag = STRINGA_LongVal;
647 string_tags[5].ti_Data = iforeq->ifo_TextAttr.ta_YSize;
648 string_tags[6].ti_Data = 6;
649 string_tags[8].ti_Data = ID_SIZESTRING;
650
651 udata->SizeString = gad = NewObjectA(AslBase->aslstringclass, NULL, string_tags);
652 if (!gad) goto failure;
653
654 }
655
656 /* make button row */
657
658 y = -ld->ld_WBorBottom - OUTERSPACINGY - udata->ButHeight + 1;
659
660 {
661 struct TagItem button_tags[] =
662 {
663 {GA_Text , 0 },
664 {GA_Previous , 0 },
665 {GA_ID , 0 },
666 #if FOREQ_COOL_BUTTONS
667 {ASLBT_CoolImage , 0 },
668 #else
669 {TAG_IGNORE , 0 },
670 #endif
671 {GA_UserData , (IPTR)ld },
672 {GA_Left , 0 },
673 {GA_RelBottom , y },
674 {GA_Width , udata->ButWidth },
675 {GA_Height , udata->ButHeight },
676 {GA_RelVerify , TRUE },
677 {GA_Image , 0 }, /* means we want a frame */
678 {TAG_DONE }
679 };
680
681 for(i = 0; i < NUMBUTS; i++)
682 {
683 button_tags[0].ti_Data = (IPTR)bi[i].text;
684 button_tags[1].ti_Data = (IPTR)gad;
685 button_tags[2].ti_Data = bi[i].gadid;
686 #if USE_SHARED_COOLIMAGES
687 if (CoolImagesBase == NULL) button_tags[3].ti_Tag = TAG_IGNORE;
688 #endif
689 button_tags[3].ti_Data = (IPTR)bi[i].coolimage;
690
691 *(bi[i].objvar) = gad = NewObjectA(AslBase->aslbuttonclass, NULL, button_tags);
692 if (!gad) goto failure;
693 }
694
695 }
696
697 /* make labels */
698
699 i = 0;
700
701 x = ld->ld_WBorLeft + OUTERSPACINGX;
702 y = -ld->ld_WBorBottom - OUTERSPACINGY - udata->ButHeight -
703 (udata->ButHeight + GADGETSPACINGY) * (gadrows - 2) -
704 (FONTPREVIEWHEIGHT + GADGETSPACINGY) + 1;
705
706 if (iforeq->ifo_Flags & (FOF_DODRAWMODE | FOF_DOSTYLE | FOF_DOFRONTPEN | FOF_DOBACKPEN))
707 {
708 #define FSET(x) ((iforeq->ifo_Flags & x) ? TRUE : FALSE)
709
710 struct LabelInfo
711 {
712 BOOL doit;
713 char *text;
714 Object **objvar;
715 } li [] =
716 {
717 {FSET(FOF_DOSTYLE) , (STRPTR)MSG_FONTREQ_STYLE_LABEL , &udata->StyleLabel },
718 {FALSE , (STRPTR)MSG_FONTREQ_COLOR_LABEL_FG, &udata->ColorLabel },
719 {FSET(FOF_DODRAWMODE) , (STRPTR)MSG_FONTREQ_MODE_LABEL , &udata->DrawModeLabel }
720 };
721
722 #undef FSET
723
724 struct TagItem label_tags[] =
725 {
726 {GA_Left , 0 },
727 {GA_RelBottom , y },
728 {GA_Width , 0 },
729 {GA_Height , udata->ButHeight },
730 {GA_Text , 0 },
731 {GA_Previous , (IPTR)gad },
732 {GA_UserData , (IPTR)ld },
733 {GA_Disabled , TRUE },
734 {TAG_DONE }
735 };
736 WORD i2;
737
738 if (iforeq->ifo_Flags & (FOF_DOFRONTPEN | FOF_DOBACKPEN))
739 {
740 li[1].doit = TRUE;
741
742 switch(iforeq->ifo_Flags & (FOF_DOFRONTPEN | FOF_DOBACKPEN))
743 {
744 case FOF_DOFRONTPEN:
745 break;
746
747 case FOF_DOBACKPEN:
748 li[1].text = (STRPTR)MSG_FONTREQ_COLOR_LABEL_BG;
749 break;
750
751 case FOF_DOFRONTPEN | FOF_DOBACKPEN:
752 li[1].text = (STRPTR)MSG_FONTREQ_COLOR_LABEL_FGBG;
753 break;
754 }
755
756 } /* if (iforeq->ifo_Flags & (FOF_DOFRONTPEN | FOF_DOBACKPEN)) */
757 for(i = 0, i2 = 0; i < 3; i++)
758 {
759 if (li[i].doit)
760 {
761 if ((i == 2) && (iforeq->ifo_ModeList))
762 {
763 li[i].text = iforeq->ifo_ModeList[0];
764 }
765 else
766 {
767 li[i].text = GetString((IPTR)li[i].text, GetIR(iforeq)->ir_Catalog, AslBase);
768 }
769 str[i2++] = li[i].text;
770 }
771 }
772
773 w = labelwidth = BiggestTextLength(str, i2, &(ld->ld_DummyRP), AslBase);
774
775 for(i = 0; i < 3;i++)
776 {
777 if (!li[i].doit) continue;
778
779 label_tags[2].ti_Data = TextLength(&ld->ld_DummyRP, li[i].text, strlen(li[i].text));
780 label_tags[0].ti_Data = x + w - label_tags[2].ti_Data;
781 label_tags[4].ti_Data = (IPTR)li[i].text;
782 label_tags[5].ti_Data = (IPTR)gad;
783
784 *(li[i].objvar) = gad = NewObjectA(AslBase->aslbuttonclass, NULL, label_tags);
785 if (!gad) goto failure;
786
787 y += udata->ButHeight + GADGETSPACINGY;
788 label_tags[1].ti_Data = y;
789 }
790
791 y = -ld->ld_WBorBottom - OUTERSPACINGY - udata->ButHeight -
792 (udata->ButHeight + GADGETSPACINGY) * (gadrows - 2) -
793 (FONTPREVIEWHEIGHT + GADGETSPACINGY) + 1;
794
795 x = ld->ld_WBorLeft + OUTERSPACINGX + w + LABELSPACINGX;
796
797 /* Make Style gadget */
798
799 if (iforeq->ifo_Flags & FOF_DOSTYLE)
800 {
801 STRPTR stylestrings[3];
802
803 struct TagItem style_tags[] =
804 {
805 {GA_Previous , (IPTR)gad },
806 {GA_Left , x },
807 {GA_RelBottom , y },
808 {GA_Width , 0 },
809 {GA_Height , udata->ButHeight },
810 {GA_RelVerify , TRUE },
811 {GA_UserData , (IPTR)ld },
812 {GA_ID , ID_STYLE },
813 {ASLFS_LabelArray , (IPTR)stylestrings },
814 {ASLFS_Style , iforeq->ifo_TextAttr.ta_Style },
815 {TAG_DONE }
816 };
817
818 stylestrings[0] = GetString(MSG_FONTREQ_STYLE_BOLD, GetIR(iforeq)->ir_Catalog, AslBase);
819 stylestrings[1] = GetString(MSG_FONTREQ_STYLE_ITALIC, GetIR(iforeq)->ir_Catalog, AslBase);
820 stylestrings[2] = GetString(MSG_FONTREQ_STYLE_UNDERLINED, GetIR(iforeq)->ir_Catalog, AslBase);
821
822 w = BiggestTextLength(stylestrings, 3, &(ld->ld_DummyRP), AslBase);
823 w *= 2;
824 w *= 3;
825
826 style_tags[3].ti_Data = w;
827
828 if (w > maxgadcolwidth) maxgadcolwidth = w;
829
830 udata->StyleGadget = gad = NewObjectA(AslBase->aslfontstyleclass, NULL, style_tags);
831 if (!gad) goto failure;
832
833 y += udata->ButHeight + GADGETSPACINGY;
834
835 }
836
837 w = udata->ButHeight * 12 / 10 + 19; /* CYCLEIMAGEWIDTH = 19 */
838
839 /* Make FrontPen gadget */
840
841 if (iforeq->ifo_Flags & FOF_DOFRONTPEN)
842 {
843 struct TagItem cp_tags[] =
844 {
845 {GA_Previous , (IPTR)gad },
846 {GA_Left , x },
847 {GA_RelBottom , y },
848 {GA_Width , w },
849 {GA_Height , udata->ButHeight },
850 {GA_RelVerify , TRUE },
851 {GA_UserData , (IPTR)ld },
852 {GA_ID , ID_FRONTPEN },
853 {ASLCP_Color , iforeq->ifo_FrontPen },
854 {ASLCP_ColorTable , (IPTR)iforeq->ifo_FrontPens },
855 {ASLCP_NumColors , iforeq->ifo_MaxFrontPen },
856 {TAG_DONE }
857
858 };
859
860 udata->FGColorGadget = gad = NewObjectA(AslBase->aslcolorpickerclass, NULL, cp_tags);
861 if (!gad) goto failure;
862
863 x += w + GADGETSPACINGX;
864 }
865
866 /* Make BackPen gadget */
867
868 if (iforeq->ifo_Flags & FOF_DOBACKPEN)
869 {
870 struct TagItem cp_tags[] =
871 {
872 {GA_Previous , (IPTR)gad },
873 {GA_Left , x },
874 {GA_RelBottom , y },
875 {GA_Width , w },
876 {GA_Height , udata->ButHeight },
877 {GA_RelVerify , TRUE },
878 {GA_UserData , (IPTR)ld },
879 {GA_ID , ID_BACKPEN },
880 {ASLCP_Color , iforeq->ifo_BackPen },
881 {ASLCP_ColorTable , (IPTR)iforeq->ifo_BackPens },
882 {ASLCP_NumColors , iforeq->ifo_MaxBackPen },
883 {TAG_DONE }
884
885 };
886
887 udata->BGColorGadget = gad = NewObjectA(AslBase->aslcolorpickerclass, NULL, cp_tags);
888 if (!gad) goto failure;
889
890 }
891
892 if (iforeq->ifo_Flags & (FOF_DOFRONTPEN | FOF_DOBACKPEN))
893 {
894 if ((iforeq->ifo_Flags & (FOF_DOFRONTPEN | FOF_DOBACKPEN)) == (FOF_DOFRONTPEN | FOF_DOBACKPEN))
895 {
896 w += GADGETSPACINGX + w;
897 }
898
899 if (w > maxgadcolwidth) maxgadcolwidth = w;
900
901 y += udata->ButHeight + GADGETSPACINGY;
902 }
903
904
905 /* Make DrawMode gadget */
906
907 x = ld->ld_WBorLeft + OUTERSPACINGX + labelwidth + LABELSPACINGX;
908
909 w = -ld->ld_WBorLeft - ld->ld_WBorRight - OUTERSPACINGX * 2 -
910 labelwidth - LABELSPACINGX;
911
912
913 if (iforeq->ifo_Flags & FOF_DODRAWMODE)
914 {
915 struct TagItem cycle_tags[] =
916 {
917 {GA_Previous , (IPTR)gad },
918 {GA_Left , x },
919 {GA_RelBottom , y },
920 {GA_RelWidth , w },
921 {GA_Height , udata->ButHeight },
922 {GA_RelVerify , TRUE },
923 {GA_UserData , (IPTR)ld },
924 {GA_ID , ID_DRAWMODE },
925 {ASLCY_Labels , 0 },
926 {ASLCY_Active , iforeq->ifo_DrawMode },
927 {ASLCY_Font , (IPTR)ld->ld_Font },
928 {TAG_DONE }
929
930 };
931 static LONG labelids[] =
932 {
933 MSG_FONTREQ_MODE_TEXT,
934 MSG_FONTREQ_MODE_TEXTANDFIELD,
935 MSG_FONTREQ_MODE_COMPLEMENT,
936 };
937 STRPTR *labels;
938
939
940 if (iforeq->ifo_ModeList)
941 {
942 labels = &iforeq->ifo_ModeList[1];
943 }
944 else
945 {
946 labels = (STRPTR *)&iforeq->ifo_DrawModeJAM1Text;
947
948 for(i = 0; i < 3; i++)
949 {
950 labels[i] = GetString(labelids[i], GetIR(iforeq)->ir_Catalog, AslBase);
951 }
952 }
953
954 cycle_tags[8].ti_Data = (IPTR)labels;
955
956 i = CYCLEEXTRAWIDTH + BiggestTextLength(labels,
957 0x7FFF,
958 &(ld->ld_DummyRP),
959 AslBase);
960 if (i > maxgadcolwidth) maxgadcolwidth = i;
961
962 udata->DrawModeGadget = gad = NewObjectA(AslBase->aslcycleclass, NULL, cycle_tags);
963 if (!gad) goto failure;
964
965 y += udata->ButHeight + GADGETSPACINGY;
966
967 } /* if (iforeq->ifo_Flags & FOF_DODRAWMODE) */
968
969 } /* if (iforeq->ifo_Flags & (FOF_DODRAWMODE | FOF_DOSTYLE | FOF_DOFRONTPEN | FOF_DOBACKPEN)) */
970
971 #if AVOID_FLICKER
972 {
973 struct TagItem eraser_tags[] =
974 {
975 {GA_Previous, (IPTR)gad},
976 {TAG_DONE}
977 };
978
979 udata->EraserGadget = gad = NewObjectA(AslBase->asleraserclass, NULL, eraser_tags);
980 /* Doesn't matter if this failed */
981 }
982 #endif
983
984 w = OUTERSPACINGX + labelwidth + LABELSPACINGX + maxgadcolwidth + OUTERSPACINGX;
985 if (w > ld->ld_MinWidth) ld->ld_MinWidth = w;
986
987 ld->ld_GList = (struct Gadget *)udata->NameListview;
988
989 /* Menus */
990 {
991 struct NewMenu nm[] =
992 {
993 {NM_TITLE, (STRPTR)MSG_FONTREQ_MEN_CONTROL },
994 {NM_ITEM, (STRPTR)MSG_FONTREQ_MEN_CONTROL_LASTFONT , 0, 0, 0, (APTR)FOMEN_LASTFONT },
995 {NM_ITEM, (STRPTR)MSG_FONTREQ_MEN_CONTROL_NEXTFONT , 0, 0, 0, (APTR)FOMEN_NEXTFONT },
996 {NM_ITEM, NM_BARLABEL },
997 {NM_ITEM, (STRPTR)MSG_FONTREQ_MEN_CONTROL_RESTORE , 0, 0, 0, (APTR)FOMEN_RESTORE },
998 {NM_ITEM, (STRPTR)MSG_FONTREQ_MEN_CONTROL_RESCAN , 0, 0, 0, (APTR)FOMEN_RESCAN },
999 {NM_ITEM, NM_BARLABEL },
1000 {NM_ITEM, (STRPTR)MSG_FONTREQ_MEN_CONTROL_OK , 0, 0, 0, (APTR)FOMEN_OK },
1001 {NM_ITEM, (STRPTR)MSG_FONTREQ_MEN_CONTROL_CANCEL , 0, 0, 0, (APTR)FOMEN_CANCEL },
1002 {NM_END }
1003 };
1004
1005 struct TagItem menu_tags[] =
1006 {
1007 {GTMN_NewLookMenus , TRUE },
1008 {GTMN_TextAttr , (IPTR)GetIR(iforeq)->ir_TextAttr },
1009 {TAG_DONE }
1010 };
1011
1012 if (menu_tags[1].ti_Data == 0) menu_tags[1].ti_Tag = TAG_IGNORE;
1013
1014 LocalizeMenus(nm, GetIR(iforeq)->ir_Catalog, AslBase);
1015
1016 /* Don't fail, if menus cannot be created/layouted, because a requester
1017 without menus is still better than no requester at all */
1018
1019 if ((ld->ld_Menu = CreateMenusA(nm, NULL)))
1020 {
1021 if (!LayoutMenusA(ld->ld_Menu, ld->ld_VisualInfo, menu_tags))
1022 {
1023 FreeMenus(ld->ld_Menu);ld->ld_Menu = NULL;
1024 }
1025 }
1026 }
1027
1028 FORestore(ld, iforeq->ifo_TextAttr.ta_Name, iforeq->ifo_TextAttr.ta_YSize, AslBase);
1029
1030 SetIoErr(0);
1031 ReturnBool ("FOGadInit", TRUE);
1032
1033 failure:
1034 SetIoErr(error);
1035
1036 D(bug("failure\n"));
1037
1038 FOGadCleanup(ld, ASLB(AslBase));
1039
1040 ReturnBool ("FOGadInit", FALSE);
1041
1042 }
1043
1044 /*****************************************************************************************/
1045
1046 STATIC VOID FOWindowOpened(struct LayoutData *ld, struct AslBase_intern *AslBase)
1047 {
1048 // struct IntFontReq *iforeq = (struct IntFontReq *)ld->ld_IntReq;
1049 }
1050
1051 /*****************************************************************************************/
1052
1053 STATIC BOOL FOGadLayout(struct LayoutData *ld, struct AslBase_intern *AslBase)
1054 {
1055 ReturnBool ("FOGadLayout", TRUE );
1056 }
1057
1058 /*****************************************************************************************/
1059
1060 STATIC ULONG FOHandleEvents(struct LayoutData *ld, struct AslBase_intern *AslBase)
1061 {
1062 struct IntuiMessage *imsg = ld->ld_Event;
1063 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
1064 struct IntFontReq *iforeq = (struct IntFontReq *)ld->ld_IntReq;
1065 WORD gadid;
1066 ULONG retval = GHRET_OK;
1067
1068 EnterFunc(bug("FOHandleEvents: Class: %d\n", imsg->Class));
1069
1070 switch (imsg->Class)
1071 {
1072 case IDCMP_CLOSEWINDOW:
1073 retval = FALSE;
1074 break;
1075
1076 case IDCMP_RAWKEY:
1077 switch (imsg->Code)
1078 {
1079 case CURSORUP:
1080 FOChangeActiveFont(ld, -1, imsg->Qualifier, FALSE, AslBase);
1081 break;
1082
1083 case RAWKEY_PAGEUP:
1084 FOChangeActiveFont(ld, -1, IEQUALIFIER_LSHIFT, FALSE, AslBase);
1085 break;
1086
1087 case RAWKEY_HOME:
1088 FOChangeActiveFont(ld, -1, IEQUALIFIER_LALT, FALSE, AslBase);
1089 break;
1090
1091 case RAWKEY_NM_WHEEL_UP:
1092 FOChangeActiveFont(ld, -3, imsg->Qualifier, FALSE, AslBase);
1093 break;
1094
1095 case CURSORDOWN:
1096 FOChangeActiveFont(ld, 1, imsg->Qualifier, FALSE, AslBase);
1097 break;
1098
1099 case RAWKEY_PAGEDOWN:
1100 FOChangeActiveFont(ld, 1, IEQUALIFIER_LSHIFT, FALSE, AslBase);
1101 break;
1102
1103 case RAWKEY_END:
1104 FOChangeActiveFont(ld, 1, IEQUALIFIER_LALT, FALSE, AslBase);
1105 break;
1106
1107 case RAWKEY_NM_WHEEL_DOWN:
1108 FOChangeActiveFont(ld, 3, imsg->Qualifier, FALSE, AslBase);
1109 break;
1110 }
1111 break;
1112
1113 case IDCMP_VANILLAKEY:
1114 switch(imsg->Code)
1115 {
1116 case 27:
1117 retval = FALSE;
1118 break;
1119 }
1120 break;
1121
1122 case IDCMP_GADGETUP:
1123 gadid = ((struct Gadget *)imsg->IAddress)->GadgetID;
1124
1125 D(bug("GADGETUP! gadgetid=%d code=%d\n", gadid, imsg->Code));
1126
1127 switch (gadid)
1128 {
1129 case ID_BUTCANCEL:
1130 retval = FALSE;
1131 break;
1132
1133 case ID_BUTOK:
1134 retval = FOGetSelectedFont(ld, AslBase);
1135 break;
1136
1137 case ID_NAMELISTVIEW:
1138 {
1139 struct ASLLVFontReqNode *fontnode;
1140 IPTR active;
1141 IPTR size;
1142
1143 GetAttr(ASLLV_Active, udata->NameListview, &active);
1144 GetAttr(STRINGA_LongVal, udata->SizeString, &size);
1145
1146 if ((fontnode = (struct ASLLVFontReqNode *)FindListNode(&udata->NameListviewList, (WORD)active)))
1147 {
1148 FOActivateFont(ld, active, (LONG)size, AslBase);
1149
1150 if (imsg->Code) /* TRUE if double clicked */
1151 {
1152 retval = FOGetSelectedFont(ld, AslBase);
1153 }
1154 }
1155 ActivateGadget((struct Gadget *)udata->NameString, ld->ld_Window, NULL);
1156 }
1157 break;
1158
1159 case ID_SIZELISTVIEW:
1160 if (udata->ActiveFont)
1161 {
1162 struct Node *node;
1163 IPTR active;
1164
1165 GetAttr(ASLLV_Active, udata->SizeListview, &active);
1166
1167 if ((node = FindListNode(&udata->ActiveFont->SizeList, (WORD)active)))
1168 {
1169 FOSetSizeString((IPTR)node->ln_Name, ld, AslBase);
1170 FOUpdatePreview(ld, AslBase);
1171
1172 if (imsg->Code) /* TRUE if double clicked */
1173 {
1174 retval = FOGetSelectedFont(ld, AslBase);
1175 }
1176 }
1177 ActivateGadget((struct Gadget *)udata->SizeString, ld->ld_Window, NULL);
1178 }
1179 break;
1180
1181 case ID_NAMESTRING:
1182 if (imsg->Code == STRINGCODE_CURSORUP)
1183 {
1184 FOChangeActiveFont(ld, -1, imsg->Qualifier, TRUE, AslBase);
1185 ActivateGadget((struct Gadget *)udata->NameString, ld->ld_Window, NULL);
1186 break;
1187 }
1188 else if (imsg->Code == STRINGCODE_CURSORDOWN)
1189 {
1190 FOChangeActiveFont(ld, 1, imsg->Qualifier, TRUE, AslBase);
1191 ActivateGadget((struct Gadget *)udata->NameString, ld->ld_Window, NULL);
1192 break;
1193 }
1194 else if ((imsg->Code == 0) || (imsg->Code == 9))
1195 {
1196 FOUpdatePreview(ld, AslBase);
1197 break;
1198 }
1199 break;
1200
1201 case ID_SIZESTRING:
1202 if (imsg->Code == STRINGCODE_CURSORUP)
1203 {
1204 FOChangeActiveSize(ld, -1, imsg->Qualifier, AslBase);
1205 ActivateGadget((struct Gadget *)udata->SizeString, ld->ld_Window, NULL);
1206 break;
1207 }
1208 else if (imsg->Code == STRINGCODE_CURSORDOWN)
1209 {
1210 FOChangeActiveSize(ld, 1, imsg->Qualifier, AslBase);
1211 ActivateGadget((struct Gadget *)udata->SizeString, ld->ld_Window, NULL);
1212 break;
1213 }
1214 else if ((imsg->Code == 0) || (imsg->Code == 9))
1215 {
1216 IPTR val;
1217 LONG size;
1218
1219 GetAttr(STRINGA_LongVal, udata->SizeString, (IPTR *)&val);
1220 size = (LONG)val;
1221
1222 if ((size < iforeq->ifo_MinHeight) || (size > iforeq->ifo_MaxHeight))
1223 {
1224 if (size < iforeq->ifo_MinHeight) size = iforeq->ifo_MinHeight;
1225 if (size > iforeq->ifo_MaxHeight) size = iforeq->ifo_MaxHeight;
1226 FOSetSizeString(size, ld, AslBase);
1227 }
1228
1229 FOActivateSize(ld, -size, AslBase);
1230
1231 break;
1232 }
1233 break;
1234
1235 case ID_STYLE:
1236 case ID_FRONTPEN:
1237 case ID_BACKPEN:
1238 FOUpdatePreview(ld, AslBase);
1239 break;
1240
1241 } /* switch (gadget ID) */
1242
1243 break; /* case IDCMP_GADGETUP: */
1244
1245 case IDCMP_MENUPICK:
1246 if (ld->ld_Menu)
1247 {
1248 UWORD men = imsg->Code;
1249
1250 while(men != MENUNULL)
1251 {
1252 struct MenuItem *item;
1253
1254 if ((item = ItemAddress(ld->ld_Menu, men)))
1255 {
1256 switch((IPTR)GTMENUITEM_USERDATA(item))
1257 {
1258 /* Control menu */
1259
1260 case FOMEN_LASTFONT:
1261 FOChangeActiveFont(ld, -1, 0, FALSE, AslBase);
1262 break;
1263
1264 case FOMEN_NEXTFONT:
1265 FOChangeActiveFont(ld, 1, 0, FALSE, AslBase);
1266 break;
1267
1268 case FOMEN_RESTORE:
1269 FORestore(ld, iforeq->ifo_TextAttr.ta_Name, iforeq->ifo_TextAttr.ta_YSize, AslBase);
1270 break;
1271
1272 case FOMEN_RESCAN:
1273 FOGetFonts(ld, AslBase);
1274 break;
1275
1276 case FOMEN_OK:
1277 retval = FOGetSelectedFont(ld, AslBase);
1278 break;
1279
1280 case FOMEN_CANCEL:
1281 retval = FALSE;
1282 break;
1283
1284 } /* switch id */
1285
1286 men = item->NextSelect;
1287 } /* if ((item = ItemAddress(ld->ld_Menu, men))) */
1288 else
1289 {
1290 men = MENUNULL;
1291 }
1292
1293 } /* while(men != MENUNULL) */
1294
1295 } /* if (ld->ld_Menu) */
1296
1297 break; /* case IDCMP_MENUPICK: */
1298
1299 } /* switch (imsg->Class) */
1300
1301 ReturnInt ("FOHandleEvents", ULONG, retval);
1302 }
1303
1304 /*****************************************************************************************/
1305
1306 STATIC VOID FOGadCleanup(struct LayoutData *ld, struct AslBase_intern *AslBase)
1307 {
1308 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
1309 struct FontRequester *req = (struct FontRequester *)ld->ld_Req;
1310 struct IntReq *intreq = ld->ld_IntReq;
1311 // struct IntFontReq *iforeq = (struct IntFontReq *)intreq;
1312
1313 EnterFunc(bug("FOGadCleanup(ld=%p)\n", ld));
1314
1315 if (ld->ld_Window && ld->ld_GList)
1316 {
1317 RemoveGList(ld->ld_Window, ld->ld_GList, -1);
1318 }
1319
1320 killscrollergadget(&udata->NameScrollGad, AslBase);
1321 killscrollergadget(&udata->SizeScrollGad, AslBase);
1322
1323 FreeObjects(&FOREQ_FIRST_OBJECT(udata), &FOREQ_LAST_OBJECT(udata), AslBase);
1324
1325 FOFreeFonts(ld, AslBase);
1326
1327 if (udata->PreviewFont) CloseFont(udata->PreviewFont);
1328
1329 if (ld->ld_Window)
1330 {
1331 req->fo_LeftEdge = intreq->ir_LeftEdge = ld->ld_Window->LeftEdge;
1332 req->fo_TopEdge = intreq->ir_TopEdge = ld->ld_Window->TopEdge;
1333 req->fo_Width = intreq->ir_Width = ld->ld_Window->Width;
1334 req->fo_Height = intreq->ir_Height = ld->ld_Window->Height;
1335 }
1336
1337 ReturnVoid("FOGadCleanup");
1338 }
1339
1340 /*****************************************************************************************/
1341
1342 STATIC ULONG FOGetSelectedFont(struct LayoutData *ld, struct AslBase_intern *AslBase)
1343 {
1344 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
1345 struct IntReq *intreq = ld->ld_IntReq;
1346 struct IntFontReq *iforeq = (struct IntFontReq *)intreq;
1347 struct FontRequester *req = (struct FontRequester *)ld->ld_Req;
1348 STRPTR name;
1349 IPTR val;
1350 ULONG retval = GHRET_OK;
1351
1352 GetAttr(STRINGA_TextVal, udata->NameString, (IPTR *)&name);
1353 if (!(req->fo_TAttr.tta_Name = VecPooledCloneString(name, ".font", intreq->ir_MemPool, AslBase))) goto bye;
1354 iforeq->ifo_TextAttr.ta_Name = req->fo_TAttr.tta_Name;
1355
1356 GetAttr(STRINGA_LongVal, udata->SizeString, &val);
1357 req->fo_TAttr.tta_YSize = iforeq->ifo_TextAttr.ta_YSize = (UWORD)val;
1358
1359 /* DrawMode */
1360
1361 if (iforeq->ifo_Flags & FOF_DODRAWMODE)
1362 {
1363 iforeq->ifo_DrawMode = FOGetDrawMode(ld, AslBase);
1364 }
1365 req->fo_DrawMode = iforeq->ifo_DrawMode;
1366
1367 /* Style */
1368
1369
1370 if (iforeq->ifo_Flags & FOF_DOSTYLE)
1371 {
1372 iforeq->ifo_TextAttr.ta_Style = FOGetStyle(ld, AslBase);
1373 }
1374 req->fo_TAttr.tta_Style = iforeq->ifo_TextAttr.ta_Style;
1375
1376 if (iforeq->ifo_Flags & FOF_DOFRONTPEN)
1377 {
1378 iforeq->ifo_FrontPen = FOGetFGColor(ld, AslBase);
1379 }
1380 req->fo_FrontPen = iforeq->ifo_FrontPen;
1381
1382 if (iforeq->ifo_Flags & FOF_DOBACKPEN)
1383 {
1384 iforeq->ifo_BackPen = FOGetBGColor(ld, AslBase);
1385 }
1386 req->fo_BackPen = iforeq->ifo_BackPen;
1387
1388 /* Hmm ... there is also a struct TextAttr fo_Attr in
1389 FontRequester structure. Just put the same values in!? */
1390
1391 req->fo_Attr.ta_Name = req->fo_TAttr.tta_Name;
1392 req->fo_Attr.ta_YSize = req->fo_TAttr.tta_YSize;
1393 req->fo_Attr.ta_Style = req->fo_TAttr.tta_Style;
1394 req->fo_Attr.ta_Flags = req->fo_TAttr.tta_Flags;
1395
1396 retval = GHRET_FINISHED_OK;
1397
1398 bye:
1399 return retval;
1400 }
1401
1402 /*****************************************************************************************/
1403
Mirror of AROS' svn.