?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Fixed binary search: no more infinite loops when vendor is unknown.
[tangerine.git] / workbench / libs / asl / fontreqsupport.c
blob009dfa69606ee21e811d0a3eb8fcd1e91d507a3f
1 /*
2 Copyright © 1995-2001, The AROS Development Team. All rights reserved.
3 $Id$
4
5 Desc:
6 Lang: english
7 */
8
9 /*****************************************************************************************/
10
11 #include <proto/exec.h>
12 #include <proto/dos.h>
13 #include <proto/intuition.h>
14 #include <proto/graphics.h>
15 #include <proto/utility.h>
16 #include <proto/diskfont.h>
17 #include <exec/memory.h>
18 #include <exec/initializers.h>
19 #include <intuition/imageclass.h>
20 #include <dos/dos.h>
21 #include <stdio.h>
22 #include <string.h>
23 #include <stdlib.h>
24
25 #include <clib/macros.h>
26
27 #include "asl_intern.h"
28 #include "fontreqsupport.h"
29 #include "fontreqhooks.h"
30 #include "layout.h"
31
32 #define SDEBUG 0
33 #define DEBUG 0
34 //#define ADEBUG 0
35
36 #include <aros/debug.h>
37
38 /*****************************************************************************************/
39
40 static WORD FOCompareFontNodes(struct IntFontReq *iforeq, struct Node *node1,
41 struct Node *node2, struct AslBase_intern *AslBase)
42 {
43 return Stricmp(node1->ln_Name, node2->ln_Name);
44 }
45
46 /*****************************************************************************************/
47
48 static WORD FOCompareSizeNodes(struct IntFontReq *iforeq, struct Node *node1,
49 struct Node *node2, struct AslBase_intern *AslBase)
50 {
51 return ((LONG)node1->ln_Name) - ((LONG)node2->ln_Name);
52 }
53
54 /*****************************************************************************************/
55
56 static int AVFCompare(struct AvailFonts *one, struct AvailFonts *two)
57 {
58 int retval = strcmp(one->af_Attr.ta_Name, two->af_Attr.ta_Name);
59
60 if (!retval) retval = ((int)one->af_Attr.ta_YSize) -
61 ((int)two->af_Attr.ta_YSize);
62
63 return retval;
64 }
65
66 /*****************************************************************************************/
67
68 static void SortAvailFonts(struct AvailFontsHeader *afh, struct AslBase_intern *AslBase)
69 {
70 struct AvailFonts *avf;
71 WORD numentries;
72
73 avf = (struct AvailFonts *)&afh[1];
74 numentries = afh->afh_NumEntries;
75 if (numentries < 2) return;
76
77 qsort(avf,
78 numentries,
79 sizeof(*avf),
80 (int (*)(const void *, const void *))AVFCompare);
81 }
82
83 /*****************************************************************************************/
84
85 LONG FOGetFonts(struct LayoutData *ld, struct AslBase_intern *AslBase)
86 {
87 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
88 struct IntFontReq *iforeq = (struct IntFontReq *)ld->ld_IntReq;
89 struct AvailFonts *avf;
90 ULONG afshortage, afsize = 100;
91 WORD i;
92
93 FOFreeFonts(ld, AslBase);
94
95 do
96 {
97 udata->AFH = (struct AvailFontsHeader *)AllocVec(afsize, MEMF_ANY);
98 if (udata->AFH)
99 {
100 afshortage = AvailFonts((STRPTR)udata->AFH, afsize, AFF_MEMORY | AFF_DISK);
101
102 if (afshortage)
103 {
104 FreeVec(udata->AFH);
105 afsize += afshortage;
106 }
107 }
108
109 } while (udata->AFH && afshortage);
110
111 if (!udata->AFH) return ERROR_NO_FREE_STORE;
112
113 SortAvailFonts(udata->AFH, AslBase);
114
115 avf = (struct AvailFonts *)&udata->AFH[1];
116
117 for(i = 0; i < udata->AFH->afh_NumEntries;)
118 {
119 struct AvailFonts *avf_start = avf;
120 struct ASLLVFontReqNode *fontnode;
121 UWORD num_sizes = 1;
122 WORD i2 = i;
123
124 while (i2 < udata->AFH->afh_NumEntries - 1)
125 {
126 i2++; avf++;
127 if (strcmp(avf_start->af_Attr.ta_Name, avf->af_Attr.ta_Name)) break;
128 num_sizes++;
129 }
130
131 i += num_sizes; avf = avf_start + num_sizes;
132
133 if (iforeq->ifo_Flags & FOF_FIXEDWIDTHONLY)
134 {
135 if (avf_start->af_Attr.ta_Flags & FPF_PROPORTIONAL) continue;
136 }
137
138 if (iforeq->ifo_FilterFunc)
139 {
140 #ifdef __MORPHOS__
141 {
142 ULONG ret;
143
144 REG_A4 = (ULONG)iforeq->ifo_IntReq.ir_BasePtr; /* Compatability */
145 REG_A0 = (ULONG)iforeq->ifo_FilterFunc;
146 REG_A2 = (ULONG)ld->ld_Req;
147 REG_A1 = (ULONG)&avf_start->af_Attr;
148 ret = (*MyEmulHandle->EmulCallDirect68k)(iforeq->ifo_FilterFunc->h_Entry);
149
150 if (!ret) continue;
151 }
152 #else
153 if (!(CallHookPkt(iforeq->ifo_FilterFunc, ld->ld_Req, &avf_start->af_Attr))) continue;
154 #endif
155 }
156
157 if (iforeq->ifo_HookFunc && (iforeq->ifo_Flags & FOF_FILTERFUNC))
158 {
159 #ifdef __MORPHOS__
160 {
161 ULONG ret;
162 UWORD *funcptr = iforeq->ifo_HookFunc;
163 ULONG *p = (ULONG *)REG_A7 - 3;
164
165 p[0] = (ULONG)FOF_FILTERFUNC;
166 p[1] = (ULONG)&avf_start->af_Attr;
167 p[2] = (ULONG)ld->ld_Req;
168 REG_A7 = (ULONG)p;
169
170 if (*funcptr >= (UWORD)0xFF00)
171 REG_A7 -= 4;
172
173 REG_A4 = (ULONG)iforeq->ifo_IntReq.ir_BasePtr; /* Compatability */
174
175 ret = (ULONG)(*MyEmulHandle->EmulCallDirect68k)(funcptr);
176
177 if (*funcptr >= (UWORD)0xFF00)
178 REG_A7 += 4;
179
180 REG_A7 += (3*4);
181
182 if (!ret) continue;
183 }
184 #else
185 if (!(iforeq->ifo_HookFunc(FOF_FILTERFUNC,
186 &avf_start->af_Attr,
187 (struct FontRequester *)ld->ld_Req))) continue;
188 #endif
189 }
190
191 fontnode = MyAllocVecPooled(ld->ld_IntReq->ir_MemPool,
192 sizeof(*fontnode) + sizeof(struct Node) * num_sizes,
193 AslBase);
194
195 if (fontnode)
196 {
197 char *sp;
198 WORD len;
199 UWORD prevsize = 0;
200
201 sp = strchr(avf_start->af_Attr.ta_Name, '.');
202 if (sp)
203 {
204 len = (IPTR)sp - (IPTR)avf_start->af_Attr.ta_Name - 1;;
205 }
206 else
207 {
208 /* Paranoia: Should never happen */
209 len = strlen(avf_start->af_Attr.ta_Name);
210 }
211
212 strncpy(fontnode->Name, avf_start->af_Attr.ta_Name, len + 1);
213 fontnode->node.ln_Name = fontnode->Name;
214 fontnode->TAttr = avf_start->af_Attr;
215 fontnode->TAttr.ta_Name = fontnode->Name;
216
217 fontnode->NumSizes = num_sizes;
218
219 NEWLIST(&fontnode->SizeList);
220
221 for(i2 = 0; i2 < num_sizes; i2++, avf_start++)
222 {
223 UWORD size = avf_start->af_Attr.ta_YSize;
224
225 if (size == prevsize) continue;
226
227 if ((size < iforeq->ifo_MinHeight) ||
228 (size > iforeq->ifo_MaxHeight)) continue;
229
230 fontnode->SizeNode[i2].ln_Name = (char *)(IPTR)size;
231 SortInNode(iforeq, &fontnode->SizeList, &fontnode->SizeNode[i2], (APTR)FOCompareSizeNodes, AslBase);
232
233 prevsize = size;
234 }
235
236 SortInNode(iforeq, &udata->NameListviewList, &fontnode->node, (APTR)FOCompareFontNodes, AslBase);
237
238 }
239
240 } /* for(i = 0; i < udata->AFH->afh_NumEntries; ) */
241
242 if (udata->NameListview)
243 {
244 struct TagItem set_tags[] =
245 {
246 {ASLLV_Labels, (IPTR)&udata->NameListviewList },
247 {TAG_DONE }
248 };
249 STRPTR fontname;
250 IPTR fontsize;
251
252 SetGadgetAttrsA((struct Gadget *)udata->NameListview, ld->ld_Window, NULL, set_tags);
253
254 GetAttr(STRINGA_TextVal, udata->NameString, (IPTR *)&fontname);
255 GetAttr(STRINGA_LongVal, udata->SizeString, (IPTR *)&fontsize);
256
257 FORestore(ld, fontname, fontsize, AslBase);
258
259 }
260
261 return IsListEmpty(&udata->NameListviewList) ? ERROR_NO_MORE_ENTRIES : 0;
262
263 }
264
265 /*****************************************************************************************/
266
267 void FOFreeFonts(struct LayoutData *ld, struct AslBase_intern *AslBase)
268 {
269 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
270 struct ASLVFontReqNode *node, *succ;
271 struct TagItem set_tags[] =
272 {
273 {ASLLV_Labels, 0 },
274 {TAG_DONE }
275 };
276
277 udata->ActiveFont = NULL;
278
279 if (udata->NameListview) SetGadgetAttrsA((struct Gadget *)udata->NameListview, ld->ld_Window, NULL, set_tags);
280 if (udata->SizeListview) SetGadgetAttrsA((struct Gadget *)udata->SizeListview, ld->ld_Window, NULL, set_tags);
281
282 ForeachNodeSafe(&udata->NameListviewList, node, succ)
283 {
284 MyFreeVecPooled(node, AslBase);
285 }
286
287 NEWLIST(&udata->NameListviewList);
288
289 if (udata->AFH)
290 {
291 FreeVec(udata->AFH);
292 udata->AFH = NULL;
293 }
294 }
295
296 /*****************************************************************************************/
297
298 VOID FOUpdatePreview(struct LayoutData *ld, struct AslBase_intern *AslBase)
299 {
300 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
301 struct IntReq *intreq = ld->ld_IntReq;
302 struct IntFontReq *iforeq = (struct IntFontReq *)ld->ld_IntReq;
303 struct TextAttr ta;
304 struct TextFont *font;
305 IPTR val;
306 STRPTR name;
307
308 GetAttr(STRINGA_LongVal, udata->SizeString, &val);
309 ta.ta_YSize = (WORD)val;
310 ta.ta_Flags = 0;
311 ta.ta_Style = 0;
312
313 GetAttr(STRINGA_TextVal, udata->NameString, (IPTR *)&name);
314 if ((name = VecPooledCloneString(name, ".font", intreq->ir_MemPool, AslBase)))
315 {
316 UBYTE style = FS_NORMAL;
317 UBYTE apen = iforeq->ifo_FrontPen;
318 UBYTE bpen = iforeq->ifo_BackPen;
319
320 ta.ta_Name = name;
321
322 if (iforeq->ifo_Flags & FOF_DOSTYLE)
323 {
324 style = FOGetStyle(ld, AslBase);
325 }
326
327 if (iforeq->ifo_Flags & FOF_DOFRONTPEN)
328 {
329 apen = FOGetFGColor(ld, AslBase);
330 }
331
332 if (iforeq->ifo_Flags & FOF_DOBACKPEN)
333 {
334 bpen = FOGetBGColor(ld, AslBase);
335 }
336
337 font = OpenDiskFont(&ta);
338 {
339 struct TagItem settags[] =
340 {
341 {ASLFP_Font , (IPTR)font },
342 {ASLFP_Style, style },
343 {ASLFP_APen , apen },
344 {ASLFP_BPen , bpen },
345 {TAG_DONE }
346 };
347
348 SetGadgetAttrsA((struct Gadget *)udata->Preview, ld->ld_Window, NULL, settags);
349 }
350
351 if (udata->PreviewFont) CloseFont(udata->PreviewFont);
352 udata->PreviewFont = font;
353
354 MyFreeVecPooled(name, AslBase);
355 }
356 }
357
358 /*****************************************************************************************/
359
360 struct ASLLVFontReqNode *FOGetActiveFont(struct LayoutData *ld, struct AslBase_intern *AslBase)
361 {
362 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
363 IPTR active;
364
365 GetAttr(ASLLV_Active, udata->NameListview, &active);
366
367 return (struct ASLLVFontReqNode *)FindListNode(&udata->NameListviewList, active);
368 }
369
370 /*****************************************************************************************/
371
372 void FOChangeActiveFont(struct LayoutData *ld, WORD delta, UWORD quali, BOOL jump, struct AslBase_intern *AslBase)
373 {
374 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
375 IPTR active, total, visible, size;
376
377 GetAttr(ASLLV_Active , udata->NameListview, &active );
378 GetAttr(ASLLV_Total , udata->NameListview, &total );
379 GetAttr(ASLLV_Visible , udata->NameListview, &visible);
380 GetAttr(STRINGA_LongVal, udata->SizeString , &size );
381
382 if (total)
383 {
384 if (quali & (IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT))
385 {
386 delta *= (visible - 1);
387 }
388 else if (quali & (IEQUALIFIER_LALT | IEQUALIFIER_RALT | IEQUALIFIER_CONTROL))
389 {
390 delta *= total;
391 }
392 else if (jump)
393 {
394 /* try to jump to first item which matches text in name string gadget,
395 but only if text in string gadget mismatches actual active
396 item's text (in this case move normally = one step)) */
397
398 struct ASLLVFontReqNode *node;
399 UBYTE buffer[MAXFONTNAME + 2];
400 STRPTR val;
401 WORD i, len;
402 BOOL dojump = TRUE;
403
404 GetAttr(STRINGA_TextVal, udata->NameString, (IPTR *)&val);
405 strcpy(buffer, val);
406
407 len = strlen(buffer);
408
409 if (len)
410 {
411 if (((LONG)active) >= 0)
412 {
413 if ((node = (struct ASLLVFontReqNode *)FindListNode(&udata->NameListviewList, (WORD)active)))
414 {
415 if (stricmp(node->node.ln_Name, buffer) == 0) dojump = FALSE;
416 }
417 }
418
419 if (dojump)
420 {
421 i = 0;
422 ForeachNode(&udata->NameListviewList, node)
423 {
424 if (Strnicmp((CONST_STRPTR)node->node.ln_Name, (CONST_STRPTR)buffer, len) == 0)
425 {
426 active = i;
427 delta = 0;
428 break;
429 }
430 i++;
431 }
432
433 } /* if (dojump) */
434
435 } /* if (len) */
436 }
437
438 active += delta;
439
440 if (((LONG)active) < 0) active = 0;
441 if (active >= total) active = total - 1;
442
443 FOActivateFont(ld, active, (LONG)size, AslBase);
444 }
445 }
446
447 /*****************************************************************************************/
448
449 void FOChangeActiveSize(struct LayoutData *ld, WORD delta, UWORD quali, struct AslBase_intern *AslBase)
450 {
451 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
452 IPTR active, total, visible;
453
454 GetAttr(ASLLV_Active , udata->SizeListview, &active );
455 GetAttr(ASLLV_Total , udata->SizeListview, &total );
456 GetAttr(ASLLV_Visible, udata->SizeListview, &visible);
457
458 if (total)
459 {
460 if (quali & (IEQUALIFIER_LSHIFT | IEQUALIFIER_RSHIFT))
461 {
462 delta *= (visible - 1);
463 }
464 else if (quali & (IEQUALIFIER_LALT | IEQUALIFIER_RALT | IEQUALIFIER_CONTROL))
465 {
466 delta *= total;
467 }
468
469 active += delta;
470
471 if (((LONG)active) < 0) active = 0;
472 if (active >= total) active = total - 1;
473
474 FOActivateSize(ld, active, AslBase);
475 }
476 }
477
478 /*****************************************************************************************/
479
480 void FOActivateFont(struct LayoutData *ld, WORD which, LONG size, struct AslBase_intern *AslBase)
481 {
482 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
483 // struct IntFontReq *iforeq = (struct IntFontReq *)ld->ld_IntReq;
484 struct ASLLVFontReqNode *fontnode;
485 struct Node *node;
486 struct TagItem name_tags[] =
487 {
488 {ASLLV_Active , 0 },
489 {ASLLV_MakeVisible , 0 },
490 {TAG_DONE }
491 };
492 struct TagItem size_tags[] =
493 {
494 {ASLLV_Labels , 0 },
495 {ASLLV_Active , (IPTR)-1 },
496 {ASLLV_MakeVisible , 0 },
497 {TAG_DONE }
498 };
499 WORD sizelvindex = 0;
500
501 fontnode = (struct ASLLVFontReqNode *)FindListNode(&udata->NameListviewList, which);
502 udata->ActiveFont = fontnode;
503
504 if (!fontnode)
505 {
506 SetGadgetAttrsA((struct Gadget *)udata->SizeListview, ld->ld_Window, NULL, size_tags);
507
508 name_tags[0].ti_Data = (IPTR)-1;
509 name_tags[1].ti_Tag = TAG_IGNORE;
510 SetGadgetAttrsA((struct Gadget *)udata->NameListview, ld->ld_Window, NULL, name_tags);
511 }
512 else
513 {
514 name_tags[0].ti_Data = name_tags[1].ti_Data = which;
515 SetGadgetAttrsA((struct Gadget *)udata->NameListview, ld->ld_Window, NULL, name_tags);
516
517 size_tags[0].ti_Data = (IPTR)&fontnode->SizeList;
518 ForeachNode(&fontnode->SizeList, node)
519 {
520 MARK_UNSELECTED(node);
521 if ((LONG)node->ln_Name == size)
522 {
523 size_tags[1].ti_Data = size_tags[2].ti_Data = sizelvindex;
524 }
525 sizelvindex++;
526 }
527 SetGadgetAttrsA((struct Gadget *)udata->SizeListview, ld->ld_Window, NULL, size_tags);
528
529 FOSetFontString(fontnode->node.ln_Name, ld, AslBase);
530 }
531
532 FOUpdatePreview(ld, AslBase);
533 }
534
535 /*****************************************************************************************/
536
537 void FOActivateSize(struct LayoutData *ld, WORD which, struct AslBase_intern *AslBase)
538 {
539 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
540 // struct IntFontReq *iforeq = (struct IntFontReq *)ld->ld_IntReq;
541 struct Node *node;
542 struct TagItem size_tags[] =
543 {
544 {ASLLV_Active , 0 },
545 {ASLLV_MakeVisible , 0 },
546 {TAG_DONE }
547 };
548
549 if (!udata->ActiveFont) return;
550
551 if (which >= 0)
552 {
553 node = FindListNode(&udata->ActiveFont->SizeList, which);
554 }
555 else
556 {
557 LONG size = -which;
558 BOOL found = FALSE;
559
560 which = 0;
561 ForeachNode(&udata->ActiveFont->SizeList, node)
562 {
563 if ((LONG)node->ln_Name == size)
564 {
565 found = TRUE;
566 break;
567 }
568 which++;
569 }
570
571 if (!found) node = NULL;
572 }
573
574 size_tags[0].ti_Data = node ? which : -1;
575 size_tags[1].ti_Data = node ? which : 0;
576
577 SetGadgetAttrsA((struct Gadget *)udata->SizeListview, ld->ld_Window, NULL, size_tags);
578
579 if (node) FOSetSizeString((LONG)node->ln_Name, ld, AslBase);
580
581 FOUpdatePreview(ld, AslBase);
582 }
583
584 /*****************************************************************************************/
585
586 void FORestore(struct LayoutData *ld, STRPTR fontname, LONG fontsize, struct AslBase_intern *AslBase)
587 {
588 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
589 struct IntFontReq *iforeq = (struct IntFontReq *)ld->ld_IntReq;
590 struct ASLLVFontReqNode *fontnode;
591 struct TagItem set_tags[] =
592 {
593 {ASLLV_Labels , 0 },
594 {TAG_DONE }
595 };
596 UBYTE initialfontname[MAXFONTNAME + 2];
597 char *sp;
598 WORD i = 0;
599
600 strncpy(initialfontname, fontname, MAXFONTNAME + 1);
601 if ((sp = strchr(initialfontname, '.'))) *sp = '\0';
602
603 FOSetSizeString(fontsize, ld, AslBase);
604
605 SetGadgetAttrsA((struct Gadget *)udata->SizeListview, ld->ld_Window, NULL, set_tags);
606
607 ForeachNode(&udata->NameListviewList, fontnode)
608 {
609 if (stricmp(fontnode->node.ln_Name, initialfontname) == 0) break;
610 i++;
611 }
612
613 if (iforeq->ifo_Flags & FOF_DODRAWMODE)
614 {
615 FOSetDrawMode(ld, iforeq->ifo_DrawMode, AslBase);
616 }
617
618 if (iforeq->ifo_Flags & FOF_DOSTYLE)
619 {
620 FOSetStyle(ld, iforeq->ifo_TextAttr.ta_Style, AslBase);
621 }
622
623 if (iforeq->ifo_Flags & FOF_DOFRONTPEN)
624 {
625 FOSetFGColor(ld, iforeq->ifo_FrontPen, AslBase);
626 }
627
628 if (iforeq->ifo_Flags & FOF_DOBACKPEN)
629 {
630 FOSetBGColor(ld, iforeq->ifo_BackPen, AslBase);
631 }
632
633 FOActivateFont(ld, i, fontsize, AslBase);
634 }
635
636 /*****************************************************************************************/
637
638 void FOSetFontString(STRPTR name, struct LayoutData *ld, struct AslBase_intern *AslBase)
639 {
640 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
641 struct TagItem set_tags[] =
642 {
643 {STRINGA_TextVal , (IPTR)name },
644 {TAG_DONE }
645 };
646
647 SetGadgetAttrsA((struct Gadget *)udata->NameString, ld->ld_Window, NULL, set_tags);
648 }
649
650 /*****************************************************************************************/
651
652 void FOSetSizeString(LONG size, struct LayoutData *ld, struct AslBase_intern *AslBase)
653 {
654 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
655 struct TagItem set_tags[] =
656 {
657 {STRINGA_LongVal , (IPTR)size },
658 {TAG_DONE }
659 };
660
661 SetGadgetAttrsA((struct Gadget *)udata->SizeString, ld->ld_Window, NULL, set_tags);
662 }
663
664 /*****************************************************************************************/
665
666 LONG FOGetDrawMode(struct LayoutData *ld, struct AslBase_intern *AslBase)
667 {
668 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
669 IPTR active;
670
671 ASSERT(udata->DrawModeGadget);
672
673 GetAttr(ASLCY_Active, udata->DrawModeGadget, &active);
674
675 return (LONG)active;
676 }
677
678 /*****************************************************************************************/
679
680 void FOSetDrawMode(struct LayoutData *ld, UWORD id, struct AslBase_intern *AslBase)
681 {
682 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
683 struct TagItem set_tags[] =
684 {
685 {ASLCY_Active , id },
686 {TAG_DONE }
687 };
688
689 ASSERT(udata->DrawModeGadget);
690
691 SetGadgetAttrsA((struct Gadget *)udata->DrawModeGadget, ld->ld_Window, NULL, set_tags);
692
693 }
694
695 /*****************************************************************************************/
696
697 UBYTE FOGetStyle(struct LayoutData *ld, struct AslBase_intern *AslBase)
698 {
699 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
700 IPTR style;
701
702 ASSERT(udata->StyleGadget);
703
704 GetAttr(ASLFS_Style, udata->StyleGadget, &style);
705
706 return (UBYTE)style;
707 }
708
709 /*****************************************************************************************/
710
711 void FOSetStyle(struct LayoutData *ld, UBYTE style, struct AslBase_intern *AslBase)
712 {
713 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
714 struct TagItem set_tags[] =
715 {
716 {ASLFS_Style , style },
717 {TAG_DONE }
718 };
719
720 ASSERT(udata->StyleGadget);
721
722 SetGadgetAttrsA((struct Gadget *)udata->StyleGadget, ld->ld_Window, NULL, set_tags);
723
724 }
725
726 /*****************************************************************************************/
727
728 UBYTE FOGetFGColor(struct LayoutData *ld, struct AslBase_intern *AslBase)
729 {
730 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
731 IPTR color;
732
733 ASSERT(udata->FGColorGadget);
734
735 GetAttr(ASLCP_Color, udata->FGColorGadget, &color);
736
737 return (UBYTE)color;
738 }
739
740 /*****************************************************************************************/
741
742 void FOSetFGColor(struct LayoutData *ld, UBYTE color, struct AslBase_intern *AslBase)
743 {
744 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
745 struct TagItem set_tags[] =
746 {
747 {ASLCP_Color , color },
748 {TAG_DONE }
749 };
750
751 ASSERT(udata->FGColorGadget);
752
753 SetGadgetAttrsA((struct Gadget *)udata->FGColorGadget, ld->ld_Window, NULL, set_tags);
754
755 }
756
757 /*****************************************************************************************/
758
759 UBYTE FOGetBGColor(struct LayoutData *ld, struct AslBase_intern *AslBase)
760 {
761 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
762 IPTR color;
763
764 ASSERT(udata->BGColorGadget);
765
766 GetAttr(ASLCP_Color, udata->BGColorGadget, &color);
767
768 return (UBYTE)color;
769 }
770
771 /*****************************************************************************************/
772
773 void FOSetBGColor(struct LayoutData *ld, UBYTE color, struct AslBase_intern *AslBase)
774 {
775 struct FOUserData *udata = (struct FOUserData *)ld->ld_UserData;
776 struct TagItem set_tags[] =
777 {
778 {ASLCP_Color , color },
779 {TAG_DONE }
780 };
781
782 ASSERT(udata->BGColorGadget);
783
784 SetGadgetAttrsA((struct Gadget *)udata->BGColorGadget, ld->ld_Window, NULL, set_tags);
785
786 }
787
788 /*****************************************************************************************/
789
A totally sweet operating system