?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
added concrete implementations of putc(), getc(), getchar() and gets()
[tangerine.git] / workbench / libs / asl / fontreqhooks.c
blobc688e6da9d66e041afe8a5f17b7a7085c2d10c9d
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 const 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 break;
332
333 case LDCMD_LAYOUT:
334 retval = (ULONG)FOGadLayout(ld, ASLB(AslBase));
335 break;
336
337 case LDCMD_HANDLEEVENTS:
338 retval = (ULONG)FOHandleEvents(ld, ASLB(AslBase));
339 break;
340
341 case LDCMD_CLEANUP:
342 FOGadCleanup(ld, ASLB(AslBase));
343 retval = GHRET_OK;
344 break;
345
346 default:
347 retval = GHRET_FAIL;
348 break;
349 }
350
351 return (retval);
352
353 AROS_USERFUNC_EXIT
354 }
355
356 /*****************************************************************************************/
357
358 struct ButtonInfo
359 {
360 WORD gadid;
361 STRPTR text;
362 LONG deftextid;
363 #if USE_SHARED_COOLIMAGES
364 ULONG coolid;
365 Object **objvar;
366 const struct CoolImage *coolimage;
367 #else
368 const struct CoolImage *coolimage;
369 Object **objvar;
370 #endif
371 };
372
373 /*****************************************************************************************/
374
375 STATIC BOOL FOGadInit(struct LayoutData *ld, struct AslBase_intern *AslBase)
376 {
377 struct FOUserData *udata = ld->ld_UserData;
378 struct IntFontReq *iforeq = (struct IntFontReq *)ld->ld_IntReq;
379 STRPTR str[6];
380 #if USE_SHARED_COOLIMAGES
381 struct ButtonInfo bi[NUMBUTS] =
382 {
383 { ID_BUTOK , GetIR(iforeq)->ir_PositiveText , MSG_FONTREQ_POSITIVE_GAD, COOL_USEIMAGE_ID , &udata->OKBut },
384 { ID_BUTCANCEL , GetIR(iforeq)->ir_NegativeText , MSG_FONTREQ_NEGATIVE_GAD, COOL_CANCELIMAGE_ID , &udata->CancelBut }
385 };
386 #else
387 struct ButtonInfo bi[NUMBUTS] =
388 {
389 { ID_BUTOK , GetIR(iforeq)->ir_PositiveText , MSG_FONTREQ_POSITIVE_GAD, &cool_useimage , &udata->OKBut },
390 { ID_BUTCANCEL , GetIR(iforeq)->ir_NegativeText , MSG_FONTREQ_NEGATIVE_GAD, &cool_cancelimage , &udata->CancelBut }
391 };
392 #endif
393 Object *gad;
394 LONG error;
395 WORD gadrows, x, y, w, h, i, y2;
396 WORD sizelvwidth, labelwidth = 0, maxgadcolwidth = 0;
397
398 NEWLIST(&udata->NameListviewList);
399
400 udata->SizeListviewRenderHook.h_Entry = (APTR)AROS_ASMSYMNAME(SizeListviewRenderFunc);
401 udata->SizeListviewRenderHook.h_SubEntry = NULL;
402 udata->SizeListviewRenderHook.h_Data = AslBase;
403
404 udata->StringEditHook.h_Entry = (APTR)AROS_ASMSYMNAME(StringEditFunc);
405 udata->StringEditHook.h_SubEntry = NULL;
406 udata->StringEditHook.h_Data = AslBase;
407
408 FOGetFonts(ld, AslBase);
409
410 error = ERROR_NO_FREE_STORE;
411
412 /* calc. min. size */
413
414 w = 0;
415 for(i = 0; i < NUMBUTS; i++)
416 {
417 if(!bi[i].text) bi[i].text = GetString(bi[i].deftextid, GetIR(iforeq)->ir_Catalog, AslBase);
418
419 x = TextLength(&ld->ld_DummyRP, bi[i].text, strlen(bi[i].text));
420
421 #if FOREQ_COOL_BUTTONS
422 #if USE_SHARED_COOLIMAGES
423 if (CoolImagesBase)
424 {
425 bi[i].coolimage = (const struct CoolImage *)COOL_ObtainImageA(bi[i].coolid, NULL);
426 }
427
428 if (CoolImagesBase)
429 #endif
430 if (ld->ld_TrueColor)
431 {
432 x += IMAGEBUTTONEXTRAWIDTH + bi[i].coolimage->width;
433 }
434 #endif
435
436 if (x > w) w = x;
437 }
438
439 udata->ButWidth = w + BUTTONEXTRAWIDTH;
440
441 ld->ld_ButWidth = udata->ButWidth;
442 ld->ld_NumButtons = 4;
443
444 #if FOREQ_COOL_BUTTONS
445
446 #if USE_SHARED_COOLIMAGES
447 if (CoolImagesBase)
448 {
449 #endif
450 y = BUTTONEXTRAHEIGHT + ld->ld_Font->tf_YSize;
451 if (ld->ld_TrueColor)
452 {
453 y2 = IMAGEBUTTONEXTRAHEIGHT + DEF_COOLIMAGEHEIGHT;
454 } else {
455 y2 = 0;
456 }
457 udata->ButHeight = (y > y2) ? y : y2;
458 #if USE_SHARED_COOLIMAGES
459 }
460 else
461 {
462 udata->ButHeight = BUTTONEXTRAHEIGHT + ld->ld_Font->tf_YSize;
463 }
464 #endif
465
466 #else
467 udata->ButHeight = BUTTONEXTRAHEIGHT + ld->ld_Font->tf_YSize;
468 #endif
469
470 gadrows = 2; /* button row + string gadgets under listviews */
471 if (iforeq->ifo_Flags & FOF_DODRAWMODE) gadrows++;
472 if (iforeq->ifo_Flags & FOF_DOSTYLE) gadrows++;
473 if (iforeq->ifo_Flags & (FOF_DOFRONTPEN | FOF_DOBACKPEN)) gadrows++;
474
475 ld->ld_MinWidth = OUTERSPACINGX * 2 +
476 GADGETSPACINGX * 1 +
477 udata->ButWidth * NUMBUTS;
478
479 ld->ld_MinHeight = OUTERSPACINGY * 2 +
480 (GADGETSPACINGY + udata->ButHeight) * gadrows +
481 BORDERLVSPACINGY * 2 +
482 (ld->ld_Font->tf_YSize + BORDERLVITEMSPACINGY * 2) * FOREQ_MIN_VISIBLELINES +
483 FONTPREVIEWHEIGHT + GADGETSPACINGY -
484 GADGETSPACINGY; /* because the string gadgets are attached to listview gadgets */
485
486 /* make listview gadgets */
487
488 sizelvwidth = PROPSIZE +
489 FOREQ_VISIBILE_SIZE_CHARS * ld->ld_Font->tf_XSize +
490 BORDERLVSPACINGX * 2 +
491 BORDERLVITEMSPACINGX * 2;
492
493 x = ld->ld_WBorLeft + OUTERSPACINGX;
494 y = ld->ld_WBorTop + OUTERSPACINGY;
495 w = -ld->ld_WBorRight - ld->ld_WBorLeft - OUTERSPACINGX * 2 - PROPSIZE - GADGETSPACINGX - sizelvwidth;
496 h = -ld->ld_WBorBottom - ld->ld_WBorTop - OUTERSPACINGY * 2 -
497 udata->ButHeight * gadrows -
498 GADGETSPACINGY * gadrows -
499 (FONTPREVIEWHEIGHT + GADGETSPACINGY) +
500 GADGETSPACINGY; /* because the string gadgets are attached to listview gadgets */
501
502 {
503 struct TagItem lv_tags[] =
504 {
505 {GA_Left , x },
506 {GA_Top , y },
507 {GA_RelWidth , w },
508 {GA_RelHeight , h },
509 {GA_UserData , (IPTR)ld },
510 {GA_ID , ID_NAMELISTVIEW },
511 {GA_RelVerify , TRUE },
512 {ASLLV_Labels , (IPTR)&udata->NameListviewList },
513 {TAG_IGNORE , 0 },
514 {TAG_IGNORE , (IPTR)&udata->SizeListviewRenderHook },
515 {ASLLV_Font , (IPTR)ld->ld_Font },
516 {TAG_DONE }
517 };
518
519 udata->NameListview = gad = NewObjectA(AslBase->asllistviewclass, NULL, lv_tags);
520 if (!gad) goto failure;
521
522 lv_tags[0].ti_Tag = GA_RelRight;
523 lv_tags[0].ti_Data = -ld->ld_WBorRight - OUTERSPACINGX - sizelvwidth + 1;
524 lv_tags[2].ti_Tag = GA_Width;
525 lv_tags[2].ti_Data = sizelvwidth - PROPSIZE;
526 lv_tags[5].ti_Data = ID_SIZELISTVIEW;
527 lv_tags[7].ti_Data = 0;
528 lv_tags[8].ti_Tag = GA_Previous;
529 lv_tags[8].ti_Data = (IPTR)gad;
530 lv_tags[9].ti_Tag = ASLLV_CallBack;
531
532 udata->SizeListview = gad = NewObjectA(AslBase->asllistviewclass, NULL, lv_tags);
533 if (!gad) goto failure;
534
535 }
536
537 /* make scroller gadgets for listviews */
538
539 x = -ld->ld_WBorRight - OUTERSPACINGX - PROPSIZE - sizelvwidth - GADGETSPACINGX + 1;
540 y = ld->ld_WBorTop + OUTERSPACINGY;
541 w = PROPSIZE;
542 h = -ld->ld_WBorBottom - ld->ld_WBorTop - OUTERSPACINGY * 2 -
543 udata->ButHeight * gadrows -
544 GADGETSPACINGY * gadrows -
545 (FONTPREVIEWHEIGHT + GADGETSPACINGY) +
546 GADGETSPACINGY;
547 {
548 struct TagItem scroller_tags[] =
549 {
550 {GA_RelRight , x },
551 {GA_Top , y },
552 {GA_Width , w },
553 {GA_RelHeight , h },
554 {GA_ID , ID_NAMELISTVIEW },
555 {PGA_NewLook , TRUE },
556 {PGA_Borderless , TRUE },
557 {PGA_Freedom , FREEVERT },
558 {PGA_Top , 0 },
559 {PGA_Total , 20 },
560 {PGA_Visible , 1 },
561 {GA_Previous , (IPTR)gad },
562 {TAG_DONE }
563 };
564
565 if (!makescrollergadget(&udata->NameScrollGad, ld, scroller_tags, AslBase)) goto failure;
566 gad = udata->NameScrollGad.arrow2;
567
568 scroller_tags[0].ti_Data = x + sizelvwidth + GADGETSPACINGX;
569 scroller_tags[1].ti_Data = y;
570 scroller_tags[2].ti_Data = w;
571 scroller_tags[3].ti_Data = h;
572 scroller_tags[4].ti_Data = ID_SIZELISTVIEW;
573 scroller_tags[11].ti_Data = (IPTR)gad;
574
575 if (!makescrollergadget(&udata->SizeScrollGad, ld, scroller_tags, AslBase)) goto failure;
576 gad = udata->SizeScrollGad.arrow2;
577
578 }
579
580 connectscrollerandlistview(&udata->NameScrollGad, udata->NameListview, AslBase);
581 connectscrollerandlistview(&udata->SizeScrollGad, udata->SizeListview, AslBase);
582
583 /* make preview gadget */
584
585 x = ld->ld_WBorLeft + OUTERSPACINGX;
586 y = -ld->ld_WBorBottom - OUTERSPACINGY - udata->ButHeight -
587 GADGETSPACINGY - FONTPREVIEWHEIGHT;
588 w = -ld->ld_WBorRight - ld->ld_WBorLeft - OUTERSPACINGX * 2;
589
590 {
591 struct TagItem preview_tags[] =
592 {
593 {GA_Left , x },
594 {GA_RelBottom , y },
595 {GA_RelWidth , w },
596 {GA_Height , FONTPREVIEWHEIGHT },
597 {GA_Previous , (IPTR)gad },
598 {GA_ID , ID_PREVIEW },
599 {ASLFP_SampleText , (IPTR)iforeq->ifo_SampleText },
600 {ASLFP_APen , iforeq->ifo_FrontPen },
601 {ASLFP_BPen , iforeq->ifo_BackPen },
602 {TAG_DONE }
603 };
604
605 udata->Preview = gad = NewObjectA(AslBase->aslfontpreviewclass, NULL, preview_tags);
606 if (!gad) goto failure;
607 }
608
609 /* make string gadgets */
610
611 x = ld->ld_WBorLeft + OUTERSPACINGX;
612 y = -ld->ld_WBorBottom - OUTERSPACINGY - udata->ButHeight -
613 (udata->ButHeight + GADGETSPACINGY) * (gadrows - 1) -
614 (FONTPREVIEWHEIGHT + GADGETSPACINGY) + 1;
615
616 w = -ld->ld_WBorRight - ld->ld_WBorLeft - OUTERSPACINGX * 2 - GADGETSPACINGX - sizelvwidth;
617
618 {
619 struct TagItem string_tags[] =
620 {
621 {GA_Left , x },
622 {GA_RelBottom , y },
623 {GA_RelWidth , w },
624 {GA_Height , udata->ButHeight },
625 {GA_Previous , (IPTR)gad },
626 {STRINGA_TextVal , (IPTR)"" },
627 {STRINGA_MaxChars , MAXFONTNAME },
628 {STRINGA_EditHook , (IPTR)&udata->StringEditHook },
629 {GA_ID , ID_NAMESTRING },
630 {GA_RelVerify , TRUE },
631 {GA_UserData , (IPTR)ld },
632 {GA_TabCycle , TRUE },
633 {STRINGA_Font , (IPTR)ld->ld_Font },
634 {TAG_DONE }
635 };
636
637 udata->NameString = gad = NewObjectA(AslBase->aslstringclass, NULL, string_tags);
638 if (!gad) goto failure;
639
640 string_tags[0].ti_Tag = GA_RelRight;
641 string_tags[0].ti_Data = -ld->ld_WBorRight - OUTERSPACINGX - sizelvwidth + 1;
642 string_tags[2].ti_Tag = GA_Width;
643 string_tags[2].ti_Data = sizelvwidth;
644 string_tags[4].ti_Data = (IPTR)gad;
645 string_tags[5].ti_Tag = STRINGA_LongVal;
646 string_tags[5].ti_Data = iforeq->ifo_TextAttr.ta_YSize;
647 string_tags[6].ti_Data = 6;
648 string_tags[8].ti_Data = ID_SIZESTRING;
649
650 udata->SizeString = gad = NewObjectA(AslBase->aslstringclass, NULL, string_tags);
651 if (!gad) goto failure;
652
653 }
654
655 /* make button row */
656
657 y = -ld->ld_WBorBottom - OUTERSPACINGY - udata->ButHeight + 1;
658
659 {
660 struct TagItem button_tags[] =
661 {
662 {GA_Text , 0 },
663 {GA_Previous , 0 },
664 {GA_ID , 0 },
665 #if FOREQ_COOL_BUTTONS
666 {ASLBT_CoolImage , 0 },
667 #else
668 {TAG_IGNORE , 0 },
669 #endif
670 {GA_UserData , (IPTR)ld },
671 {GA_Left , 0 },
672 {GA_RelBottom , y },
673 {GA_Width , udata->ButWidth },
674 {GA_Height , udata->ButHeight },
675 {GA_RelVerify , TRUE },
676 {GA_Image , 0 }, /* means we want a frame */
677 {TAG_DONE }
678 };
679
680 for(i = 0; i < NUMBUTS; i++)
681 {
682 button_tags[0].ti_Data = (IPTR)bi[i].text;
683 button_tags[1].ti_Data = (IPTR)gad;
684 button_tags[2].ti_Data = bi[i].gadid;
685 #if USE_SHARED_COOLIMAGES
686 if (CoolImagesBase == NULL) button_tags[3].ti_Tag = TAG_IGNORE;
687 #endif
688 button_tags[3].ti_Data = (IPTR)bi[i].coolimage;
689
690 *(bi[i].objvar) = gad = NewObjectA(AslBase->aslbuttonclass, NULL, button_tags);
691 if (!gad) goto failure;
692 }
693
694 }
695
696 /* make labels */
697
698 i = 0;
699
700 x = ld->ld_WBorLeft + OUTERSPACINGX;
701 y = -ld->ld_WBorBottom - OUTERSPACINGY - udata->ButHeight -
702 (udata->ButHeight + GADGETSPACINGY) * (gadrows - 2) -
703 (FONTPREVIEWHEIGHT + GADGETSPACINGY) + 1;
704
705 if (iforeq->ifo_Flags & (FOF_DODRAWMODE | FOF_DOSTYLE | FOF_DOFRONTPEN | FOF_DOBACKPEN))
706 {
707 #define FSET(x) ((iforeq->ifo_Flags & x) ? TRUE : FALSE)
708
709 struct LabelInfo
710 {
711 BOOL doit;
712 char *text;
713 Object **objvar;
714 } li [] =
715 {
716 {FSET(FOF_DOSTYLE) , (STRPTR)MSG_FONTREQ_STYLE_LABEL , &udata->StyleLabel },
717 {FALSE , (STRPTR)MSG_FONTREQ_COLOR_LABEL_FG, &udata->ColorLabel },
718 {FSET(FOF_DODRAWMODE) , (STRPTR)MSG_FONTREQ_MODE_LABEL , &udata->DrawModeLabel }
719 };
720
721 #undef FSET
722
723 struct TagItem label_tags[] =
724 {
725 {GA_Left , 0 },
726 {GA_RelBottom , y },
727 {GA_Width , 0 },
728 {GA_Height , udata->ButHeight },
729 {GA_Text , 0 },
730 {GA_Previous , (IPTR)gad },
731 {GA_UserData , (IPTR)ld },
732 {GA_Disabled , TRUE },
733 {TAG_DONE }
734 };
735 WORD i2;
736
737 if (iforeq->ifo_Flags & (FOF_DOFRONTPEN | FOF_DOBACKPEN))
738 {
739 li[1].doit = TRUE;
740
741 switch(iforeq->ifo_Flags & (FOF_DOFRONTPEN | FOF_DOBACKPEN))
742 {
743 case FOF_DOFRONTPEN:
744 break;
745
746 case FOF_DOBACKPEN:
747 li[1].text = (STRPTR)MSG_FONTREQ_COLOR_LABEL_BG;
748 break;
749
750 case FOF_DOFRONTPEN | FOF_DOBACKPEN:
751 li[1].text = (STRPTR)MSG_FONTREQ_COLOR_LABEL_FGBG;
752 break;
753 }
754
755 } /* if (iforeq->ifo_Flags & (FOF_DOFRONTPEN | FOF_DOBACKPEN)) */
756 for(i = 0, i2 = 0; i < 3; i++)
757 {
758 if (li[i].doit)
759 {
760 if ((i == 2) && (iforeq->ifo_ModeList))
761 {
762 li[i].text = iforeq->ifo_ModeList[0];
763 }
764 else
765 {
766 li[i].text = GetString((LONG)li[i].text, GetIR(iforeq)->ir_Catalog, AslBase);
767 }
768 str[i2++] = li[i].text;
769 }
770 }
771
772 w = labelwidth = BiggestTextLength(str, i2, &(ld->ld_DummyRP), AslBase);
773
774 for(i = 0; i < 3;i++)
775 {
776 if (!li[i].doit) continue;
777
778 label_tags[2].ti_Data = TextLength(&ld->ld_DummyRP, li[i].text, strlen(li[i].text));
779 label_tags[0].ti_Data = x + w - label_tags[2].ti_Data;
780 label_tags[4].ti_Data = (IPTR)li[i].text;
781 label_tags[5].ti_Data = (IPTR)gad;
782
783 *(li[i].objvar) = gad = NewObjectA(AslBase->aslbuttonclass, NULL, label_tags);
784 if (!gad) goto failure;
785
786 y += udata->ButHeight + GADGETSPACINGY;
787 label_tags[1].ti_Data = y;
788 }
789
790 y = -ld->ld_WBorBottom - OUTERSPACINGY - udata->ButHeight -
791 (udata->ButHeight + GADGETSPACINGY) * (gadrows - 2) -
792 (FONTPREVIEWHEIGHT + GADGETSPACINGY) + 1;
793
794 x = ld->ld_WBorLeft + OUTERSPACINGX + w + LABELSPACINGX;
795
796 /* Make Style gadget */
797
798 if (iforeq->ifo_Flags & FOF_DOSTYLE)
799 {
800 STRPTR stylestrings[3];
801
802 struct TagItem style_tags[] =
803 {
804 {GA_Previous , (IPTR)gad },
805 {GA_Left , x },
806 {GA_RelBottom , y },
807 {GA_Width , 0 },
808 {GA_Height , udata->ButHeight },
809 {GA_RelVerify , TRUE },
810 {GA_UserData , (IPTR)ld },
811 {GA_ID , ID_STYLE },
812 {ASLFS_LabelArray , (IPTR)stylestrings },
813 {ASLFS_Style , iforeq->ifo_TextAttr.ta_Style },
814 {TAG_DONE }
815 };
816
817 stylestrings[0] = GetString(MSG_FONTREQ_STYLE_BOLD, GetIR(iforeq)->ir_Catalog, AslBase);
818 stylestrings[1] = GetString(MSG_FONTREQ_STYLE_ITALIC, GetIR(iforeq)->ir_Catalog, AslBase);
819 stylestrings[2] = GetString(MSG_FONTREQ_STYLE_UNDERLINED, GetIR(iforeq)->ir_Catalog, AslBase);
820
821 w = BiggestTextLength(stylestrings, 3, &(ld->ld_DummyRP), AslBase);
822 w *= 2;
823 w *= 3;
824
825 style_tags[3].ti_Data = w;
826
827 if (w > maxgadcolwidth) maxgadcolwidth = w;
828
829 udata->StyleGadget = gad = NewObjectA(AslBase->aslfontstyleclass, NULL, style_tags);
830 if (!gad) goto failure;
831
832 y += udata->ButHeight + GADGETSPACINGY;
833
834 }
835
836 w = udata->ButHeight * 12 / 10 + 19; /* CYCLEIMAGEWIDTH = 19 */
837
838 /* Make FrontPen gadget */
839
840 if (iforeq->ifo_Flags & FOF_DOFRONTPEN)
841 {
842 struct TagItem cp_tags[] =
843 {
844 {GA_Previous , (IPTR)gad },
845 {GA_Left , x },
846 {GA_RelBottom , y },
847 {GA_Width , w },
848 {GA_Height , udata->ButHeight },
849 {GA_RelVerify , TRUE },
850 {GA_UserData , (IPTR)ld },
851 {GA_ID , ID_FRONTPEN },
852 {ASLCP_Color , iforeq->ifo_FrontPen },
853 {ASLCP_ColorTable , (IPTR)iforeq->ifo_FrontPens },
854 {ASLCP_NumColors , iforeq->ifo_MaxFrontPen },
855 {TAG_DONE }
856
857 };
858
859 udata->FGColorGadget = gad = NewObjectA(AslBase->aslcolorpickerclass, NULL, cp_tags);
860 if (!gad) goto failure;
861
862 x += w + GADGETSPACINGX;
863 }
864
865 /* Make BackPen gadget */
866
867 if (iforeq->ifo_Flags & FOF_DOBACKPEN)
868 {
869 struct TagItem cp_tags[] =
870 {
871 {GA_Previous , (IPTR)gad },
872 {GA_Left , x },
873 {GA_RelBottom , y },
874 {GA_Width , w },
875 {GA_Height , udata->ButHeight },
876 {GA_RelVerify , TRUE },
877 {GA_UserData , (IPTR)ld },
878 {GA_ID , ID_BACKPEN },
879 {ASLCP_Color , iforeq->ifo_BackPen },
880 {ASLCP_ColorTable , (IPTR)iforeq->ifo_BackPens },
881 {ASLCP_NumColors , iforeq->ifo_MaxBackPen },
882 {TAG_DONE }
883
884 };
885
886 udata->BGColorGadget = gad = NewObjectA(AslBase->aslcolorpickerclass, NULL, cp_tags);
887 if (!gad) goto failure;
888
889 }
890
891 if (iforeq->ifo_Flags & (FOF_DOFRONTPEN | FOF_DOBACKPEN))
892 {
893 if ((iforeq->ifo_Flags & (FOF_DOFRONTPEN | FOF_DOBACKPEN)) == (FOF_DOFRONTPEN | FOF_DOBACKPEN))
894 {
895 w += GADGETSPACINGX + w;
896 }
897
898 if (w > maxgadcolwidth) maxgadcolwidth = w;
899
900 y += udata->ButHeight + GADGETSPACINGY;
901 }
902
903
904 /* Make DrawMode gadget */
905
906 x = ld->ld_WBorLeft + OUTERSPACINGX + labelwidth + LABELSPACINGX;
907
908 w = -ld->ld_WBorLeft - ld->ld_WBorRight - OUTERSPACINGX * 2 -
909 labelwidth - LABELSPACINGX;
910
911
912 if (iforeq->ifo_Flags & FOF_DODRAWMODE)
913 {
914 struct TagItem cycle_tags[] =
915 {
916 {GA_Previous , (IPTR)gad },
917 {GA_Left , x },
918 {GA_RelBottom , y },
919 {GA_RelWidth , w },
920 {GA_Height , udata->ButHeight },
921 {GA_RelVerify , TRUE },
922 {GA_UserData , (IPTR)ld },
923 {GA_ID , ID_DRAWMODE },
924 {ASLCY_Labels , 0 },
925 {ASLCY_Active , iforeq->ifo_DrawMode },
926 {ASLCY_Font , (IPTR)ld->ld_Font },
927 {TAG_DONE }
928
929 };
930 static LONG labelids[] =
931 {
932 MSG_FONTREQ_MODE_TEXT,
933 MSG_FONTREQ_MODE_TEXTANDFIELD,
934 MSG_FONTREQ_MODE_COMPLEMENT,
935 };
936 STRPTR *labels;
937
938
939 if (iforeq->ifo_ModeList)
940 {
941 labels = &iforeq->ifo_ModeList[1];
942 }
943 else
944 {
945 labels = (STRPTR *)&iforeq->ifo_DrawModeJAM1Text;
946
947 for(i = 0; i < 3; i++)
948 {
949 labels[i] = GetString(labelids[i], GetIR(iforeq)->ir_Catalog, AslBase);
950 }
951 }
952
953 cycle_tags[8].ti_Data = (IPTR)labels;
954
955 i = CYCLEEXTRAWIDTH + BiggestTextLength(labels,
956 0x7FFF,
957 &(ld->ld_DummyRP),
958 AslBase);
959 if (i > maxgadcolwidth) maxgadcolwidth = i;
960
961 udata->DrawModeGadget = gad = NewObjectA(AslBase->aslcycleclass, NULL, cycle_tags);
962 if (!gad) goto failure;
963
964 y += udata->ButHeight + GADGETSPACINGY;
965
966 } /* if (iforeq->ifo_Flags & FOF_DODRAWMODE) */
967
968 } /* if (iforeq->ifo_Flags & (FOF_DODRAWMODE | FOF_DOSTYLE | FOF_DOFRONTPEN | FOF_DOBACKPEN)) */
969
970 #if AVOID_FLICKER
971 {
972 struct TagItem eraser_tags[] =
973 {
974 {GA_Previous, (IPTR)gad},
975 {TAG_DONE}
976 };
977
978 udata->EraserGadget = gad = NewObjectA(AslBase->asleraserclass, NULL, eraser_tags);
979 /* Doesn't matter if this failed */
980 }
981 #endif
982
983 w = OUTERSPACINGX + labelwidth + LABELSPACINGX + maxgadcolwidth + OUTERSPACINGX;
984 if (w > ld->ld_MinWidth) ld->ld_MinWidth = w;
985
986 ld->ld_GList = (struct Gadget *)udata->NameListview;
987
988 /* Menus */
989 {
990 struct NewMenu nm[] =
991 {
992 {NM_TITLE, (STRPTR)MSG_FONTREQ_MEN_CONTROL },
993 {NM_ITEM, (STRPTR)MSG_FONTREQ_MEN_CONTROL_LASTFONT , 0, 0, 0, (APTR)FOMEN_LASTFONT },
994 {NM_ITEM, (STRPTR)MSG_FONTREQ_MEN_CONTROL_NEXTFONT , 0, 0, 0, (APTR)FOMEN_NEXTFONT },
995 {NM_ITEM, NM_BARLABEL },
996 {NM_ITEM, (STRPTR)MSG_FONTREQ_MEN_CONTROL_RESTORE , 0, 0, 0, (APTR)FOMEN_RESTORE },
997 {NM_ITEM, (STRPTR)MSG_FONTREQ_MEN_CONTROL_RESCAN , 0, 0, 0, (APTR)FOMEN_RESCAN },
998 {NM_ITEM, NM_BARLABEL },
999 {NM_ITEM, (STRPTR)MSG_FONTREQ_MEN_CONTROL_OK , 0, 0, 0, (APTR)FOMEN_OK },
1000 {NM_ITEM, (STRPTR)MSG_FONTREQ_MEN_CONTROL_CANCEL , 0, 0, 0, (APTR)FOMEN_CANCEL },
1001 {NM_END }
1002 };
1003
1004 struct TagItem menu_tags[] =
1005 {
1006 {GTMN_NewLookMenus , TRUE },
1007 {GTMN_TextAttr , (IPTR)GetIR(iforeq)->ir_TextAttr },
1008 {TAG_DONE }
1009 };
1010
1011 if (menu_tags[1].ti_Data == 0) menu_tags[1].ti_Tag = TAG_IGNORE;
1012
1013 LocalizeMenus(nm, GetIR(iforeq)->ir_Catalog, AslBase);
1014
1015 /* Don't fail, if menus cannot be created/layouted, because a requester
1016 without menus is still better than no requester at all */
1017
1018 if ((ld->ld_Menu = CreateMenusA(nm, NULL)))
1019 {
1020 if (!LayoutMenusA(ld->ld_Menu, ld->ld_VisualInfo, menu_tags))
1021 {
1022 FreeMenus(ld->ld_Menu);ld->ld_Menu = NULL;
1023 }
1024 }
1025 }
1026
1027 FORestore(ld, iforeq->ifo_TextAttr.ta_Name, iforeq->ifo_TextAttr.ta_YSize, AslBase);
1028
1029 SetIoErr(0);
1030 ReturnBool ("FOGadInit", TRUE);
1031
1032 failure:
1033 SetIoErr(error);
1034
1035 D(bug("failure\n"));
1036
1037 FOGadCleanup(ld, ASLB(AslBase));
1038
1039 ReturnBool ("FOGadInit", FALSE);
1040
1041 }
1042
1043 /*****************************************************************************************/
1044
1045 STATIC VOID FOWindowOpened(struct LayoutData *ld, struct AslBase_intern *AslBase)
1046 {
1047 // struct IntFontReq *iforeq = (struct IntFontReq *)ld->ld_IntReq;
1048 }
1049
1050 /*****************************************************************************************/
1051
1052 STATIC BOOL FOGadLayout(struct LayoutData *ld, struct AslBase_intern *AslBase)
1053 {
1054 ReturnBool ("FOGadLayout", TRUE );
1055 }
1056
1057 /*****************************************************************************************/
1058
1059 STATIC ULONG FOHandleEvents(struct LayoutData *ld, struct AslBase_intern *AslBase)
1060 {
1061 struct IntuiMessage *imsg = ld->ld_Event;
1062 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
1063 struct IntFontReq *iforeq = (struct IntFontReq *)ld->ld_IntReq;
1064 WORD gadid;
1065 ULONG retval = GHRET_OK;
1066
1067 EnterFunc(bug("FOHandleEvents: Class: %d\n", imsg->Class));
1068
1069 switch (imsg->Class)
1070 {
1071 case IDCMP_CLOSEWINDOW:
1072 retval = FALSE;
1073 break;
1074
1075 case IDCMP_RAWKEY:
1076 switch (imsg->Code)
1077 {
1078 case CURSORUP:
1079 FOChangeActiveFont(ld, -1, imsg->Qualifier, FALSE, AslBase);
1080 break;
1081
1082 case RAWKEY_PAGEUP:
1083 FOChangeActiveFont(ld, -1, IEQUALIFIER_LSHIFT, FALSE, AslBase);
1084 break;
1085
1086 case RAWKEY_HOME:
1087 FOChangeActiveFont(ld, -1, IEQUALIFIER_LALT, FALSE, AslBase);
1088 break;
1089
1090 case RAWKEY_NM_WHEEL_UP:
1091 FOChangeActiveFont(ld, -3, imsg->Qualifier, FALSE, AslBase);
1092 break;
1093
1094 case CURSORDOWN:
1095 FOChangeActiveFont(ld, 1, imsg->Qualifier, FALSE, AslBase);
1096 break;
1097
1098 case RAWKEY_PAGEDOWN:
1099 FOChangeActiveFont(ld, 1, IEQUALIFIER_LSHIFT, FALSE, AslBase);
1100 break;
1101
1102 case RAWKEY_END:
1103 FOChangeActiveFont(ld, 1, IEQUALIFIER_LALT, FALSE, AslBase);
1104 break;
1105
1106 case RAWKEY_NM_WHEEL_DOWN:
1107 FOChangeActiveFont(ld, 3, imsg->Qualifier, FALSE, AslBase);
1108 break;
1109 }
1110 break;
1111
1112 case IDCMP_VANILLAKEY:
1113 switch(imsg->Code)
1114 {
1115 case 27:
1116 retval = FALSE;
1117 break;
1118 }
1119 break;
1120
1121 case IDCMP_GADGETUP:
1122 gadid = ((struct Gadget *)imsg->IAddress)->GadgetID;
1123
1124 D(bug("GADGETUP! gadgetid=%d code=%d\n", gadid, imsg->Code));
1125
1126 switch (gadid)
1127 {
1128 case ID_BUTCANCEL:
1129 retval = FALSE;
1130 break;
1131
1132 case ID_BUTOK:
1133 retval = FOGetSelectedFont(ld, AslBase);
1134 break;
1135
1136 case ID_NAMELISTVIEW:
1137 {
1138 struct ASLLVFontReqNode *fontnode;
1139 IPTR active;
1140 IPTR size;
1141
1142 GetAttr(ASLLV_Active, udata->NameListview, &active);
1143 GetAttr(STRINGA_LongVal, udata->SizeString, &size);
1144
1145 if ((fontnode = (struct ASLLVFontReqNode *)FindListNode(&udata->NameListviewList, (WORD)active)))
1146 {
1147 FOActivateFont(ld, active, (LONG)size, AslBase);
1148
1149 if (imsg->Code) /* TRUE if double clicked */
1150 {
1151 retval = FOGetSelectedFont(ld, AslBase);
1152 }
1153 }
1154 ActivateGadget((struct Gadget *)udata->NameString, ld->ld_Window, NULL);
1155 }
1156 break;
1157
1158 case ID_SIZELISTVIEW:
1159 if (udata->ActiveFont)
1160 {
1161 struct Node *node;
1162 IPTR active;
1163
1164 GetAttr(ASLLV_Active, udata->SizeListview, &active);
1165
1166 if ((node = FindListNode(&udata->ActiveFont->SizeList, (WORD)active)))
1167 {
1168 FOSetSizeString((LONG)node->ln_Name, ld, AslBase);
1169 FOUpdatePreview(ld, AslBase);
1170
1171 if (imsg->Code) /* TRUE if double clicked */
1172 {
1173 retval = FOGetSelectedFont(ld, AslBase);
1174 }
1175 }
1176 ActivateGadget((struct Gadget *)udata->SizeString, ld->ld_Window, NULL);
1177 }
1178 break;
1179
1180 case ID_NAMESTRING:
1181 if (imsg->Code == STRINGCODE_CURSORUP)
1182 {
1183 FOChangeActiveFont(ld, -1, imsg->Qualifier, TRUE, AslBase);
1184 ActivateGadget((struct Gadget *)udata->NameString, ld->ld_Window, NULL);
1185 break;
1186 }
1187 else if (imsg->Code == STRINGCODE_CURSORDOWN)
1188 {
1189 FOChangeActiveFont(ld, 1, imsg->Qualifier, TRUE, AslBase);
1190 ActivateGadget((struct Gadget *)udata->NameString, ld->ld_Window, NULL);
1191 break;
1192 }
1193 else if ((imsg->Code == 0) || (imsg->Code == 9))
1194 {
1195 FOUpdatePreview(ld, AslBase);
1196 break;
1197 }
1198 break;
1199
1200 case ID_SIZESTRING:
1201 if (imsg->Code == STRINGCODE_CURSORUP)
1202 {
1203 FOChangeActiveSize(ld, -1, imsg->Qualifier, AslBase);
1204 ActivateGadget((struct Gadget *)udata->SizeString, ld->ld_Window, NULL);
1205 break;
1206 }
1207 else if (imsg->Code == STRINGCODE_CURSORDOWN)
1208 {
1209 FOChangeActiveSize(ld, 1, imsg->Qualifier, AslBase);
1210 ActivateGadget((struct Gadget *)udata->SizeString, ld->ld_Window, NULL);
1211 break;
1212 }
1213 else if ((imsg->Code == 0) || (imsg->Code == 9))
1214 {
1215 IPTR val;
1216 LONG size;
1217
1218 GetAttr(STRINGA_LongVal, udata->SizeString, (IPTR *)&val);
1219 size = (LONG)val;
1220
1221 if ((size < iforeq->ifo_MinHeight) || (size > iforeq->ifo_MaxHeight))
1222 {
1223 if (size < iforeq->ifo_MinHeight) size = iforeq->ifo_MinHeight;
1224 if (size > iforeq->ifo_MaxHeight) size = iforeq->ifo_MaxHeight;
1225 FOSetSizeString(size, ld, AslBase);
1226 }
1227
1228 FOActivateSize(ld, -size, AslBase);
1229
1230 break;
1231 }
1232 break;
1233
1234 case ID_STYLE:
1235 case ID_FRONTPEN:
1236 case ID_BACKPEN:
1237 FOUpdatePreview(ld, AslBase);
1238 break;
1239
1240 } /* switch (gadget ID) */
1241
1242 break; /* case IDCMP_GADGETUP: */
1243
1244 case IDCMP_MENUPICK:
1245 if (ld->ld_Menu)
1246 {
1247 UWORD men = imsg->Code;
1248
1249 while(men != MENUNULL)
1250 {
1251 struct MenuItem *item;
1252
1253 if ((item = ItemAddress(ld->ld_Menu, men)))
1254 {
1255 switch((IPTR)GTMENUITEM_USERDATA(item))
1256 {
1257 /* Control menu */
1258
1259 case FOMEN_LASTFONT:
1260 FOChangeActiveFont(ld, -1, 0, FALSE, AslBase);
1261 break;
1262
1263 case FOMEN_NEXTFONT:
1264 FOChangeActiveFont(ld, 1, 0, FALSE, AslBase);
1265 break;
1266
1267 case FOMEN_RESTORE:
1268 FORestore(ld, iforeq->ifo_TextAttr.ta_Name, iforeq->ifo_TextAttr.ta_YSize, AslBase);
1269 break;
1270
1271 case FOMEN_RESCAN:
1272 FOGetFonts(ld, AslBase);
1273 break;
1274
1275 case FOMEN_OK:
1276 retval = FOGetSelectedFont(ld, AslBase);
1277 break;
1278
1279 case FOMEN_CANCEL:
1280 retval = FALSE;
1281 break;
1282
1283 } /* switch id */
1284
1285 men = item->NextSelect;
1286 } /* if ((item = ItemAddress(ld->ld_Menu, men))) */
1287 else
1288 {
1289 men = MENUNULL;
1290 }
1291
1292 } /* while(men != MENUNULL) */
1293
1294 } /* if (ld->ld_Menu) */
1295
1296 break; /* case IDCMP_MENUPICK: */
1297
1298 } /* switch (imsg->Class) */
1299
1300 ReturnInt ("FOHandleEvents", ULONG, retval);
1301 }
1302
1303 /*****************************************************************************************/
1304
1305 STATIC VOID FOGadCleanup(struct LayoutData *ld, struct AslBase_intern *AslBase)
1306 {
1307 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
1308 struct FontRequester *req = (struct FontRequester *)ld->ld_Req;
1309 struct IntReq *intreq = ld->ld_IntReq;
1310 // struct IntFontReq *iforeq = (struct IntFontReq *)intreq;
1311
1312 EnterFunc(bug("FOGadCleanup(ld=%p)\n", ld));
1313
1314 if (ld->ld_Window && ld->ld_GList)
1315 {
1316 RemoveGList(ld->ld_Window, ld->ld_GList, -1);
1317 }
1318
1319 killscrollergadget(&udata->NameScrollGad, AslBase);
1320 killscrollergadget(&udata->SizeScrollGad, AslBase);
1321
1322 FreeObjects(&FOREQ_FIRST_OBJECT(udata), &FOREQ_LAST_OBJECT(udata), AslBase);
1323
1324 FOFreeFonts(ld, AslBase);
1325
1326 if (udata->PreviewFont) CloseFont(udata->PreviewFont);
1327
1328 if (ld->ld_Window)
1329 {
1330 req->fo_LeftEdge = intreq->ir_LeftEdge = ld->ld_Window->LeftEdge;
1331 req->fo_TopEdge = intreq->ir_TopEdge = ld->ld_Window->TopEdge;
1332 req->fo_Width = intreq->ir_Width = ld->ld_Window->Width;
1333 req->fo_Height = intreq->ir_Height = ld->ld_Window->Height;
1334 }
1335
1336 ReturnVoid("FOGadCleanup");
1337 }
1338
1339 /*****************************************************************************************/
1340
1341 STATIC ULONG FOGetSelectedFont(struct LayoutData *ld, struct AslBase_intern *AslBase)
1342 {
1343 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
1344 struct IntReq *intreq = ld->ld_IntReq;
1345 struct IntFontReq *iforeq = (struct IntFontReq *)intreq;
1346 struct FontRequester *req = (struct FontRequester *)ld->ld_Req;
1347 STRPTR name;
1348 IPTR val;
1349 ULONG retval = GHRET_OK;
1350
1351 GetAttr(STRINGA_TextVal, udata->NameString, (IPTR *)&name);
1352 if (!(req->fo_TAttr.tta_Name = VecPooledCloneString(name, ".font", intreq->ir_MemPool, AslBase))) goto bye;
1353 iforeq->ifo_TextAttr.ta_Name = req->fo_TAttr.tta_Name;
1354
1355 GetAttr(STRINGA_LongVal, udata->SizeString, &val);
1356 req->fo_TAttr.tta_YSize = iforeq->ifo_TextAttr.ta_YSize = (UWORD)val;
1357
1358 /* DrawMode */
1359
1360 if (iforeq->ifo_Flags & FOF_DODRAWMODE)
1361 {
1362 iforeq->ifo_DrawMode = FOGetDrawMode(ld, AslBase);
1363 }
1364 req->fo_DrawMode = iforeq->ifo_DrawMode;
1365
1366 /* Style */
1367
1368
1369 if (iforeq->ifo_Flags & FOF_DOSTYLE)
1370 {
1371 iforeq->ifo_TextAttr.ta_Style = FOGetStyle(ld, AslBase);
1372 }
1373 req->fo_TAttr.tta_Style = iforeq->ifo_TextAttr.ta_Style;
1374
1375 if (iforeq->ifo_Flags & FOF_DOFRONTPEN)
1376 {
1377 iforeq->ifo_FrontPen = FOGetFGColor(ld, AslBase);
1378 }
1379 req->fo_FrontPen = iforeq->ifo_FrontPen;
1380
1381 if (iforeq->ifo_Flags & FOF_DOBACKPEN)
1382 {
1383 iforeq->ifo_BackPen = FOGetBGColor(ld, AslBase);
1384 }
1385 req->fo_BackPen = iforeq->ifo_BackPen;
1386
1387 /* Hmm ... there is also a struct TextAttr fo_Attr in
1388 FontRequester structure. Just put the same values in!? */
1389
1390 req->fo_Attr.ta_Name = req->fo_TAttr.tta_Name;
1391 req->fo_Attr.ta_YSize = req->fo_TAttr.tta_YSize;
1392 req->fo_Attr.ta_Style = req->fo_TAttr.tta_Style;
1393 req->fo_Attr.ta_Flags = req->fo_TAttr.tta_Flags;
1394
1395 retval = GHRET_FINISHED_OK;
1396
1397 bye:
1398 return retval;
1399 }
1400
1401 /*****************************************************************************************/
1402
A totally sweet operating system