?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Changes to the List tab:
[AROS.git] / test / Zune / test.c
blob980c594a0d9ae30b7d37bbff7c912355461a5ab8
1 /*
2 Copyright © 2002-2016, The AROS Development Team.
3 All rights reserved.
4
5 $Id$
6 */
7
8 #define INTUITION_NO_INLINE_STDARG
9
10 #include <exec/types.h>
11 #include <stdlib.h>
12 #include <stdio.h>
13 #include <string.h>
14
15 #include <clib/alib_protos.h>
16 #include <intuition/gadgetclass.h>
17 #include <intuition/icclass.h>
18 #include <libraries/asl.h>
19 #include <gadgets/colorwheel.h>
20 #include <proto/exec.h>
21 #include <proto/intuition.h>
22 #include <proto/dos.h>
23 #include <proto/muimaster.h>
24 #include <proto/graphics.h>
25 #include <aros/debug.h>
26
27 /* the following should go in a single include file which then only
28 ** consists of the public constants and members. Actually this is easy
29 */
30
31 #if 0
32 #define TEST_ICONLIST
33 #endif
34
35 #include <libraries/mui.h>
36 #if defined(TEST_ICONLIST)
37 #include "../../workbench/system/Wanderer/Classes/iconlist_attributes.h"
38 #include "../../workbench/system/Wanderer/Classes/iconlist.h"
39 #endif
40
41 #define STRING_COUNT 6
42 #define LIST_COUNT 5
43 #define MULTI_LIST_COUNT 2
44
45 #define NUMERIC_MIN 0
46 #define NUMERIC_MAX 100
47
48 static const TEXT digits[] = "-0123456789";
49 static const TEXT vowels[] = "aeiou";
50 static const TEXT default_accept_chars[] = "aeiou?.";
51 static const TEXT default_reject_chars[] = "*?";
52 static const ULONG default_color[] = {155 << 24, 180 << 24, 255 << 24};
53 static const struct MUI_PenSpec default_penspec = {"m0"};
54 static const char *fruits[] = {"Strawberry", "Apple", "Banana", "Orange",
55 "Grapefruit", "Kumquat", "Plum", "Raspberry", "Apricot", "Grape",
56 "Peach", "Lemon", "Lime", "Date", "Pineapple", "Blueberry", "Papaya",
57 "Cranberry", "Gooseberry", "Pear", "Fig", "Coconut", "Melon",
58 "Pumpkin", NULL};
59 static const char *empty[] = {"", "", "", "", "", NULL};
60 static const LONG list_active_positions[] =
61 {
62 MUIV_List_Active_Top,
63 MUIV_List_Active_Bottom,
64 MUIV_List_Active_Off,
65 MUIV_List_Active_Off,
66 MUIV_List_Active_Off
67 };
68 static const CONST_STRPTR list_move1_modes[] =
69 {"Index", "Top", "Active", "Bottom", NULL};
70 static const CONST_STRPTR list_move2_modes[] =
71 {"Index", "Top", "Active", "Bottom", "Next", "Previous", NULL};
72 static const CONST_STRPTR list_jump_modes[] =
73 {"Index", "Top", "Active", "Bottom", "Down", "Up", NULL};
74 static const CONST_STRPTR list_insert_modes[] =
75 {"Index", "Top", "Active", "Sorted", "Bottom", NULL};
76 static const CONST_STRPTR list_remove_modes[] =
77 {"Index", "First", "Active", "Last", "Selected", "Unsafe Loop",
78 "Safe Loop", NULL};
79 static const CONST_STRPTR list_activate_modes[] =
80 {"Index", "Top", "Bottom", "Up", "Down", "Page Up", "Page Down", NULL};
81 static const CONST_STRPTR list_select_modes[] =
82 {"Index", "Active", "All", NULL};
83 static const TEXT list_format[] = "BAR,BAR,";
84
85 enum
86 {
87 HNSLIDER,
88 HRSLIDER,
89 HQSLIDER,
90 VNSLIDER,
91 VRSLIDER,
92 VQSLIDER,
93 NNUMERICBUTTON,
94 RNUMERICBUTTON,
95 NKNOB,
96 RKNOB,
97 NUMERIC_COUNT
98 };
99
100 struct Library *MUIMasterBase;
101 struct Library *ColorWheelBase;
102
103 struct list_entry
104 {
105 char *column1;
106 char *column2;
107 };
108
109 Object *app, *wnd;
110
111 static struct
112 {
113 Object *strings[STRING_COUNT],
114 *accept_string,
115 *reject_string,
116 *cursor_pos_slider,
117 *display_pos_slider,
118 *integer_string,
119 *plaintext_string,
120 *max_len_text,
121 *cr_advance_check,
122 *attach_list_check,
123 *standard_hook_check,
124 *custom_hook_check,
125 *accept_all_check;
126 }
127 string;
128
129 static struct
130 {
131 Object *lists[LIST_COUNT],
132 *list_radios,
133 *index1_string,
134 *index2_string,
135 *title_string,
136 *move1_cycle,
137 *move2_cycle,
138 *jump_cycle,
139 *select_cycle,
140 *insert_cycle,
141 *remove_cycle,
142 *activate_cycle,
143 *sort_button,
144 *clear_button,
145 *enable_button,
146 *reset_button,
147 *select_button,
148 *deselect_button,
149 *toggle_button,
150 *move_button,
151 *exchange_button,
152 *jump_button,
153 *redraw_button,
154 *insert_single_button,
155 *insert_multiple_button,
156 *remove_button,
157 *activate_button,
158 *deactivate_button,
159 *draggable_check,
160 *showdropmarks_check,
161 *multitest_check,
162 *quiet_check,
163 *dragsortable_check,
164 *autovisible_check,
165 *entries_text,
166 *visible_text,
167 *first_text,
168 *insert_text,
169 *active_text,
170 *drop_text,
171 *multi_lists[MULTI_LIST_COUNT],
172 *colorfield,
173 *format_string,
174 *column_string,
175 *column_text,
176 *def_column_string,
177 *showheadings_check,
178 *showimage_check;
179 LONG quiet[LIST_COUNT],
180 destruct_count,
181 has_multitest[LIST_COUNT];
182 IPTR image;
183 }
184 list;
185
186 static Object *wheel;
187 static Object *r_slider;
188 static Object *g_slider;
189 static Object *b_slider;
190 static Object *hue_gauge;
191 static Object *colorfield, *colorfield2, *colorfield_reset_button,
192 *colorfield_pen;
193 static Object *coloradjust;
194 static Object *pendisplay, *pendisplay2, *pendisplay_pen, *pendisplay_spec,
195 *reference_check, *shine_button, *shadow_button, *yellow_button, *poppen;
196 static Object *group;
197 static Object *editor_text;
198 static Object *filename_string;
199 static Object *save_button;
200 static struct Hook hook_standard;
201 static struct Hook hook;
202 static struct Hook hook_wheel;
203 static struct Hook hook_slider;
204 static struct Hook hook_objects;
205 static struct Hook hook_compare, hook_multitest;
206 static struct Hook hook_construct, hook_destruct, hook_display;
207 static struct Hook hook_objstr;
208
209 #if defined(TEST_ICONLIST)
210 static Object *drawer_iconlist;
211 static Object *volume_iconlist;
212 #endif
213
214 AROS_UFH0(void, repeat_function)
215 {
216 AROS_USERFUNC_INIT
217
218 printf("MUI_Timer\n");
219
220 AROS_USERFUNC_EXIT
221 }
222
223 AROS_UFH0(void, wheel_function)
224 {
225 AROS_USERFUNC_INIT
226
227 nnset(r_slider, MUIA_Numeric_Value, (XGET(wheel,
228 WHEEL_Red) >> 24) & 0xff);
229 nnset(g_slider, MUIA_Numeric_Value, (XGET(wheel,
230 WHEEL_Green) >> 24) & 0xff);
231 nnset(b_slider, MUIA_Numeric_Value, (XGET(wheel,
232 WHEEL_Blue) >> 24) & 0xff);
233
234 AROS_USERFUNC_EXIT
235 }
236
237 AROS_UFH0(void, slider_function)
238 {
239 AROS_USERFUNC_INIT
240
241 struct ColorWheelRGB cw;
242 ULONG red = XGET(r_slider, MUIA_Numeric_Value);
243 ULONG green = XGET(g_slider, MUIA_Numeric_Value);
244 ULONG blue = XGET(b_slider, MUIA_Numeric_Value);
245
246 cw.cw_Red = (red << 24) | (red << 16) | (red << 8) | red;
247 cw.cw_Green = (green << 24) | (green << 16) | (green << 8) | green;
248 cw.cw_Blue = (blue << 24) | (blue << 16) | (blue << 8) | blue;
249
250 nnset(wheel, WHEEL_RGB, &cw);
251 set(hue_gauge, MUIA_Gauge_Current, XGET(wheel, WHEEL_Hue));
252
253 AROS_USERFUNC_EXIT
254 }
255
256 AROS_UFH0(void, objects_function)
257 {
258 AROS_USERFUNC_INIT
259
260 Object *new_obj = MUI_MakeObject(MUIO_Button, "Button");
261 if (new_obj)
262 {
263 DoMethod(group, MUIM_Group_InitChange);
264 DoMethod(group, OM_ADDMEMBER, new_obj);
265 DoMethod(group, MUIM_Group_ExitChange);
266 }
267
268 AROS_USERFUNC_EXIT
269 }
270
271 static void About(void)
272 {
273 static Object *about_wnd;
274
275 if (!about_wnd)
276 {
277 about_wnd = AboutmuiObject, MUIA_Aboutmui_Application, app, End;
278 }
279
280 if (about_wnd)
281 set(about_wnd, MUIA_Window_Open, TRUE);
282 }
283
284 AROS_UFH3(static void, ObjStrHook,
285 AROS_UFHA(struct Hook *, h, A0),
286 AROS_UFHA(Object *, group, A2),
287 AROS_UFHA(Object *, str, A1))
288 {
289 AROS_USERFUNC_INIT
290
291 struct List *child_list = NULL;
292 Object *child, *list;
293 struct list_entry *entry;
294
295 /* Find the listview object within its group */
296 GET(group, MUIA_Group_ChildList, &child_list);
297 child = (APTR)child_list->lh_Head;
298 NextObject(&child);
299 list = NextObject(&child);
300
301 /* Copy one of the selected entry's fields to the string gadget */
302 DoMethod(list, MUIM_List_GetEntry, MUIV_List_GetEntry_Active, &entry);
303 SET(str, MUIA_String_Contents, entry->column1);
304
305 AROS_USERFUNC_EXIT
306 }
307
308 static void ChangeStringAccept(void)
309 {
310 STRPTR accept_chars = NULL, reject_chars = NULL;
311 BOOL accept_all;
312 UWORD i;
313
314 accept_all = XGET(string.accept_all_check, MUIA_Selected);
315 SET(string.accept_string, MUIA_Disabled, accept_all);
316 SET(string.reject_string, MUIA_Disabled, accept_all);
317
318 if (!accept_all)
319 {
320 GET(string.accept_string, MUIA_String_Contents, &accept_chars);
321 GET(string.reject_string, MUIA_String_Contents, &reject_chars);
322 }
323
324 for (i = 0; i < STRING_COUNT; i++)
325 {
326 SET(string.strings[i], MUIA_String_Accept, accept_chars);
327 SET(string.strings[i], MUIA_String_Reject, reject_chars);
328 }
329 }
330
331 static void ChangePen(void)
332 {
333 SIPTR pen = -1;
334
335 GET(colorfield_pen, MUIA_String_Integer, &pen);
336 if (pen >= 0)
337 SET(colorfield, MUIA_Colorfield_Pen, pen);
338 }
339
340 static void ChangePendisplayPen(void)
341 {
342 DoMethod(pendisplay, MUIM_Pendisplay_SetColormap,
343 XGET(pendisplay_pen, MUIA_String_Integer));
344 }
345
346 AROS_UFH3(static IPTR, ListCompareHook,
347 AROS_UFHA(struct Hook *, h, A0),
348 AROS_UFHA(CONST_STRPTR, str1, A2),
349 AROS_UFHA(CONST_STRPTR, str2, A1))
350 {
351 AROS_USERFUNC_INIT
352
353 IPTR len1, len2;
354
355 len1 = strlen(str1);
356 len2 = strlen(str2);
357
358 /* Indicate which string is shorter */
359 return len2 - len1;
360
361 AROS_USERFUNC_EXIT
362 }
363
364 AROS_UFH3(static IPTR, ListMultiTestHook,
365 AROS_UFHA(struct Hook *, h, A0),
366 AROS_UFHA(APTR, unused, A2),
367 AROS_UFHA(CONST_STRPTR, str, A1))
368 {
369 AROS_USERFUNC_INIT
370
371 /* Indicate whether the string doesn't begin with a vowel */
372 return strchr(vowels, tolower(str[0])) == NULL;
373
374 AROS_USERFUNC_EXIT
375 }
376
377 static void ChangeListTitle(void)
378 {
379 STRPTR title = NULL;
380 UWORD i;
381
382 i = XGET(list.list_radios, MUIA_Radio_Active);
383
384 GET(list.lists[i], MUIA_List_Title, &title);
385 FreeVec(title);
386
387 GET(list.title_string, MUIA_String_Contents, &title);
388 if (title[0] == '\0')
389 title = NULL;
390
391 title = StrDup(title);
392
393 SET(list.lists[i], MUIA_List_Title, title);
394 }
395
396 static void UpdateListInfo(void)
397 {
398 STRPTR title = NULL;
399 UWORD i;
400 LONG value = 0;
401
402 i = XGET(list.list_radios, MUIA_Radio_Active);
403
404 GET(list.lists[i], MUIA_Listview_DragType, &value);
405 NNSET(list.draggable_check, MUIA_Selected,
406 value != MUIV_Listview_DragType_None);
407 NNSET(list.dragsortable_check, MUIA_Disabled,
408 value == MUIV_Listview_DragType_None);
409 if (value == MUIV_Listview_DragType_None)
410 value = FALSE;
411 else
412 GET(list.lists[i], MUIA_List_DragSortable, &value);
413 NNSET(list.dragsortable_check, MUIA_Selected, value);
414 GET(list.lists[i], MUIA_List_ShowDropMarks, &value);
415 NNSET(list.showdropmarks_check, MUIA_Selected, value);
416 value = list.has_multitest[i]; // MUIA_List_MultiTestHook isn't gettable!
417 NNSET(list.multitest_check, MUIA_Selected, value);
418 value = list.quiet[i]; // MUIA_List_Quiet is not gettable!
419 NNSET(list.quiet_check, MUIA_Selected, value);
420 GET(list.lists[i], MUIA_List_AutoVisible, &value);
421 NNSET(list.autovisible_check, MUIA_Selected, value);
422
423 GET(list.lists[i], MUIA_List_Title, &title);
424 NNSET(list.title_string, MUIA_String_Contents, title);
425
426 GET(list.lists[i], MUIA_List_Entries, &value);
427 DoMethod(list.entries_text, MUIM_SetAsString, MUIA_Text_Contents,
428 "%ld", value);
429 GET(list.lists[i], MUIA_List_Visible, &value);
430 DoMethod(list.visible_text, MUIM_SetAsString, MUIA_Text_Contents,
431 "%ld", value);
432 GET(list.lists[i], MUIA_List_First, &value);
433 DoMethod(list.first_text, MUIM_SetAsString, MUIA_Text_Contents,
434 "%ld", value);
435 GET(list.lists[i], MUIA_List_InsertPosition, &value);
436 DoMethod(list.insert_text, MUIM_SetAsString, MUIA_Text_Contents,
437 "%ld", value);
438 GET(list.lists[i], MUIA_List_Active, &value);
439 if (value == MUIV_List_Active_Off)
440 SET(list.active_text, MUIA_Text_Contents, "N/A");
441 else
442 DoMethod(list.active_text, MUIM_SetAsString, MUIA_Text_Contents,
443 "%ld", value);
444 GET(list.lists[i], MUIA_List_DropMark, &value);
445 DoMethod(list.drop_text, MUIM_SetAsString, MUIA_Text_Contents,
446 "%ld", value);
447 }
448
449 static void ListGetVisible(void)
450 {
451 UWORD i;
452 LONG value = 0;
453
454 i = XGET(list.list_radios, MUIA_Radio_Active);
455
456 GET(list.lists[i], MUIA_List_Visible, &value);
457 DoMethod(list.visible_text, MUIM_SetAsString, MUIA_Text_Contents,
458 "%ld", value);
459 }
460
461 static void ListGetFirst(void)
462 {
463 UWORD i;
464 LONG value = 0;
465 Object *real_list;
466
467 i = XGET(list.list_radios, MUIA_Radio_Active);
468
469 /* We fetch the Listview's list here to provide test coverage for that
470 attribute. Please don't optimise */
471 real_list = (Object *)XGET(list.lists[i], MUIA_Listview_List);
472 GET(real_list, MUIA_List_First, &value);
473 DoMethod(list.first_text, MUIM_SetAsString, MUIA_Text_Contents,
474 "%ld", value);
475 }
476
477 static void ListSetDraggable(void)
478 {
479 UWORD i;
480 LONG value = 0;
481
482 i = XGET(list.list_radios, MUIA_Radio_Active);
483
484 GET(list.draggable_check, MUIA_Selected, &value);
485 SET(list.lists[i], MUIA_Listview_DragType, value ?
486 MUIV_Listview_DragType_Immediate : MUIV_Listview_DragType_None);
487 }
488
489 static void ListSetShowDropMarks(void)
490 {
491 UWORD i;
492 LONG value = 0;
493
494 i = XGET(list.list_radios, MUIA_Radio_Active);
495
496 GET(list.showdropmarks_check, MUIA_Selected, &value);
497 SET(list.lists[i], MUIA_List_ShowDropMarks, value);
498 }
499
500 static void ListSetMultiTest(void)
501 {
502 UWORD i;
503 LONG value = 0;
504
505 i = XGET(list.list_radios, MUIA_Radio_Active);
506
507 GET(list.multitest_check, MUIA_Selected, &value);
508 SET(list.lists[i], MUIA_List_MultiTestHook, value ? &hook_multitest : NULL);
509 list.has_multitest[i] = value;
510 }
511
512 static void ListSetQuiet(void)
513 {
514 UWORD i;
515 LONG value = 0;
516
517 i = XGET(list.list_radios, MUIA_Radio_Active);
518
519 GET(list.quiet_check, MUIA_Selected, &value);
520 SET(list.lists[i], MUIA_List_Quiet, value);
521 list.quiet[i] = value;
522 }
523
524 static void ListSetDragSortable(void)
525 {
526 UWORD i;
527 LONG value = 0;
528
529 i = XGET(list.list_radios, MUIA_Radio_Active);
530
531 GET(list.dragsortable_check, MUIA_Selected, &value);
532 SET(list.lists[i], MUIA_List_DragSortable, value);
533 }
534
535 static void ListSetAutoVisible(void)
536 {
537 UWORD i;
538 LONG value = 0;
539
540 i = XGET(list.list_radios, MUIA_Radio_Active);
541
542 GET(list.autovisible_check, MUIA_Selected, &value);
543 SET(list.lists[i], MUIA_List_AutoVisible, value);
544 }
545
546 static void ListReset(void)
547 {
548 UWORD i;
549
550 i = XGET(list.list_radios, MUIA_Radio_Active);
551
552 SET(list.lists[i], MUIA_List_Active, list_active_positions[i]);
553 }
554
555 static void ListMove(void)
556 {
557 LONG mode, pos1, pos2;
558 UWORD i;
559
560 i = XGET(list.list_radios, MUIA_Radio_Active);
561
562 mode = XGET(list.move1_cycle, MUIA_Cycle_Active);
563
564 if (mode == 0)
565 pos1 = XGET(list.index1_string, MUIA_String_Integer);
566 else
567 pos1 = 1 - mode;
568
569 mode = XGET(list.move2_cycle, MUIA_Cycle_Active);
570
571 if (mode == 0)
572 pos2 = XGET(list.index2_string, MUIA_String_Integer);
573 else
574 pos2 = 1 - mode;
575
576 DoMethod(list.lists[i], MUIM_List_Move, pos1, pos2);
577 }
578
579 static void ListSort(void)
580 {
581 UWORD i;
582
583 i = XGET(list.list_radios, MUIA_Radio_Active);
584
585 DoMethod(list.lists[i], MUIM_List_Sort);
586 }
587
588 static void ListEnable(void)
589 {
590 UWORD i;
591
592 i = XGET(list.list_radios, MUIA_Radio_Active);
593
594 SET(list.lists[i], MUIA_Disabled, FALSE);
595 }
596
597 static void ListExchange(void)
598 {
599 LONG mode, pos1, pos2;
600 UWORD i;
601
602 i = XGET(list.list_radios, MUIA_Radio_Active);
603
604 mode = XGET(list.move1_cycle, MUIA_Cycle_Active);
605
606 if (mode == 0)
607 pos1 = XGET(list.index1_string, MUIA_String_Integer);
608 else
609 pos1 = 1 - mode;
610
611 mode = XGET(list.move2_cycle, MUIA_Cycle_Active);
612
613 if (mode == 0)
614 pos2 = XGET(list.index2_string, MUIA_String_Integer);
615 else
616 pos2 = 1 - mode;
617
618 DoMethod(list.lists[i], MUIM_List_Exchange, pos1, pos2);
619 }
620
621 static void ListJump(void)
622 {
623 LONG mode, pos;
624 UWORD i;
625
626 i = XGET(list.list_radios, MUIA_Radio_Active);
627
628 mode = XGET(list.jump_cycle, MUIA_Cycle_Active);
629
630 if (mode == 0)
631 pos = XGET(list.index1_string, MUIA_String_Integer);
632 else
633 pos = 1 - mode;
634
635 DoMethod(list.lists[i], MUIM_List_Jump, pos);
636 }
637
638 static void ListSelect(void)
639 {
640 LONG mode, pos;
641 UWORD i;
642
643 i = XGET(list.list_radios, MUIA_Radio_Active);
644
645 mode = XGET(list.select_cycle, MUIA_Cycle_Active);
646
647 if (mode == 0)
648 pos = XGET(list.index1_string, MUIA_String_Integer);
649 else
650 pos = 0 - mode;
651
652 DoMethod(list.lists[i], MUIM_List_Select, pos, MUIV_List_Select_On,
653 NULL);
654 }
655
656 static void ListDeselect(void)
657 {
658 LONG mode, pos;
659 UWORD i;
660
661 i = XGET(list.list_radios, MUIA_Radio_Active);
662
663 mode = XGET(list.select_cycle, MUIA_Cycle_Active);
664
665 if (mode == 0)
666 pos = XGET(list.index1_string, MUIA_String_Integer);
667 else
668 pos = 0 - mode;
669
670 DoMethod(list.lists[i], MUIM_List_Select, pos, MUIV_List_Select_Off,
671 NULL);
672 }
673
674 static void ListToggle(void)
675 {
676 LONG mode, pos;
677 UWORD i;
678
679 i = XGET(list.list_radios, MUIA_Radio_Active);
680
681 mode = XGET(list.select_cycle, MUIA_Cycle_Active);
682
683 if (mode == 0)
684 pos = XGET(list.index1_string, MUIA_String_Integer);
685 else
686 pos = 0 - mode;
687
688 DoMethod(list.lists[i], MUIM_List_Select, pos,
689 MUIV_List_Select_Toggle, NULL);
690 }
691
692 static void ListRedraw(void)
693 {
694 LONG mode, pos;
695 UWORD i;
696
697 i = XGET(list.list_radios, MUIA_Radio_Active);
698
699 mode = XGET(list.select_cycle, MUIA_Cycle_Active);
700
701 if (mode == 0)
702 pos = XGET(list.index1_string, MUIA_String_Integer);
703 else
704 pos = 0 - mode;
705
706 DoMethod(list.lists[i], MUIM_List_Redraw, pos);
707 }
708
709 static void ListInsertSingle(void)
710 {
711 LONG mode, pos;
712 UWORD i;
713
714 i = XGET(list.list_radios, MUIA_Radio_Active);
715
716 mode = XGET(list.insert_cycle, MUIA_Cycle_Active);
717
718 if (mode == 0)
719 pos = XGET(list.index1_string, MUIA_String_Integer);
720 else
721 pos = 1 - mode;
722
723 DoMethod(list.lists[i], MUIM_List_InsertSingle, "Tomato", pos);
724 }
725
726 static void ListInsert(void)
727 {
728 LONG mode, pos;
729 UWORD i;
730
731 i = XGET(list.list_radios, MUIA_Radio_Active);
732
733 mode = XGET(list.insert_cycle, MUIA_Cycle_Active);
734
735 if (mode == 0)
736 pos = XGET(list.index1_string, MUIA_String_Integer);
737 else
738 pos = 1 - mode;
739
740 DoMethod(list.lists[i], MUIM_List_Insert, fruits, -1, pos);
741 }
742
743 static void ListRemove(void)
744 {
745 LONG mode, pos, count, j, *selections;
746 UWORD i;
747
748 i = XGET(list.list_radios, MUIA_Radio_Active);
749
750 mode = XGET(list.remove_cycle, MUIA_Cycle_Active);
751
752 if (mode == 5)
753 {
754 /* Remove selected entries in a loop to test MUIM_List_NextSelected.
755 This doesn't work as expected in MUI or Zune */
756 pos = MUIV_List_NextSelected_Start - 1;
757 while (pos != MUIV_List_NextSelected_End)
758 {
759 if (pos == MUIV_List_NextSelected_Start - 1)
760 pos++;
761 DoMethod(list.lists[i], MUIM_List_NextSelected, (IPTR) &pos);
762 if (pos != MUIV_List_NextSelected_End)
763 DoMethod(list.lists[i], MUIM_List_Remove, pos);
764 }
765 }
766 else if (mode == 6)
767 {
768 /* Remove selected entries safely by first retrieving them with
769 MUIM_List_NextSelected and then removing them one by one */
770 DoMethod(list.lists[i], MUIM_List_Select, MUIV_List_Select_All,
771 MUIV_List_Select_Ask, &count);
772 if (count == 0)
773 count = 1; /* There may still be an active entry */
774 selections = AllocVec(sizeof(LONG) * count, MEMF_ANY);
775 if (selections != NULL)
776 {
777 pos = MUIV_List_NextSelected_Start;
778 for (j = 0; j < count; j++)
779 {
780 DoMethod(list.lists[i], MUIM_List_NextSelected, (IPTR) &pos);
781 selections[j] = pos;
782 }
783
784 /* We must remove the entries in reverse order; otherwise the
785 later indices will become invalid */
786 while (count > 0)
787 DoMethod(list.lists[i], MUIM_List_Remove, selections[--count]);
788 FreeVec(selections);
789 }
790 }
791 else
792 {
793 if (mode == 0)
794 pos = XGET(list.index1_string, MUIA_String_Integer);
795 else
796 pos = 1 - mode;
797 DoMethod(list.lists[i], MUIM_List_Remove, pos);
798 }
799 }
800
801 static void ListClear(void)
802 {
803 UWORD i;
804
805 i = XGET(list.list_radios, MUIA_Radio_Active);
806
807 DoMethod(list.lists[i], MUIM_List_Clear);
808 }
809
810 static void ListActivate(void)
811 {
812 LONG mode, pos;
813 UWORD i;
814
815 i = XGET(list.list_radios, MUIA_Radio_Active);
816
817 mode = XGET(list.activate_cycle, MUIA_Cycle_Active);
818
819 if (mode == 0)
820 pos = XGET(list.index1_string, MUIA_String_Integer);
821 else
822 pos = -1 - mode;
823
824 SET(list.lists[i], MUIA_List_Active, pos);
825 }
826
827 static void ListDeactivate(void)
828 {
829 UWORD i;
830
831 i = XGET(list.list_radios, MUIA_Radio_Active);
832
833 SET(list.lists[i], MUIA_List_Active, MUIV_List_Active_Off);
834 }
835
836 static void CheckListDoubleClick(void)
837 {
838 LONG value = -1;
839
840 GET(list.multi_lists[1], MUIA_Listview_DoubleClick, &value);
841 MUI_Request(app, wnd, 0, "Test", "OK",
842 "MUIA_Listview_Doubleclick = %ld", value);
843 }
844
845 AROS_UFH3(static APTR, ListConstructHook,
846 AROS_UFHA(struct Hook *, h, A0),
847 AROS_UFHA(APTR, pool, A2),
848 AROS_UFHA(IPTR, n, A1))
849 {
850 AROS_USERFUNC_INIT
851
852 struct list_entry *entry;
853
854 entry = AllocPooled(pool, sizeof(struct list_entry) + 40);
855
856 if (entry != NULL)
857 {
858 entry->column1 = (char *)(entry + 1);
859 entry->column2 = entry->column1 + 20;
860 sprintf(entry->column1, "Entry%ld", (long)n);
861 sprintf(entry->column2, "Col2: Entry%ld", (long)n);
862 }
863
864 return entry;
865
866 AROS_USERFUNC_EXIT
867 }
868
869 AROS_UFH3(static void, ListDestructHook,
870 AROS_UFHA(struct Hook *, h, A0),
871 AROS_UFHA(APTR, pool, A2),
872 AROS_UFHA(struct list_entry *, entry, A1))
873 {
874 AROS_USERFUNC_INIT
875
876 FreePooled(pool, entry, sizeof(struct list_entry) + 40);
877 list.destruct_count++;
878
879 AROS_USERFUNC_EXIT
880 }
881
882 AROS_UFH3(static void, display_function,
883 AROS_UFHA(struct Hook *, h, A0),
884 AROS_UFHA(char **, strings, A2),
885 AROS_UFHA(struct list_entry *, entry, A1))
886 {
887 AROS_USERFUNC_INIT
888
889 static char buf[100];
890
891 if (entry)
892 {
893 if (XGET(list.showimage_check, MUIA_Selected))
894 sprintf(buf, "%ld \33O[%08lx]", (long)*(strings - 1),
895 (long)list.image);
896 else
897 sprintf(buf, "%ld", (long)*(strings - 1));
898 strings[0] = buf;
899 strings[1] = entry->column1;
900 strings[2] = entry->column2;
901 }
902 else
903 {
904 strings[0] = "Number";
905 strings[1] = "Column 1";
906 strings[2] = "Column 2";
907 }
908
909 AROS_USERFUNC_EXIT
910 }
911
912 static void Save(void)
913 {
914 char *text = (char *)XGET(editor_text, MUIA_String_Contents);
915 char *filename = (char *)XGET(filename_string, MUIA_String_Contents);
916 BPTR fh;
917
918 if (!strlen(filename))
919 return;
920
921 if ((fh = Open(filename, MODE_NEWFILE)))
922 {
923 Write(fh, text, strlen(text));
924 Close(fh);
925 }
926 }
927
928 #if defined(TEST_ICONLIST)
929 /* IconList callbacks */
930 static void volume_doubleclicked(void)
931 {
932 char buf[200];
933 struct IconList_Entry *ent = (void *)MUIV_IconList_NextIcon_Start;
934
935 DoMethod(volume_iconlist, MUIM_IconList_NextIcon,
936 MUIV_IconList_NextIcon_Selected, &ent);
937 if ((IPTR) ent == MUIV_IconList_NextIcon_End)
938 return;
939
940 strcpy(buf, ent->label);
941 strcat(buf, ":");
942 }
943
944 static void drawer_doubleclicked(void)
945 {
946 struct IconList_Entry *ent = (void *)MUIV_IconList_NextIcon_Start;
947
948 DoMethod(drawer_iconlist, MUIM_IconList_NextIcon,
949 MUIV_IconList_NextIcon_Selected, &ent);
950 if ((IPTR) ent == MUIV_IconList_NextIcon_End)
951 return;
952 set(drawer_iconlist, MUIA_IconDrawerList_Drawer,
953 ent->ile_IconEntry->ie_IconNode.ln_Name);
954 }
955 #endif
956
957 static IPTR create_balance_column(void)
958 {
959 return (IPTR) VGroup,
960 Child, RectangleObject,
961 GaugeFrame,
962 End,
963 Child, BalanceObject,
964 End,
965 Child, RectangleObject,
966 GaugeFrame,
967 End,
968 Child, BalanceObject,
969 End,
970 Child, RectangleObject,
971 GaugeFrame,
972 End,
973 Child, BalanceObject,
974 End,
975 Child, RectangleObject,
976 GaugeFrame,
977 End,
978 Child, BalanceObject,
979 End,
980 Child, RectangleObject,
981 GaugeFrame,
982 End,
983 End;
984 }
985
986 /* The custom class */
987
988 struct DropText_Data
989 {
990 ULONG times;
991 };
992
993 #ifdef __MAXON__
994 #undef KeymapBase
995 struct Library *KeymapBase;
996 #endif
997
998 #ifndef __AROS__
999 __saveds __asm IPTR dispatcher(register __a0 struct IClass *cl,
1000 register __a2 Object *obj, register __a1 Msg msg)
1001 #else
1002 AROS_UFH3S(IPTR, dispatcher,
1003 AROS_UFHA(Class *, cl, A0),
1004 AROS_UFHA(Object *, obj, A2), AROS_UFHA(Msg, msg, A1))
1005 #endif
1006 {
1007 AROS_USERFUNC_INIT
1008
1009 switch (msg->MethodID)
1010 {
1011 case MUIM_DragQuery:
1012 return MUIV_DragQuery_Accept;
1013 case MUIM_DragDrop:
1014 {
1015 struct DropText_Data *data =
1016 (struct DropText_Data *)INST_DATA(cl, obj);
1017 char buf[100];
1018 data->times++;
1019 sprintf(buf, "%ld times", (long)data->times);
1020 set(obj, MUIA_Text_Contents, buf);
1021 }
1022 }
1023
1024 return DoSuperMethodA(cl, obj, (Msg) msg);
1025
1026 AROS_USERFUNC_EXIT
1027 }
1028
1029 static struct MUI_CustomClass *CL_DropText;
1030
1031 #define DropTextObject BOOPSIOBJMACRO_START(CL_DropText->mcc_Class)
1032
1033 /* Main prog */
1034
1035 AROS_UFH3S(void, hook_func_standard,
1036 AROS_UFHA(struct Hook *, h, A0),
1037 AROS_UFHA(void *, dummy, A2), AROS_UFHA(void **, funcptr, A1))
1038 {
1039 AROS_USERFUNC_INIT
1040
1041 void (*func) (ULONG *) = (void (*)(ULONG *))(*funcptr);
1042
1043 if (func)
1044 func((ULONG *) funcptr + 1);
1045
1046 AROS_USERFUNC_EXIT
1047 }
1048
1049 int main(void)
1050 {
1051 APTR pool;
1052 Object *second_wnd;
1053 Object *open_button;
1054 Object *about_button;
1055 Object *quit_button;
1056 Object *repeat_button;
1057 Object *objects_button;
1058 Object *about_item, *quit_item;
1059 Object *context_menu;
1060 Object *popobject, *listview;
1061 Object *numerics[NUMERIC_COUNT];
1062 Object *min_string, *max_string;
1063 Object *slider_button;
1064 Object *country_radio[2];
1065 CONST_STRPTR title;
1066 UWORD i;
1067 LONG value = 0;
1068
1069 static char *pages[] =
1070 {"General", "Text", "Boopsi", "Color", "Edit", "List", "Gauges",
1071 "Numeric", "Radio",
1072 #if defined(TEST_ICONLIST)
1073 "Icon List",
1074 #endif
1075 "Balancing", NULL};
1076 static char *text_pages[] =
1077 {"Text", "String", NULL};
1078 static char *color_pages[] =
1079 {"Palette", "Colors", "Pens", NULL};
1080 static char *list_pages[] =
1081 {"Single Column", "Multicolumn", NULL};
1082 static char **radio_entries1 = pages;
1083 static char *radio_entries2[] =
1084 {"Paris", "Pataya", "London", "New York", "Reykjavik", NULL};
1085
1086 static IPTR entries[] = {1, 2, 3, 4, 5, 6, (IPTR)NULL};
1087
1088 hook_standard.h_Entry = (HOOKFUNC) hook_func_standard;
1089 hook_objstr.h_Entry = (HOOKFUNC) ObjStrHook;
1090
1091 pool = CreatePool(MEMF_ANY, 4096, 4096);
1092
1093 MUIMasterBase = (struct Library *)OpenLibrary("muimaster.library", 0);
1094
1095 hook.h_Entry = (HOOKFUNC) repeat_function;
1096 hook_wheel.h_Entry = (HOOKFUNC) wheel_function;
1097 hook_slider.h_Entry = (HOOKFUNC) slider_function;
1098 hook_objects.h_Entry = (HOOKFUNC) objects_function;
1099 hook_compare.h_Entry = (HOOKFUNC) ListCompareHook;
1100 hook_multitest.h_Entry = (HOOKFUNC) ListMultiTestHook;
1101 hook_construct.h_Entry = (HOOKFUNC) ListConstructHook;
1102 hook_destruct.h_Entry = (HOOKFUNC) ListDestructHook;
1103 hook_display.h_Entry = (HOOKFUNC) display_function;
1104 list.destruct_count = 0;
1105 list.has_multitest[3] = TRUE;
1106
1107 context_menu = MenustripObject,
1108 MUIA_Family_Child, MenuObject,
1109 MUIA_Menu_Title, "Menutest",
1110 MUIA_Family_Child, about_item = MenuitemObject,
1111 MUIA_Menuitem_Title, "First Test Entry", End,
1112 MUIA_Family_Child, quit_item = MenuitemObject,
1113 MUIA_Menuitem_Title, "Second Test Entry", End,
1114 End,
1115 End;
1116
1117 /* should check the result in a real program! */
1118 CL_DropText = MUI_CreateCustomClass(NULL, MUIC_Text, NULL,
1119 sizeof(struct DropText_Data), dispatcher);
1120 ColorWheelBase = OpenLibrary("gadgets/colorwheel.gadget", 0);
1121
1122 pendisplay = PendisplayObject, MUIA_Pendisplay_Spec, &default_penspec, End;
1123
1124 title = StrDup("Fruits");
1125 list.lists[0] = ListviewObject,
1126 MUIA_Listview_List,
1127 ListObject,
1128 InputListFrame,
1129 MUIA_List_Title, title,
1130 MUIA_List_SourceArray, fruits,
1131 MUIA_List_Active, MUIV_List_Active_Top,
1132 MUIA_List_PoolThreshSize, 256,
1133 MUIA_List_DragSortable, TRUE,
1134 MUIA_List_CompareHook, &hook_compare,
1135 MUIA_ShortHelp,
1136 "Default scroller\nTop entry active\nSorted by length",
1137 End,
1138 MUIA_Listview_MultiSelect,
1139 MUIV_Listview_MultiSelect_None,
1140 MUIA_Listview_DragType, MUIV_Listview_DragType_Immediate,
1141 MUIA_Listview_DoubleClick, TRUE,
1142 MUIA_CycleChain, 1,
1143 End;
1144 list.lists[1] = ListviewObject,
1145 MUIA_Listview_List,
1146 ListObject,
1147 InputListFrame,
1148 MUIA_List_SourceArray, fruits,
1149 MUIA_List_Active, MUIV_List_Active_Bottom,
1150 MUIA_List_PoolPuddleSize, 512,
1151 MUIA_List_AutoVisible, TRUE,
1152 MUIA_ShortHelp,
1153 "Left scroller\nBottom entry active\nSorted alphabetically",
1154 End,
1155 MUIA_Listview_ScrollerPos,
1156 MUIV_Listview_ScrollerPos_Left,
1157 MUIA_Listview_DragType, MUIV_Listview_DragType_None,
1158 MUIA_CycleChain, 1,
1159 End;
1160 list.lists[2] = ListviewObject,
1161 MUIA_Listview_List,
1162 ListObject,
1163 InputListFrame,
1164 MUIA_List_SourceArray, fruits,
1165 MUIA_List_Active, MUIV_List_Active_Off,
1166 MUIA_List_Pool, pool,
1167 MUIA_ShortHelp,
1168 "Right scroller\nNo active entry\nSorted alphabetically",
1169 End,
1170 MUIA_Listview_MultiSelect,
1171 MUIV_Listview_MultiSelect_Shifted,
1172 MUIA_Listview_ScrollerPos,
1173 MUIV_Listview_ScrollerPos_Right,
1174 MUIA_CycleChain, 1,
1175 End;
1176 list.lists[3] = ListviewObject,
1177 MUIA_Listview_List,
1178 ListObject,
1179 InputListFrame,
1180 MUIA_List_SourceArray, fruits,
1181 MUIA_List_Pool, NULL,
1182 MUIA_List_MultiTestHook, &hook_multitest,
1183 MUIA_ShortHelp,
1184 "No scroller\nDefault active entry\nSorted alphabetically",
1185 End,
1186 MUIA_Listview_MultiSelect,
1187 MUIV_Listview_MultiSelect_Always,
1188 MUIA_Listview_ScrollerPos,
1189 MUIV_Listview_ScrollerPos_None,
1190 MUIA_CycleChain, 1,
1191 End;
1192 list.lists[4] = ListviewObject,
1193 MUIA_Listview_List,
1194 ListObject,
1195 ReadListFrame,
1196 MUIA_List_SourceArray, fruits,
1197 MUIA_List_Active, MUIV_List_Active_Bottom,
1198 MUIA_List_MinLineHeight, 20,
1199 MUIA_ShortHelp,
1200 "Default scroller\nBottom entry active\nSorted by length",
1201 End,
1202 MUIA_Listview_Input, FALSE,
1203 MUIA_CycleChain, 1,
1204 End;
1205
1206 list.colorfield = ColorfieldObject,
1207 MUIA_Colorfield_RGB, default_color,
1208 End;
1209
1210 app = ApplicationObject,
1211 MUIA_Application_Menustrip, MenustripObject,
1212 MUIA_Family_Child, MenuObject,
1213 MUIA_Menu_Title, "Project",
1214 MUIA_Family_Child, about_item = MenuitemObject,
1215 MUIA_Menuitem_Title, "About...",
1216 MUIA_Menuitem_Shortcut, "?",
1217 End,
1218 MUIA_Family_Child, MenuitemObject,
1219 MUIA_Menuitem_Title, (SIPTR)-1,
1220 End,
1221 MUIA_Family_Child, quit_item = MenuitemObject,
1222 MUIA_Menuitem_Title, "Quit",
1223 MUIA_Menuitem_Shortcut, "Q",
1224 End,
1225 End,
1226 End,
1227
1228 SubWindow, wnd = WindowObject,
1229 MUIA_Window_Title, "test",
1230 MUIA_Window_Activate, TRUE,
1231
1232 WindowContents, VGroup,
1233 Child, RegisterGroup(pages),
1234 //MUIA_Background, "5:SYS:Prefs/Presets/Backdrops/StuccoBlue.pic",
1235
1236 /* general */
1237 Child, VGroup,
1238 Child, HGroup,
1239 GroupFrameT("A horizontal group"),
1240 Child, ColGroup(2),
1241 GroupFrameT("A column group"),
1242 Child, repeat_button = TextObject,
1243 MUIA_CycleChain, 1,
1244 ButtonFrame,
1245 MUIA_Background, MUII_ButtonBack,
1246 MUIA_Text_PreParse, "\33c",
1247 MUIA_Text_Contents, "Repeat",
1248 MUIA_InputMode, MUIV_InputMode_RelVerify,
1249 End,
1250 Child, TextObject,
1251 MUIA_CycleChain, 1,
1252 ButtonFrame,
1253 MUIA_Background, MUII_ButtonBack,
1254 MUIA_Text_PreParse, "\33c",
1255 MUIA_Text_Contents, "Drag Me",
1256 MUIA_Draggable, TRUE,
1257 MUIA_InputMode, MUIV_InputMode_RelVerify,
1258 End,
1259 Child, open_button = TextObject,
1260 MUIA_CycleChain, 1,
1261 ButtonFrame,
1262 MUIA_Background, MUII_ButtonBack,
1263 MUIA_Text_PreParse, "\33c",
1264 MUIA_Text_Contents, "Open Window",
1265 MUIA_InputMode, MUIV_InputMode_RelVerify,
1266 End,
1267 Child, TextObject,
1268 MUIA_ContextMenu, context_menu,
1269 MUIA_CycleChain, 1,
1270 ButtonFrame,
1271 MUIA_Background, MUII_ButtonBack,
1272 MUIA_Text_PreParse, "\33c",
1273 MUIA_Text_Contents, "Press Right",
1274 MUIA_InputMode, MUIV_InputMode_RelVerify,
1275 End,
1276 Child, objects_button = TextObject,
1277 MUIA_CycleChain, 1,
1278 ButtonFrame,
1279 MUIA_Background, MUII_ButtonBack,
1280 MUIA_Text_PreParse, "\33c",
1281 MUIA_Text_Contents, "Add Objects",
1282 MUIA_InputMode, MUIV_InputMode_RelVerify,
1283 End,
1284 Child, HVSpace,
1285 Child, HGroup,
1286 Child, HVSpace,
1287 Child, MUI_MakeObject(MUIO_Checkmark,
1288 "_Checkmark"),
1289 End,
1290 Child, HGroup,
1291 Child, MUI_MakeObject(MUIO_Label,
1292 "_Checkmark", 0),
1293 Child, HVSpace,
1294 End,
1295 Child, HVSpace,
1296 Child, HVSpace,
1297 End,
1298 Child, group = VGroup,
1299 GroupFrameT("A vertical group"),
1300 Child, DropTextObject,
1301 MUIA_Dropable, TRUE,
1302 MUIA_CycleChain, 1,
1303 ButtonFrame,
1304 MUIA_Background, MUII_ButtonBack,
1305 MUIA_Text_PreParse, "\33c",
1306 MUIA_Text_Contents, "Drop Here",
1307 MUIA_Dropable, TRUE,
1308 MUIA_InputMode, MUIV_InputMode_RelVerify,
1309 End,
1310 Child, TextObject,
1311 TextFrame,
1312 MUIA_Background, MUII_MARKHALFSHINE,
1313 MUIA_CycleChain, 1,
1314 MUIA_Text_PreParse, "\33c",
1315 MUIA_Text_Contents, "Pattern",
1316 End,
1317 Child, MUI_NewObject(MUIC_Popimage, TAG_DONE),
1318 End,
1319 Child, ScrollgroupObject,
1320 GroupFrameT("A scroll group"),
1321 MUIA_Scrollgroup_Contents, VGroupV,
1322 VirtualFrame,
1323 Child, TextObject,
1324 TextFrame,
1325 MUIA_Text_Contents,
1326 "Line1\nLine2\nLine3\nLine4\n"
1327 "Line5\nLine6\nLine7\nLine8\n"
1328 "\n\n\n"
1329 "Line9\nLine10\nLine11\n",
1330 End,
1331 Child, HGroup,
1332 Child, MUI_MakeObject(MUIO_Button,
1333 "Button9"),
1334 Child, MUI_MakeObject(MUIO_Button,
1335 "Button10"),
1336 End,
1337 End,
1338 End,
1339 End,
1340 Child, popobject = PopobjectObject,
1341 MUIA_Popstring_String,
1342 MUI_MakeObject(MUIO_String, NULL, 200),
1343 MUIA_Popstring_Button, PopButton(MUII_PopUp),
1344 MUIA_Popobject_Object, VGroup,
1345 Child, TextObject,
1346 MUIA_Text_Contents, "test",
1347 End,
1348 Child, listview = ListviewObject,
1349 MUIA_Listview_List, ListObject,
1350 InputListFrame,
1351 MUIA_List_ConstructHook,
1352 &hook_construct,
1353 MUIA_List_DestructHook,
1354 &hook_destruct,
1355 MUIA_List_DisplayHook, &hook_display,
1356 MUIA_List_Format, ",,",
1357 MUIA_List_SourceArray, entries,
1358 MUIA_List_Title, TRUE,
1359 End,
1360 End,
1361 End,
1362 MUIA_Popobject_ObjStrHook, &hook_objstr,
1363 End,
1364 Child, CycleObject,
1365 ButtonFrame,
1366 MUIA_Cycle_Entries, pages,
1367 End,
1368 Child, ScrollbarObject,
1369 MUIA_Group_Horiz, TRUE,
1370 MUIA_Prop_Visible, 100,
1371 MUIA_Prop_Entries, 300,
1372 MUIA_Prop_First, 50,
1373 End,
1374 End,
1375
1376 /* text */
1377 Child, RegisterGroup(text_pages),
1378
1379 Child, VGroup,
1380 Child, TextObject,
1381 MUIA_Background, "2:cfffffff,cfffffff,10000000",
1382 TextFrame,
1383 MUIA_Text_Contents, "\33cHello World!\n"
1384 "This is a text object\n\33lLeft \33bbold\33n\n"
1385 "\33rRight",
1386 End,
1387 Child, TextObject,
1388 TextFrame,
1389 /* Test for a bug with pen specifications as reported here:
1390 https://sourceforge.net/p/aros/bugs/487/
1391 */
1392 MUIA_Text_Contents, "This is a \33P[3]text \33P[]object \33P[1]with pen specifications",
1393 End,
1394 Child, RectangleObject,
1395 MUIA_VertWeight, 0,
1396 /* Seems to be not supported properly as orginal MUI
1397 doesn't allow to alter the height of the window */
1398 MUIA_Rectangle_HBar, TRUE,
1399 MUIA_Rectangle_BarTitle,"Enter a string",
1400 End,
1401 Child, StringObject,
1402 StringFrame,
1403 MUIA_CycleChain,1,
1404 MUIA_String_AdvanceOnCR, TRUE,
1405 End,
1406 Child, HVSpace,
1407 End,
1408
1409 /* string */
1410 Child, HGroup,
1411 Child, VGroup,
1412 Child, VGroup, GroupFrameT("Default Alignment"),
1413 Child, string.strings[0] = StringObject,
1414 StringFrame,
1415 MUIA_String_Accept,
1416 (IPTR)default_accept_chars,
1417 MUIA_String_Reject,
1418 (IPTR)default_reject_chars,
1419 MUIA_String_AdvanceOnCR, TRUE,
1420 MUIA_String_MaxLen, 9,
1421 MUIA_CycleChain, 1,
1422 MUIA_String_AttachedList, list.lists[0],
1423 End,
1424 End,
1425 Child, VGroup, GroupFrameT("Left Aligned"),
1426 Child, string.strings[1] = StringObject,
1427 StringFrame,
1428 MUIA_String_Accept,
1429 (IPTR)default_accept_chars,
1430 MUIA_String_Reject,
1431 (IPTR)default_reject_chars,
1432 MUIA_String_Format,
1433 MUIV_String_Format_Left,
1434 MUIA_String_AdvanceOnCR, TRUE,
1435 MUIA_String_MaxLen, 9,
1436 MUIA_CycleChain, 1,
1437 MUIA_String_Contents,
1438 (IPTR)default_accept_chars,
1439 MUIA_String_BufferPos, 3,
1440 MUIA_String_AttachedList, list.lists[0],
1441 End,
1442 End,
1443 Child, VGroup, GroupFrameT("Right Aligned"),
1444 Child, string.strings[2] = StringObject,
1445 StringFrame,
1446 MUIA_String_Accept,
1447 (IPTR)default_accept_chars,
1448 MUIA_String_Reject,
1449 (IPTR)default_reject_chars,
1450 MUIA_String_Format,
1451 MUIV_String_Format_Right,
1452 MUIA_String_AdvanceOnCR, TRUE,
1453 MUIA_String_MaxLen, 9,
1454 MUIA_CycleChain, 1,
1455 MUIA_String_AttachedList, list.lists[0],
1456 End,
1457 End,
1458 Child, VGroup, GroupFrameT("Centered"),
1459 Child, string.strings[3] = StringObject,
1460 StringFrame,
1461 MUIA_String_Accept,
1462 (IPTR)default_accept_chars,
1463 MUIA_String_Reject,
1464 (IPTR)default_reject_chars,
1465 MUIA_String_Format,
1466 MUIV_String_Format_Center,
1467 MUIA_String_AdvanceOnCR, TRUE,
1468 MUIA_String_MaxLen, 9,
1469 MUIA_CycleChain, 1,
1470 MUIA_String_Integer, 123,
1471 MUIA_String_AttachedList, list.lists[0],
1472 End,
1473 End,
1474 Child, VGroup, GroupFrameT("Secret"),
1475 Child, string.strings[4] = StringObject,
1476 StringFrame,
1477 MUIA_String_Accept,
1478 (IPTR)default_accept_chars,
1479 MUIA_String_Reject,
1480 (IPTR)default_reject_chars,
1481 MUIA_String_Format,
1482 MUIV_String_Format_Center,
1483 MUIA_String_Secret, TRUE,
1484 MUIA_String_AdvanceOnCR, TRUE,
1485 MUIA_String_MaxLen, 9,
1486 MUIA_CycleChain, 1,
1487 MUIA_String_AttachedList, list.lists[0],
1488 End,
1489 End,
1490 Child, HGroup, GroupFrameT("Narrow"),
1491 Child, HVSpace,
1492 Child, string.strings[5] = StringObject,
1493 StringFrame,
1494 MUIA_String_Accept,
1495 (IPTR)default_accept_chars,
1496 MUIA_String_Reject,
1497 (IPTR)default_reject_chars,
1498 MUIA_String_Format,
1499 MUIV_String_Format_Center,
1500 MUIA_String_AdvanceOnCR, TRUE,
1501 MUIA_MaxWidth, 20,
1502 MUIA_String_MaxLen, 9,
1503 MUIA_CycleChain, 1,
1504 MUIA_String_AttachedList, list.lists[0],
1505 End,
1506 Child, HVSpace,
1507 End,
1508 Child, HVSpace,
1509 End,
1510 Child, VGroup, GroupFrameT("Controls"),
1511 Child, HGroup,
1512 Child, string.accept_all_check =
1513 MUI_MakeObject(MUIO_Checkmark, NULL),
1514 Child, MUI_MakeObject(MUIO_Label,
1515 "Accept all characters", 0),
1516 Child, HVSpace,
1517 End,
1518 Child, ColGroup(2),
1519 Child, MUI_MakeObject(MUIO_Label,
1520 "Acceptable characters:", 0),
1521 Child, string.accept_string = StringObject,
1522 StringFrame,
1523 MUIA_String_Contents,
1524 (IPTR)default_accept_chars,
1525 End,
1526 Child, MUI_MakeObject(MUIO_Label,
1527 "Unacceptable characters:", 0),
1528 Child, string.reject_string = StringObject,
1529 StringFrame,
1530 End,
1531 Child, MUI_MakeObject(MUIO_Label,
1532 "Cursor position:", 0),
1533 Child, string.cursor_pos_slider =
1534 SliderObject,
1535 MUIA_Group_Horiz, TRUE,
1536 MUIA_Numeric_Min, 0,
1537 End,
1538 Child, MUI_MakeObject(MUIO_Label,
1539 "Display position:", 0),
1540 Child, string.display_pos_slider =
1541 SliderObject,
1542 MUIA_Group_Horiz, TRUE,
1543 MUIA_Numeric_Min, 0,
1544 End,
1545 Child, MUI_MakeObject(MUIO_Label,
1546 "Integer value:", 0),
1547 Child, string.integer_string =
1548 StringObject,
1549 StringFrame,
1550 MUIA_String_Accept, (IPTR)digits,
1551 End,
1552 Child, MUI_MakeObject(MUIO_Label,
1553 "Plaintext:", 0),
1554 Child, string.plaintext_string =
1555 StringObject,
1556 StringFrame,
1557 End,
1558 Child, MUI_MakeObject(MUIO_Label,
1559 "Maximum string length:", 0),
1560 Child, string.max_len_text = TextObject,
1561 TextFrame,
1562 MUIA_Text_Contents, "Unknown",
1563 End,
1564 End,
1565 Child, VGroup,
1566 Child, HGroup,
1567 Child, string.cr_advance_check =
1568 MUI_MakeObject(MUIO_Checkmark,
1569 NULL),
1570 Child, MUI_MakeObject(MUIO_Label,
1571 "Advance on CR", 0),
1572 Child, HVSpace,
1573 End,
1574 Child, HGroup,
1575 Child, string.attach_list_check =
1576 MUI_MakeObject(MUIO_Checkmark,
1577 NULL),
1578 Child, MUI_MakeObject(MUIO_Label,
1579 "Attach list", 0),
1580 Child, HVSpace,
1581 End,
1582 #if 0
1583 Child, HGroup,
1584 Child, string.standard_hook_check =
1585 MUI_MakeObject(MUIO_Checkmark,
1586 NULL),
1587 Child, MUI_MakeObject(MUIO_Label,
1588 "Use standard edit hook", 0),
1589 Child, HVSpace,
1590 End,
1591 Child, HGroup,
1592 Child, string.custom_hook_check =
1593 MUI_MakeObject(MUIO_Checkmark,
1594 NULL),
1595 Child, MUI_MakeObject(MUIO_Label,
1596 "Use custom edit hook", 0),
1597 Child, HVSpace,
1598 End,
1599 #endif
1600 End,
1601 Child, HVSpace,
1602 End,
1603
1604 End,
1605 End,
1606
1607 /* boopsi */
1608 Child, VGroup,
1609 Child, wheel = BoopsiObject, /* MUI/Boopsi tags mixed */
1610 GroupFrame,
1611 /* boopsi objects don't know */
1612 /* their sizes, so we help */
1613 /* keep important values */
1614 /* during window resize */
1615 MUIA_Boopsi_ClassID, "colorwheel.gadget",
1616 MUIA_Boopsi_MinWidth , 30,
1617 MUIA_Boopsi_MinHeight, 30,
1618 MUIA_Boopsi_Remember , WHEEL_Saturation,
1619 MUIA_Boopsi_Remember , WHEEL_Hue,
1620 /* this magic fills in the screen pointer */
1621 MUIA_Boopsi_TagScreen, WHEEL_Screen,
1622 WHEEL_Screen, NULL,
1623 GA_Left, 0,
1624 GA_Top, 0, /* MUI will automatically */
1625 GA_Width, 0, /* fill in the correct values */
1626 GA_Height, 0,
1627 ICA_TARGET, ICTARGET_IDCMP,
1628 /* needed for notification */
1629 WHEEL_Saturation, 0, /* start in the center */
1630 MUIA_FillArea, TRUE,
1631 /* use this because it defaults to FALSE
1632 for boopsi gadgets but the colorwheel
1633 doesn't bother about redrawing its
1634 background */
1635 End,
1636
1637 Child, r_slider = SliderObject,
1638 MUIA_Group_Horiz, TRUE,
1639 MUIA_Numeric_Min, 0,
1640 MUIA_Numeric_Max, 255,
1641 End,
1642 Child, g_slider = SliderObject,
1643 MUIA_Group_Horiz, TRUE,
1644 MUIA_Numeric_Min, 0,
1645 MUIA_Numeric_Max, 255,
1646 End,
1647 Child, b_slider = SliderObject,
1648 MUIA_Group_Horiz, TRUE,
1649 MUIA_Numeric_Min, 0,
1650 MUIA_Numeric_Max, 255,
1651 End,
1652 Child, hue_gauge = GaugeObject,
1653 GaugeFrame,
1654 MUIA_Gauge_Horiz, TRUE,
1655 MUIA_Gauge_Max, 255,
1656 MUIA_Gauge_Divide, 1<<24,
1657 MUIA_Gauge_InfoText, "Hue: %ld",
1658 End,
1659 End,
1660
1661 /* color */
1662 Child, RegisterGroup(color_pages),
1663 Child, VGroup, GroupFrameT("Palette"),
1664 Child, PaletteObject,
1665 End,
1666 End,
1667 Child, HGroup,
1668 Child, VGroup, GroupFrameT("Colorfield"),
1669
1670 Child, HGroup,
1671 Child, colorfield = ColorfieldObject,
1672 MUIA_Colorfield_RGB, default_color,
1673 MUIA_Colorfield_Pen, 253,
1674 End,
1675 Child, colorfield2 = ColorfieldObject,
1676 MUIA_Colorfield_Red, default_color[0],
1677 MUIA_Colorfield_Green, default_color[1],
1678 MUIA_Colorfield_Blue, default_color[2],
1679 End,
1680 End,
1681 Child, colorfield_reset_button =
1682 MUI_MakeObject(MUIO_Button,
1683 "Reset"),
1684 Child, HGroup,
1685 Child,
1686 MUI_MakeObject(MUIO_Label, "Pen:", 0),
1687 Child, colorfield_pen = StringObject,
1688 StringFrame,
1689 End,
1690 End,
1691 End,
1692 Child, VGroup, GroupFrameT("Coloradjust"),
1693 Child, coloradjust = ColoradjustObject,
1694 MUIA_Coloradjust_RGB, default_color,
1695 End,
1696 End,
1697 End,
1698 Child, HGroup,
1699 Child, VGroup,
1700 Child, VGroup, GroupFrameT("Pendisplay"),
1701 Child, HGroup,
1702 Child, pendisplay,
1703 Child, pendisplay2 = PendisplayObject,
1704 MUIA_Pendisplay_RGBcolor,
1705 default_color,
1706 End,
1707 End,
1708 Child, ColGroup(2),
1709 Child,
1710 MUI_MakeObject(
1711 MUIO_Label, "Pen:", 0),
1712 Child, HGroup,
1713 Child, pendisplay_pen =
1714 StringObject, StringFrame,
1715 End,
1716 Child, HVSpace,
1717 Child, reference_check =
1718 MUI_MakeObject(MUIO_Checkmark,
1719 NULL),
1720 Child, MUI_MakeObject(MUIO_Label,
1721 "Reference", 0),
1722 End,
1723 Child,
1724 MUI_MakeObject(
1725 MUIO_Label, "Penspec:", 0),
1726 Child, pendisplay_spec = StringObject,
1727 StringFrame,
1728 End,
1729 End,
1730 Child, HGroup,
1731 Child, shine_button =
1732 MUI_MakeObject(MUIO_Button,
1733 "Shine"),
1734 Child, shadow_button =
1735 MUI_MakeObject(MUIO_Button,
1736 "Shadow"),
1737 Child, yellow_button =
1738 MUI_MakeObject(MUIO_Button,
1739 "Yellow"),
1740 End,
1741 End,
1742 Child, VGroup, GroupFrameT("Poppen"),
1743 Child, poppen = PoppenObject,
1744 End,
1745 End,
1746 End,
1747 Child, VGroup, GroupFrameT("Penadjust"),
1748 Child, PenadjustObject,
1749 End,
1750 End,
1751 End,
1752 End,
1753
1754 /* edit */
1755 Child, VGroup,
1756 Child, editor_text = StringObject,
1757 StringFrame,
1758 End,
1759 Child, PopaslObject,
1760 ASLFR_DoSaveMode, TRUE,
1761 MUIA_Popstring_String, filename_string =
1762 MUI_MakeObject(MUIO_String, NULL, 200),
1763 MUIA_Popstring_Button, PopButton(MUII_PopFile),
1764 End,
1765 Child, save_button =
1766 MUI_MakeObject(MUIO_Button, "Save"),
1767 End,
1768
1769 /* lists */
1770 Child, RegisterGroup(list_pages),
1771 Child, VGroup,
1772 Child, ColGroup(LIST_COUNT),
1773 Child, VGroup, GroupFrameT("No Multiselect"),
1774 Child, list.lists[0],
1775 End,
1776 Child, VGroup,
1777 GroupFrameT("Default Multiselect"),
1778 Child, list.lists[1],
1779 End,
1780 Child, VGroup,
1781 GroupFrameT("Shifted Multiselect"),
1782 Child, list.lists[2],
1783 End,
1784 Child, VGroup,
1785 GroupFrameT("Unconditional Multiselect"),
1786 Child, list.lists[3],
1787 End,
1788 Child, VGroup,
1789 GroupFrameT("Read Only"),
1790 Child, list.lists[4],
1791 End,
1792 End,
1793 Child, HGroup,
1794 MUIA_Group_HorizSpacing, 0,
1795 Child, RectangleObject,
1796 MUIA_HorizWeight, 1,
1797 End,
1798 Child, list.list_radios = RadioObject,
1799 MUIA_Radio_Entries, empty,
1800 MUIA_Group_Horiz, TRUE,
1801 MUIA_HorizWeight, 1000,
1802 End,
1803 Child, RectangleObject,
1804 MUIA_HorizWeight, 1,
1805 End,
1806 End,
1807 Child, RectangleObject,
1808 MUIA_VertWeight, 0,
1809 MUIA_Rectangle_HBar, TRUE,
1810 MUIA_Rectangle_BarTitle, "List Controls",
1811 End,
1812 Child, ColGroup(6),
1813 Child, MUI_MakeObject(MUIO_Label,
1814 "Affected index 1:", 0),
1815 Child, list.index1_string =
1816 StringObject,
1817 StringFrame,
1818 MUIA_String_Accept, (IPTR)digits,
1819 MUIA_String_Integer, 0,
1820 End,
1821 Child, HGroup,
1822 Child, list.draggable_check =
1823 MUI_MakeObject(MUIO_Checkmark,NULL),
1824 Child, MUI_MakeObject(MUIO_Label,
1825 "Draggable", 0),
1826 Child, HVSpace,
1827 End,
1828 Child, HGroup,
1829 Child, list.showdropmarks_check =
1830 MUI_MakeObject(MUIO_Checkmark, NULL),
1831 Child, MUI_MakeObject(MUIO_Label,
1832 "Show drop marks", 0),
1833 Child, HVSpace,
1834 End,
1835 Child, HGroup,
1836 Child, list.multitest_check =
1837 MUI_MakeObject(MUIO_Checkmark,NULL),
1838 Child, MUI_MakeObject(MUIO_Label,
1839 "Filter multiselect", 0),
1840 Child, HVSpace,
1841 End,
1842 Child, HGroup,
1843 Child, list.quiet_check =
1844 MUI_MakeObject(MUIO_Checkmark,NULL),
1845 Child, MUI_MakeObject(MUIO_Label,
1846 "Quiet", 0),
1847 Child, HVSpace,
1848 End,
1849
1850 Child, MUI_MakeObject(MUIO_Label,
1851 "Affected index 2:", 0),
1852 Child, list.index2_string =
1853 StringObject,
1854 StringFrame,
1855 MUIA_String_Accept, (IPTR)digits,
1856 MUIA_String_Integer, 0,
1857 End,
1858 Child, HGroup,
1859 Child, list.dragsortable_check =
1860 MUI_MakeObject(MUIO_Checkmark, NULL),
1861 Child, MUI_MakeObject(MUIO_Label,
1862 "Drag sortable", 0),
1863 Child, HVSpace,
1864 End,
1865 Child, HGroup,
1866 Child, list.autovisible_check =
1867 MUI_MakeObject(MUIO_Checkmark,NULL),
1868 Child, MUI_MakeObject(MUIO_Label,
1869 "Auto visible", 0),
1870 Child, HVSpace,
1871 End,
1872 Child, list.reset_button =
1873 MUI_MakeObject(MUIO_Button, "Reset"),
1874 Child, list.enable_button =
1875 MUI_MakeObject(MUIO_Button, "Enable"),
1876
1877 Child, MUI_MakeObject(MUIO_Label,
1878 "Move/exchange mode 1:", 0),
1879 Child, list.move1_cycle = CycleObject,
1880 ButtonFrame,
1881 MUIA_Cycle_Entries, list_move1_modes,
1882 End,
1883 Child, list.move_button =
1884 MUI_MakeObject(MUIO_Button, "Move"),
1885 Child, list.sort_button =
1886 MUI_MakeObject(MUIO_Button, "Sort"),
1887 Child, MUI_MakeObject(MUIO_Label,
1888 "Last drop index:", 0),
1889 Child, list.drop_text = TextObject,
1890 TextFrame,
1891 MUIA_Text_Contents, "N/A",
1892 End,
1893
1894 Child, MUI_MakeObject(MUIO_Label,
1895 "Move/exchange mode 2:", 0),
1896 Child, list.move2_cycle = CycleObject,
1897 ButtonFrame,
1898 MUIA_Cycle_Entries, list_move2_modes,
1899 End,
1900 Child, list.exchange_button =
1901 MUI_MakeObject(MUIO_Button, "Exchange"),
1902 Child, list.redraw_button =
1903 MUI_MakeObject(MUIO_Button, "Redraw"),
1904 Child, MUI_MakeObject(MUIO_Label,
1905 "Title:", 0),
1906 Child, list.title_string =
1907 StringObject,
1908 StringFrame,
1909 End,
1910
1911 Child, MUI_MakeObject(MUIO_Label,
1912 "Jump mode:", 0),
1913 Child, list.jump_cycle = CycleObject,
1914 ButtonFrame,
1915 MUIA_Cycle_Entries, list_jump_modes,
1916 End,
1917 Child, list.jump_button =
1918 MUI_MakeObject(MUIO_Button, "Jump"),
1919 Child, list.toggle_button =
1920 MUI_MakeObject(MUIO_Button, "Toggle"),
1921 Child, MUI_MakeObject(MUIO_Label,
1922 "Entries:", 0),
1923 Child, list.entries_text = TextObject,
1924 TextFrame,
1925 MUIA_Text_Contents, "N/A",
1926 End,
1927
1928 Child, MUI_MakeObject(MUIO_Label,
1929 "Select/redraw mode:", 0),
1930 Child, list.select_cycle = CycleObject,
1931 ButtonFrame,
1932 MUIA_Cycle_Entries, list_select_modes,
1933 End,
1934 Child, list.select_button =
1935 MUI_MakeObject(MUIO_Button, "Select"),
1936 Child, list.deselect_button =
1937 MUI_MakeObject(MUIO_Button, "Deselect"),
1938 Child, MUI_MakeObject(MUIO_Label,
1939 "Visible entries:", 0),
1940 Child, list.visible_text = TextObject,
1941 TextFrame,
1942 MUIA_Text_Contents, "N/A",
1943 End,
1944
1945 Child, MUI_MakeObject(MUIO_Label,
1946 "Insert mode:", 0),
1947 Child, list.insert_cycle = CycleObject,
1948 ButtonFrame,
1949 MUIA_Cycle_Entries, list_insert_modes,
1950 End,
1951 Child, list.insert_single_button =
1952 MUI_MakeObject(MUIO_Button, "Insert Single"),
1953 Child, list.insert_multiple_button =
1954 MUI_MakeObject(MUIO_Button, "Insert Multiple"),
1955 Child, MUI_MakeObject(MUIO_Label,
1956 "First visible index:", 0),
1957 Child, list.first_text = TextObject,
1958 TextFrame,
1959 MUIA_Text_Contents, "N/A",
1960 End,
1961
1962 Child, MUI_MakeObject(MUIO_Label,
1963 "Remove mode:", 0),
1964 Child, list.remove_cycle = CycleObject,
1965 ButtonFrame,
1966 MUIA_Cycle_Entries, list_remove_modes,
1967 End,
1968 Child, list.remove_button =
1969 MUI_MakeObject(MUIO_Button, "Remove"),
1970 Child, list.clear_button =
1971 MUI_MakeObject(MUIO_Button, "Clear"),
1972 Child, MUI_MakeObject(MUIO_Label,
1973 "Last insertion index:", 0),
1974 Child, list.insert_text = TextObject,
1975 TextFrame,
1976 MUIA_Text_Contents, "N/A",
1977 End,
1978
1979 Child, MUI_MakeObject(MUIO_Label,
1980 "Activate mode:", 0),
1981 Child, list.activate_cycle = CycleObject,
1982 ButtonFrame,
1983 MUIA_Cycle_Entries, list_activate_modes,
1984 End,
1985 Child, list.activate_button =
1986 MUI_MakeObject(MUIO_Button, "Activate"),
1987 Child, list.deactivate_button =
1988 MUI_MakeObject(MUIO_Button, "Deactivate"),
1989 Child, MUI_MakeObject(MUIO_Label,
1990 "Active index:", 0),
1991 Child, list.active_text = TextObject,
1992 TextFrame,
1993 MUIA_Text_Contents, "N/A",
1994 End,
1995 End,
1996 End,
1997 Child, VGroup,
1998 Child, ColGroup(LIST_COUNT / 2),
1999 Child, VGroup, GroupFrameT("Standard Format"),
2000 Child, list.multi_lists[0] = ListviewObject,
2001 MUIA_Listview_List,
2002 ListObject,
2003 InputListFrame,
2004 MUIA_List_ConstructHook,
2005 &hook_construct,
2006 MUIA_List_DestructHook,
2007 &hook_destruct,
2008 MUIA_List_DisplayHook,
2009 &hook_display,
2010 MUIA_List_Format, list_format,
2011 MUIA_List_SourceArray, entries,
2012 MUIA_List_Title, TRUE,
2013 MUIA_List_AdjustWidth, TRUE,
2014 End,
2015 MUIA_Listview_MultiSelect,
2016 MUIV_Listview_MultiSelect_None,
2017 MUIA_Listview_DefClickColumn, 1,
2018 MUIA_CycleChain, 1,
2019 End,
2020 End,
2021 Child, VGroup, GroupFrameT("Custom Format"),
2022 Child, list.multi_lists[1] = ListviewObject,
2023 MUIA_Listview_List,
2024 ListObject,
2025 InputListFrame,
2026 MUIA_List_Format, list_format,
2027 MUIA_List_Title, TRUE,
2028 MUIA_List_AdjustHeight, TRUE,
2029 End,
2030 MUIA_Listview_MultiSelect,
2031 MUIV_Listview_MultiSelect_None,
2032 MUIA_CycleChain, 1,
2033 End,
2034 Child, HVSpace,
2035 End,
2036 End,
2037 Child, RectangleObject,
2038 MUIA_VertWeight, 0,
2039 MUIA_Rectangle_HBar, TRUE,
2040 MUIA_Rectangle_BarTitle, "List Controls",
2041 End,
2042 Child, HGroup,
2043 Child, MUI_MakeObject(MUIO_Label, "Format:", 0),
2044 Child, list.format_string = StringObject,
2045 StringFrame,
2046 MUIA_CycleChain, 1,
2047 End,
2048 Child, list.showheadings_check =
2049 MUI_MakeObject(MUIO_Checkmark, NULL),
2050 Child, MUI_MakeObject(MUIO_Label,
2051 "Show column headings", 0),
2052 Child, list.showimage_check =
2053 MUI_MakeObject(MUIO_Checkmark, NULL),
2054 Child, MUI_MakeObject(MUIO_Label,
2055 "Show image", 0),
2056 End,
2057 Child, HGroup,
2058 Child, MUI_MakeObject(MUIO_Label,
2059 "Default clicked column:", 0),
2060 Child, list.def_column_string = StringObject,
2061 StringFrame,
2062 MUIA_String_Accept, (IPTR)digits,
2063 MUIA_String_Integer, -1,
2064 MUIA_CycleChain, 1,
2065 End,
2066 Child, MUI_MakeObject(MUIO_Label,
2067 "Clicked column:", 0),
2068 Child, list.column_string = StringObject,
2069 MUIA_ShowMe, FALSE,
2070 End,
2071 Child, list.column_text = TextObject,
2072 TextFrame,
2073 MUIA_Text_Contents, "N/A",
2074 End,
2075 End,
2076 End,
2077 End,
2078
2079 /* gauges */
2080 Child, HGroup,
2081 Child, VGroup,
2082 Child, VGroup,
2083 GroupFrame,
2084 Child, GaugeObject,
2085 GaugeFrame,
2086 MUIA_Gauge_InfoText, "%ld %%",
2087 MUIA_Gauge_Horiz, TRUE,
2088 MUIA_Gauge_Current, 25,
2089 End,
2090 Child, ScaleObject,
2091 End,
2092 End,
2093 Child, VGroup,
2094 GroupFrame,
2095 Child, GaugeObject,
2096 GaugeFrame,
2097 MUIA_Gauge_InfoText, "%ld %%",
2098 MUIA_Gauge_Horiz, TRUE,
2099 MUIA_Gauge_Current, 50,
2100 End,
2101 Child, ScaleObject,
2102 End,
2103 End,
2104 Child, VGroup,
2105 GroupFrame,
2106 Child, GaugeObject,
2107 GaugeFrame,
2108 MUIA_Gauge_InfoText, "%ld %%",
2109 MUIA_Gauge_Horiz, TRUE,
2110 MUIA_Gauge_Current, 75,
2111 End,
2112 Child, ScaleObject,
2113 End,
2114 End,
2115 End,
2116 Child, HGroup,
2117 Child, HVSpace,
2118 Child, GaugeObject,
2119 GaugeFrame,
2120 MUIA_Gauge_InfoText, "%ld %%",
2121 MUIA_Gauge_Current, 25,
2122 End,
2123 Child, GaugeObject,
2124 GaugeFrame,
2125 MUIA_Gauge_InfoText, "%ld %%",
2126 MUIA_Gauge_Current, 50,
2127 End,
2128 Child, GaugeObject,
2129 GaugeFrame,
2130 MUIA_Gauge_InfoText, "%ld %%",
2131 MUIA_Gauge_Current, 75,
2132 End,
2133 Child, HVSpace,
2134 End,
2135 End,
2136
2137 /* numeric */
2138 Child, HGroup,
2139 Child, ColGroup(2),
2140 GroupFrameT("Horizontal Sliders"),
2141 Child, MUI_MakeObject(MUIO_Label, "Normal:", 0),
2142 Child, numerics[HNSLIDER] = SliderObject,
2143 MUIA_Slider_Horiz, TRUE,
2144 MUIA_Numeric_Min, NUMERIC_MIN,
2145 MUIA_Numeric_Max, NUMERIC_MAX,
2146 MUIA_CycleChain, 1,
2147 End,
2148 Child, MUI_MakeObject(MUIO_Label, "Reverse:", 0),
2149 Child, numerics[HRSLIDER] = SliderObject,
2150 MUIA_Numeric_Reverse, TRUE,
2151 MUIA_Numeric_Min, NUMERIC_MIN,
2152 MUIA_Numeric_Max, NUMERIC_MAX,
2153 MUIA_CycleChain, 1,
2154 End,
2155 Child, MUI_MakeObject(MUIO_Label, "Quiet:", 0),
2156 Child, numerics[HQSLIDER] = SliderObject,
2157 MUIA_Slider_Quiet, TRUE,
2158 MUIA_Numeric_Min, NUMERIC_MIN,
2159 MUIA_Numeric_Max, NUMERIC_MAX,
2160 MUIA_CycleChain, 1,
2161 End,
2162 End,
2163 Child, ColGroup(3),
2164 GroupFrameT("Vertical Sliders"),
2165 Child, MUI_MakeObject(MUIO_Label, "Normal", 0),
2166 Child, MUI_MakeObject(MUIO_Label, "Reverse", 0),
2167 Child, MUI_MakeObject(MUIO_Label, "Quiet", 0),
2168 Child, numerics[VNSLIDER] = SliderObject,
2169 MUIA_Slider_Horiz, FALSE,
2170 MUIA_Numeric_Min, NUMERIC_MIN,
2171 MUIA_Numeric_Max, NUMERIC_MAX,
2172 MUIA_CycleChain, 1,
2173 End,
2174 Child, numerics[VRSLIDER] = SliderObject,
2175 MUIA_Slider_Horiz, FALSE,
2176 MUIA_Numeric_Reverse, TRUE,
2177 MUIA_Numeric_Min, NUMERIC_MIN,
2178 MUIA_Numeric_Max, NUMERIC_MAX,
2179 MUIA_CycleChain, 1,
2180 End,
2181 Child, numerics[VQSLIDER] = SliderObject,
2182 MUIA_Slider_Horiz, FALSE,
2183 MUIA_Slider_Quiet, TRUE,
2184 MUIA_Numeric_Min, NUMERIC_MIN,
2185 MUIA_Numeric_Max, NUMERIC_MAX,
2186 MUIA_CycleChain, 1,
2187 End,
2188 End,
2189 Child, ColGroup(2),
2190 GroupFrameT("Numeric Buttons"),
2191 Child, MUI_MakeObject(MUIO_Label, "Normal:", 0),
2192 Child, numerics[NNUMERICBUTTON] =
2193 NumericbuttonObject,
2194 MUIA_Numeric_Min, NUMERIC_MIN,
2195 MUIA_Numeric_Max, NUMERIC_MAX,
2196 MUIA_CycleChain, 1,
2197 End,
2198 Child, MUI_MakeObject(MUIO_Label, "Reverse:", 0),
2199 Child, numerics[RNUMERICBUTTON] =
2200 NumericbuttonObject,
2201 MUIA_Numeric_Reverse, TRUE,
2202 MUIA_Numeric_Min, NUMERIC_MIN,
2203 MUIA_Numeric_Max, NUMERIC_MAX,
2204 MUIA_CycleChain, 1,
2205 End,
2206 End,
2207 Child, ColGroup(2),
2208 GroupFrameT("Knobs"),
2209 Child, MUI_MakeObject(MUIO_Label, "Normal", 0),
2210 Child, MUI_MakeObject(MUIO_Label, "Reverse", 0),
2211 Child, numerics[NKNOB] = KnobObject,
2212 MUIA_Numeric_Min, NUMERIC_MIN,
2213 MUIA_Numeric_Max, NUMERIC_MAX,
2214 MUIA_CycleChain, 1,
2215 End,
2216 Child, numerics[RKNOB] = KnobObject,
2217 MUIA_Numeric_Reverse, TRUE,
2218 MUIA_Numeric_Min, NUMERIC_MIN,
2219 MUIA_Numeric_Max, NUMERIC_MAX,
2220 MUIA_CycleChain, 1,
2221 End,
2222 End,
2223 Child, ColGroup(2),
2224 Child, MUI_MakeObject(MUIO_Label,
2225 "Minimum Value:", 0),
2226 Child, min_string = (Object *)StringObject,
2227 StringFrame,
2228 MUIA_String_Accept, (IPTR)digits,
2229 MUIA_String_Integer, NUMERIC_MIN,
2230 MUIA_CycleChain, 1,
2231 End,
2232 Child, MUI_MakeObject(MUIO_Label,
2233 "Maximum Value:", 0),
2234 Child, max_string = (Object *)StringObject,
2235 StringFrame,
2236 MUIA_String_Accept, (IPTR)digits,
2237 MUIA_String_Integer, NUMERIC_MAX,
2238 MUIA_CycleChain, 1,
2239 End,
2240 Child, slider_button = TextObject,
2241 ButtonFrame,
2242 MUIA_InputMode, MUIV_InputMode_RelVerify,
2243 MUIA_CycleChain, 1,
2244 MUIA_Background, MUII_ButtonBack,
2245 MUIA_Text_PreParse, "\33c",
2246 MUIA_Text_Contents,
2247 "Change Slider Orientations",
2248 End,
2249 Child, MUI_MakeObject(MUIO_Label, "", 0),
2250 End,
2251 End,
2252
2253 /* radios */
2254 Child, HGroup,
2255 Child, VGroup,
2256 Child, RadioObject,
2257 GroupFrame,
2258 MUIA_Radio_Entries, radio_entries1,
2259 End,
2260 Child, country_radio[0] = RadioObject,
2261 GroupFrame,
2262 MUIA_Radio_Entries, radio_entries2,
2263 MUIA_Radio_Active, 1,
2264 End,
2265 End,
2266 Child, HGroup,
2267 Child, RadioObject,
2268 GroupFrame,
2269 MUIA_Radio_Entries, radio_entries1,
2270 End,
2271 Child, country_radio[1] = RadioObject,
2272 GroupFrame,
2273 MUIA_Radio_Entries, radio_entries2,
2274 MUIA_Radio_Active, 1,
2275 End,
2276 End,
2277 End,
2278
2279 #if defined(TEST_ICONLIST)
2280 /* iconlist */
2281 Child, HGroup,
2282 Child, volume_iconlist =
2283 MUI_NewObject(MUIC_IconVolumeList, GroupFrame,
2284 TAG_DONE),
2285 Child, drawer_iconlist =
2286 MUI_NewObject(MUIC_IconDrawerList, GroupFrame,
2287 MUIA_IconDrawerList_Drawer, "SYS:",
2288 TAG_DONE),
2289 End,
2290 #endif
2291
2292 /* balancing */
2293 Child, HGroup,
2294 Child, create_balance_column(),
2295 Child, BalanceObject,
2296 End,
2297
2298 Child, create_balance_column(),
2299 Child, BalanceObject,
2300 End,
2301
2302 Child, create_balance_column(),
2303 Child, BalanceObject,
2304 End,
2305
2306 Child, create_balance_column(),
2307 Child, BalanceObject,
2308 End,
2309
2310 Child, create_balance_column(),
2311
2312 End,
2313
2314 End,
2315
2316 Child, HGroup,
2317 Child, about_button = TextObject,
2318 ButtonFrame,
2319 MUIA_InputMode, MUIV_InputMode_RelVerify,
2320 MUIA_CycleChain, 1,
2321 MUIA_Background, MUII_ButtonBack,
2322 MUIA_Text_PreParse, "\33c",
2323 MUIA_Text_Contents, "About",
2324 End,
2325 Child, quit_button = TextObject,
2326 ButtonFrame,
2327 MUIA_InputMode, MUIV_InputMode_RelVerify,
2328 MUIA_CycleChain, 1,
2329 MUIA_Background, MUII_ButtonBack,
2330 MUIA_ControlChar, 'q',
2331 MUIA_Text_HiChar, 'q',
2332 MUIA_Text_PreParse, "\33c",
2333 MUIA_Text_Contents, "Quit",
2334 End,
2335 End,
2336 End,
2337 End,
2338
2339 SubWindow, second_wnd = WindowObject,
2340 MUIA_Window_Title, "Second window",
2341 WindowContents, VGroup,
2342 Child, DropTextObject,
2343 MUIA_Text_Contents, "Drop here",
2344 MUIA_Dropable, TRUE,
2345 End,
2346 End,
2347 End,
2348
2349 End;
2350
2351 if (app)
2352 {
2353 ULONG sigs = 0;
2354
2355 DoMethod(wnd, MUIM_Notify, MUIA_Window_CloseRequest, TRUE, app, 2,
2356 MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit);
2357 DoMethod(second_wnd, MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
2358 second_wnd, 3, MUIM_Set, MUIA_Window_Open, FALSE);
2359 DoMethod(open_button, MUIM_Notify, MUIA_Pressed, FALSE, second_wnd,
2360 3, MUIM_Set, MUIA_Window_Open, TRUE);
2361 DoMethod(about_button, MUIM_Notify, MUIA_Pressed, FALSE, app, 2,
2362 MUIM_Application_AboutMUI, NULL);
2363 DoMethod(quit_button, MUIM_Notify, MUIA_Pressed, FALSE, app, 2,
2364 MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit);
2365 DoMethod(objects_button, MUIM_Notify, MUIA_Pressed, FALSE, app, 2,
2366 MUIM_CallHook, &hook_objects);
2367 DoMethod(repeat_button, MUIM_Notify, MUIA_Timer, MUIV_EveryTime,
2368 app, 2, MUIM_CallHook, &hook);
2369
2370 /* Notifications and set-up for string objects */
2371 DoMethod(string.max_len_text, MUIM_SetAsString, MUIA_Text_Contents,
2372 "%ld", XGET(string.strings[0], MUIA_String_MaxLen) - 1);
2373 set(string.cursor_pos_slider, MUIA_Numeric_Max,
2374 XGET(string.strings[0], MUIA_String_MaxLen) - 1);
2375 set(string.display_pos_slider, MUIA_Numeric_Max,
2376 XGET(string.strings[0], MUIA_String_MaxLen) - 1);
2377 set(string.cr_advance_check, MUIA_Selected, TRUE);
2378 set(string.attach_list_check, MUIA_Selected, TRUE);
2379 set(string.strings[1], MUIA_Disabled,
2380 XGET(string.strings[1], MUIA_String_Format)
2381 != MUIV_String_Format_Left);
2382 set(string.strings[2], MUIA_Disabled,
2383 XGET(string.strings[2], MUIA_String_Format)
2384 != MUIV_String_Format_Right);
2385 set(string.strings[3], MUIA_Disabled,
2386 XGET(string.strings[3], MUIA_String_Format)
2387 != MUIV_String_Format_Center);
2388 set(string.strings[4], MUIA_Disabled,
2389 !XGET(string.strings[4], MUIA_String_Secret));
2390 set(string.strings[0], MUIA_String_MaxLen, 100);
2391 set(string.reject_string, MUIA_String_Contents,
2392 (IPTR)default_reject_chars);
2393
2394 for (i = 0; i < STRING_COUNT; i++)
2395 {
2396 if (i == 0)
2397 {
2398 DoMethod(string.accept_string, MUIM_Notify,
2399 MUIA_String_Contents, MUIV_EveryTime, string.strings[i],
2400 3, MUIM_Set, MUIA_String_Accept, MUIV_TriggerValue);
2401 DoMethod(string.cr_advance_check, MUIM_Notify, MUIA_Selected,
2402 MUIV_EveryTime, string.strings[i], 3, MUIM_Set,
2403 MUIA_String_AdvanceOnCR, MUIV_TriggerValue);
2404 DoMethod(string.cursor_pos_slider, MUIM_Notify,
2405 MUIA_Numeric_Value, MUIV_EveryTime, string.strings[i], 3,
2406 MUIM_Set, MUIA_String_BufferPos, MUIV_TriggerValue);
2407 DoMethod(string.display_pos_slider, MUIM_Notify,
2408 MUIA_Numeric_Value, MUIV_EveryTime, string.strings[i], 3,
2409 MUIM_Set, MUIA_String_DisplayPos, MUIV_TriggerValue);
2410 DoMethod(string.attach_list_check, MUIM_Notify, MUIA_Selected,
2411 TRUE, string.strings[i], 3, MUIM_Set,
2412 MUIA_String_AttachedList, list.lists[0]);
2413 DoMethod(string.attach_list_check, MUIM_Notify, MUIA_Selected,
2414 FALSE, string.strings[i], 3, MUIM_Set,
2415 MUIA_String_AttachedList, NULL);
2416 }
2417 else
2418 {
2419 DoMethod(string.strings[0], MUIM_Notify, MUIA_String_Accept,
2420 MUIV_EveryTime, string.strings[i], 3, MUIM_Set,
2421 MUIA_String_Accept, MUIV_TriggerValue);
2422 DoMethod(string.strings[0], MUIM_Notify,
2423 MUIA_String_AdvanceOnCR, MUIV_EveryTime,
2424 string.strings[i], 3, MUIM_Set, MUIA_String_AdvanceOnCR,
2425 MUIV_TriggerValue);
2426 DoMethod(string.strings[0], MUIM_Notify,
2427 MUIA_String_BufferPos, MUIV_EveryTime,
2428 string.strings[i], 3, MUIM_Set, MUIA_String_BufferPos,
2429 MUIV_TriggerValue);
2430 DoMethod(string.strings[0], MUIM_Notify,
2431 MUIA_String_DisplayPos, MUIV_EveryTime,
2432 string.strings[i], 3, MUIM_Set, MUIA_String_DisplayPos,
2433 MUIV_TriggerValue);
2434 DoMethod(string.strings[0], MUIM_Notify,
2435 MUIA_String_AttachedList, MUIV_EveryTime,
2436 string.strings[i], 3, MUIM_Set,
2437 MUIA_String_AttachedList, MUIV_TriggerValue);
2438 }
2439 DoMethod(string.reject_string, MUIM_Notify, MUIA_String_Contents,
2440 MUIV_EveryTime, string.strings[i], 3, MUIM_Set,
2441 MUIA_String_Reject, MUIV_TriggerValue);
2442 DoMethod(string.strings[i], MUIM_Notify, MUIA_String_Integer,
2443 MUIV_EveryTime, string.integer_string, 3, MUIM_NoNotifySet,
2444 MUIA_String_Integer, MUIV_TriggerValue);
2445 DoMethod(string.integer_string, MUIM_Notify, MUIA_String_Integer,
2446 MUIV_EveryTime, string.strings[i], 3, MUIM_NoNotifySet,
2447 MUIA_String_Integer, MUIV_TriggerValue);
2448 }
2449 DoMethod(string.accept_all_check, MUIM_Notify, MUIA_Selected,
2450 MUIV_EveryTime, app, 3, MUIM_CallHook, &hook_standard,
2451 ChangeStringAccept);
2452 DoMethod(string.strings[4], MUIM_Notify, MUIA_String_Acknowledge,
2453 MUIV_EveryTime, string.plaintext_string, 3, MUIM_NoNotifySet,
2454 MUIA_String_Contents, MUIV_TriggerValue);
2455 DoMethod(string.plaintext_string, MUIM_Notify,
2456 MUIA_String_Acknowledge, MUIV_EveryTime, string.strings[4], 3,
2457 MUIM_NoNotifySet, MUIA_String_Contents, MUIV_TriggerValue);
2458
2459 DoMethod(wheel, MUIM_Notify, WHEEL_Hue, MUIV_EveryTime, app, 2,
2460 MUIM_CallHook, &hook_wheel);
2461 DoMethod(wheel, MUIM_Notify, WHEEL_Saturation, MUIV_EveryTime, app,
2462 2, MUIM_CallHook, &hook_wheel);
2463 DoMethod(r_slider, MUIM_Notify, MUIA_Numeric_Value, MUIV_EveryTime,
2464 app, 2, MUIM_CallHook, &hook_slider);
2465 DoMethod(g_slider, MUIM_Notify, MUIA_Numeric_Value, MUIV_EveryTime,
2466 app, 2, MUIM_CallHook, &hook_slider);
2467 DoMethod(b_slider, MUIM_Notify, MUIA_Numeric_Value, MUIV_EveryTime,
2468 app, 2, MUIM_CallHook, &hook_slider);
2469
2470 DoMethod(save_button, MUIM_Notify, MUIA_Pressed, FALSE, app, 3,
2471 MUIM_CallHook, &hook_standard, Save);
2472
2473 DoMethod(quit_item, MUIM_Notify, MUIA_Menuitem_Trigger,
2474 MUIV_EveryTime, app, 2, MUIM_Application_ReturnID,
2475 MUIV_Application_ReturnID_Quit);
2476 DoMethod(about_item, MUIM_Notify, MUIA_Menuitem_Trigger,
2477 MUIV_EveryTime, app, 3, MUIM_CallHook, &hook_standard,
2478 About);
2479
2480 /* Notifications for color objects */
2481 DoMethod(colorfield, MUIM_Notify, MUIA_Colorfield_Red,
2482 MUIV_EveryTime, colorfield2, 3, MUIM_Set, MUIA_Colorfield_Red,
2483 MUIV_TriggerValue);
2484 DoMethod(colorfield, MUIM_Notify, MUIA_Colorfield_Green,
2485 MUIV_EveryTime, colorfield2, 3, MUIM_Set, MUIA_Colorfield_Green,
2486 MUIV_TriggerValue);
2487 DoMethod(colorfield, MUIM_Notify, MUIA_Colorfield_Blue,
2488 MUIV_EveryTime, colorfield2, 3, MUIM_Set, MUIA_Colorfield_Blue,
2489 MUIV_TriggerValue);
2490 DoMethod(coloradjust, MUIM_Notify, MUIA_Coloradjust_Red,
2491 MUIV_EveryTime, colorfield, 3, MUIM_Set, MUIA_Colorfield_Red,
2492 MUIV_TriggerValue);
2493 DoMethod(coloradjust, MUIM_Notify, MUIA_Coloradjust_Green,
2494 MUIV_EveryTime, colorfield, 3, MUIM_Set, MUIA_Colorfield_Green,
2495 MUIV_TriggerValue);
2496 DoMethod(coloradjust, MUIM_Notify, MUIA_Coloradjust_Blue,
2497 MUIV_EveryTime, colorfield, 3, MUIM_Set, MUIA_Colorfield_Blue,
2498 MUIV_TriggerValue);
2499 DoMethod(colorfield, MUIM_Notify, MUIA_Colorfield_Pen,
2500 MUIV_EveryTime, colorfield_pen, 3, MUIM_Set,
2501 MUIA_String_Integer, MUIV_TriggerValue);
2502 DoMethod(colorfield_pen, MUIM_Notify, MUIA_String_Acknowledge,
2503 MUIV_EveryTime, app, 3, MUIM_CallHook, &hook_standard,
2504 ChangePen);
2505 DoMethod(colorfield_reset_button, MUIM_Notify, MUIA_Pressed, FALSE,
2506 colorfield, 3, MUIM_Set, MUIA_Colorfield_RGB, default_color);
2507
2508 /* Notifications for pen objects */
2509 DoMethod(pendisplay, MUIM_Notify, MUIA_Pendisplay_Pen,
2510 MUIV_EveryTime, pendisplay_pen, 3, MUIM_NoNotifySet,
2511 MUIA_String_Integer, MUIV_TriggerValue);
2512 DoMethod(pendisplay_pen, MUIM_Notify, MUIA_String_Acknowledge,
2513 MUIV_EveryTime, app, 3, MUIM_CallHook, &hook_standard,
2514 ChangePendisplayPen);
2515 DoMethod(pendisplay, MUIM_Notify, MUIA_Pendisplay_Spec,
2516 MUIV_EveryTime, pendisplay_spec, 3, MUIM_Set,
2517 MUIA_String_Contents, MUIV_TriggerValue);
2518 DoMethod(colorfield, MUIM_Notify, MUIA_Colorfield_RGB,
2519 MUIV_EveryTime, pendisplay, 3, MUIM_Set,
2520 MUIA_Pendisplay_RGBcolor, MUIV_TriggerValue);
2521 DoMethod(pendisplay, MUIM_Notify, MUIA_Pendisplay_RGBcolor,
2522 MUIV_EveryTime, poppen, 3, MUIM_Set, MUIA_Pendisplay_RGBcolor,
2523 MUIV_TriggerValue);
2524 DoMethod(pendisplay_spec, MUIM_Notify, MUIA_String_Contents,
2525 MUIV_EveryTime, pendisplay, 3, MUIM_Set, MUIA_Pendisplay_Spec,
2526 MUIV_TriggerValue);
2527 DoMethod(reference_check, MUIM_Notify, MUIA_Selected, TRUE,
2528 pendisplay2, 3, MUIM_Set, MUIA_Pendisplay_Reference, pendisplay);
2529 DoMethod(reference_check, MUIM_Notify, MUIA_Selected, FALSE,
2530 pendisplay2, 3, MUIM_Set, MUIA_Pendisplay_Reference, NULL);
2531 DoMethod(shine_button, MUIM_Notify, MUIA_Pressed, FALSE, pendisplay,
2532 2, MUIM_Pendisplay_SetMUIPen, MPEN_SHINE);
2533 DoMethod(shadow_button, MUIM_Notify, MUIA_Pressed, FALSE, pendisplay,
2534 2, MUIM_Pendisplay_SetMUIPen, MPEN_SHADOW);
2535 DoMethod(yellow_button, MUIM_Notify, MUIA_Pressed, FALSE, pendisplay,
2536 4, MUIM_Pendisplay_SetRGB, 0xffffffff, 0xffffffff, 0);
2537
2538 /* Notifications and set-up for list objects */
2539 set(list.showdropmarks_check, MUIA_Selected, TRUE);
2540 UpdateListInfo();
2541 for (i = 0; i < LIST_COUNT; i++)
2542 {
2543 DoMethod(list.lists[i], MUIM_Notify, MUIA_Listview_DoubleClick,
2544 MUIV_EveryTime, list.lists[i], 3, MUIM_Set, MUIA_Disabled,
2545 TRUE);
2546 DoMethod(list.lists[i], MUIM_Notify, MUIA_List_Entries,
2547 MUIV_EveryTime, list.entries_text, 4, MUIM_SetAsString,
2548 MUIA_Text_Contents, "%ld", MUIV_TriggerValue);
2549 DoMethod(list.lists[i], MUIM_Notify, MUIA_List_Visible,
2550 MUIV_EveryTime, app, 3, MUIM_CallHook, &hook_standard,
2551 ListGetVisible);
2552 DoMethod(list.lists[i], MUIM_Notify, MUIA_List_First,
2553 MUIV_EveryTime, app, 3, MUIM_CallHook, &hook_standard,
2554 ListGetFirst);
2555 DoMethod(list.lists[i], MUIM_Notify, MUIA_List_InsertPosition,
2556 MUIV_EveryTime, list.insert_text, 4, MUIM_SetAsString,
2557 MUIA_Text_Contents, "%ld", MUIV_TriggerValue);
2558 DoMethod(list.lists[i], MUIM_Notify, MUIA_List_Active,
2559 MUIV_EveryTime, app, 3, MUIM_CallHook, &hook_standard,
2560 UpdateListInfo);
2561 }
2562 DoMethod(list.draggable_check, MUIM_Notify, MUIA_Selected,
2563 MUIV_EveryTime, app, 3, MUIM_CallHook, &hook_standard,
2564 ListSetDraggable);
2565 DoMethod(list.draggable_check, MUIM_Notify, MUIA_Selected,
2566 MUIV_EveryTime, list.dragsortable_check, 3, MUIM_Set,
2567 MUIA_Disabled, MUIV_NotTriggerValue);
2568 DoMethod(list.draggable_check, MUIM_Notify, MUIA_Selected,
2569 FALSE, list.dragsortable_check, 3, MUIM_Set,
2570 MUIA_Selected, FALSE);
2571 DoMethod(list.showdropmarks_check, MUIM_Notify, MUIA_Selected,
2572 MUIV_EveryTime, app, 3, MUIM_CallHook, &hook_standard,
2573 ListSetShowDropMarks);
2574 DoMethod(list.multitest_check, MUIM_Notify, MUIA_Selected,
2575 MUIV_EveryTime, app, 3, MUIM_CallHook, &hook_standard,
2576 ListSetMultiTest);
2577 DoMethod(list.quiet_check, MUIM_Notify, MUIA_Selected,
2578 MUIV_EveryTime, app, 3, MUIM_CallHook, &hook_standard,
2579 ListSetQuiet);
2580 DoMethod(list.dragsortable_check, MUIM_Notify, MUIA_Selected,
2581 MUIV_EveryTime, app, 3, MUIM_CallHook, &hook_standard,
2582 ListSetDragSortable);
2583 DoMethod(list.autovisible_check, MUIM_Notify, MUIA_Selected,
2584 MUIV_EveryTime, app, 3, MUIM_CallHook, &hook_standard,
2585 ListSetAutoVisible);
2586 DoMethod(list.reset_button, MUIM_Notify, MUIA_Pressed, FALSE,
2587 app, 3, MUIM_CallHook, &hook_standard, ListReset);
2588 DoMethod(list.move_button, MUIM_Notify, MUIA_Pressed, FALSE,
2589 app, 3, MUIM_CallHook, &hook_standard, ListMove);
2590 DoMethod(list.sort_button, MUIM_Notify, MUIA_Pressed, FALSE,
2591 app, 3, MUIM_CallHook, &hook_standard, ListSort);
2592 DoMethod(list.enable_button, MUIM_Notify, MUIA_Pressed, FALSE,
2593 app, 3, MUIM_CallHook, &hook_standard, ListEnable);
2594 DoMethod(list.exchange_button, MUIM_Notify, MUIA_Pressed, FALSE,
2595 app, 3, MUIM_CallHook, &hook_standard, ListExchange);
2596 DoMethod(list.jump_button, MUIM_Notify, MUIA_Pressed, FALSE,
2597 app, 3, MUIM_CallHook, &hook_standard, ListJump);
2598 DoMethod(list.select_button, MUIM_Notify, MUIA_Pressed, FALSE,
2599 app, 3, MUIM_CallHook, &hook_standard, ListSelect);
2600 DoMethod(list.deselect_button, MUIM_Notify, MUIA_Pressed, FALSE,
2601 app, 3, MUIM_CallHook, &hook_standard, ListDeselect);
2602 DoMethod(list.toggle_button, MUIM_Notify, MUIA_Pressed, FALSE,
2603 app, 3, MUIM_CallHook, &hook_standard, ListToggle);
2604 DoMethod(list.redraw_button, MUIM_Notify, MUIA_Pressed, FALSE,
2605 app, 3, MUIM_CallHook, &hook_standard, ListRedraw);
2606 DoMethod(list.insert_single_button, MUIM_Notify, MUIA_Pressed, FALSE,
2607 app, 3, MUIM_CallHook, &hook_standard, ListInsertSingle);
2608 DoMethod(list.insert_multiple_button, MUIM_Notify, MUIA_Pressed, FALSE,
2609 app, 3, MUIM_CallHook, &hook_standard, ListInsert);
2610 DoMethod(list.remove_button, MUIM_Notify, MUIA_Pressed, FALSE,
2611 app, 3, MUIM_CallHook, &hook_standard, ListRemove);
2612 DoMethod(list.clear_button, MUIM_Notify, MUIA_Pressed, FALSE,
2613 app, 3, MUIM_CallHook, &hook_standard, ListClear);
2614 DoMethod(list.activate_button, MUIM_Notify, MUIA_Pressed, FALSE,
2615 app, 3, MUIM_CallHook, &hook_standard, ListActivate);
2616 DoMethod(list.deactivate_button, MUIM_Notify, MUIA_Pressed, FALSE,
2617 app, 3, MUIM_CallHook, &hook_standard, ListDeactivate);
2618 DoMethod(list.title_string, MUIM_Notify, MUIA_String_Acknowledge,
2619 MUIV_EveryTime, app, 3, MUIM_CallHook, &hook_standard,
2620 ChangeListTitle);
2621 DoMethod(list.list_radios, MUIM_Notify, MUIA_Radio_Active,
2622 MUIV_EveryTime, app, 3, MUIM_CallHook, &hook_standard,
2623 UpdateListInfo);
2624 SET(list.lists[4], MUIA_List_CompareHook, &hook_compare);
2625 SET(list.lists[4], MUIA_List_AutoVisible, TRUE);
2626
2627 SET(list.showheadings_check, MUIA_Selected,
2628 XGET(list.multi_lists[0], MUIA_List_Title));
2629 SET(list.format_string, MUIA_String_Contents,
2630 XGET(list.multi_lists[1], MUIA_List_Format));
2631 SET(list.def_column_string, MUIA_String_Integer,
2632 XGET(list.multi_lists[0], MUIA_Listview_DefClickColumn));
2633 DoMethod(list.format_string, MUIM_Notify, MUIA_String_Acknowledge,
2634 MUIV_EveryTime, list.multi_lists[1], 3, MUIM_Set,
2635 MUIA_List_Format, MUIV_TriggerValue);
2636 DoMethod(list.multi_lists[1], MUIM_Notify, MUIA_List_Format,
2637 MUIV_EveryTime, wnd, 3, MUIM_Set,
2638 MUIA_Window_ActiveObject, list.format_string);
2639 for (i = 0; i < MULTI_LIST_COUNT; i++)
2640 {
2641 DoMethod(list.showheadings_check, MUIM_Notify, MUIA_Selected,
2642 MUIV_EveryTime, list.multi_lists[i], 3, MUIM_Set,
2643 MUIA_List_Title, MUIV_TriggerValue);
2644 DoMethod(list.showimage_check, MUIM_Notify, MUIA_Selected,
2645 MUIV_EveryTime, list.multi_lists[i], 2, MUIM_List_Redraw,
2646 MUIV_List_Redraw_All);
2647 DoMethod(list.def_column_string, MUIM_Notify,
2648 MUIA_String_Integer,
2649 MUIV_EveryTime, list.multi_lists[i], 3, MUIM_Set,
2650 MUIA_Listview_DefClickColumn, MUIV_TriggerValue);
2651 DoMethod(list.multi_lists[i], MUIM_Notify,
2652 MUIA_Listview_ClickColumn, MUIV_EveryTime,
2653 list.column_string, 3, MUIM_Set, MUIA_String_Integer,
2654 MUIV_TriggerValue);
2655 }
2656 DoMethod(list.column_string, MUIM_Notify, MUIA_String_Contents,
2657 MUIV_EveryTime, list.column_text, 3, MUIM_Set, MUIA_Text_Contents,
2658 MUIV_TriggerValue);
2659 DoMethod(list.multi_lists[1], MUIM_Notify, MUIA_Listview_DoubleClick,
2660 MUIV_EveryTime, app, 3, MUIM_CallHook, &hook_standard,
2661 CheckListDoubleClick);
2662 SET(list.multi_lists[1], MUIA_List_ConstructHook, &hook_construct);
2663 SET(list.multi_lists[1], MUIA_List_DestructHook, &hook_destruct);
2664 SET(list.multi_lists[1], MUIA_List_DisplayHook, &hook_display);
2665 DoMethod(list.multi_lists[1], MUIM_List_Insert, entries, -1,
2666 MUIV_List_Insert_Top);
2667
2668 DoMethod(listview, MUIM_Notify, MUIA_Listview_DoubleClick, TRUE,
2669 popobject, 2, MUIM_Popstring_Close, TRUE);
2670
2671 /* numeric */
2672 for (i = 0; i < NUMERIC_COUNT; i++)
2673 {
2674 DoMethod(min_string, MUIM_Notify, MUIA_String_Integer,
2675 MUIV_EveryTime, numerics[i], 3, MUIM_Set, MUIA_Numeric_Min,
2676 MUIV_TriggerValue);
2677 DoMethod(max_string, MUIM_Notify, MUIA_String_Integer,
2678 MUIV_EveryTime, numerics[i], 3, MUIM_Set, MUIA_Numeric_Max,
2679 MUIV_TriggerValue);
2680 }
2681 DoMethod(slider_button, MUIM_Notify, MUIA_Pressed, FALSE,
2682 numerics[HRSLIDER], 3, MUIM_Set, MUIA_Slider_Horiz, FALSE);
2683
2684 /* radio */
2685 DoMethod(country_radio[0], MUIM_Notify, MUIA_Radio_Active,
2686 MUIV_EveryTime, country_radio[1], 3, MUIM_NoNotifySet,
2687 MUIA_Radio_Active, MUIV_TriggerValue);
2688 DoMethod(country_radio[1], MUIM_Notify, MUIA_Radio_Active,
2689 MUIV_EveryTime, country_radio[0], 3, MUIM_NoNotifySet,
2690 MUIA_Radio_Active, MUIV_TriggerValue);
2691
2692 #if defined(TEST_ICONLIST)
2693 /* iconlist */
2694 DoMethod(volume_iconlist, MUIM_Notify, MUIA_IconList_DoubleClick,
2695 TRUE, volume_iconlist, 3, MUIM_CallHook, &hook_standard,
2696 volume_doubleclicked);
2697 DoMethod(drawer_iconlist, MUIM_Notify, MUIA_IconList_DoubleClick,
2698 TRUE, drawer_iconlist, 3, MUIM_CallHook, &hook_standard,
2699 drawer_doubleclicked);
2700 #endif
2701
2702 /* automatic tests */
2703 get(list.lists[0], MUIA_List_Visible, &value);
2704 if (value != -1)
2705 printf("MUIA_List_Visible equals %ld before display,"
2706 " but it should be -1.\n", (long)value);
2707 get(list.multi_lists[0], MUIA_Listview_ClickColumn, &value);
2708 if (value != 0)
2709 printf("MUIA_Listview_ClickColumn equals %ld before display,"
2710 " but it should be 0.\n", (long)value);
2711 get(list.lists[0], MUIA_Listview_DoubleClick, &value);
2712 if (value != 0)
2713 printf("MUIA_Listview_DoubleClick equals %ld before display,"
2714 " but it should be 0.\n", (long)value);
2715
2716 set(wnd, MUIA_Window_Open, TRUE);
2717 set(wnd, MUIA_Window_ScreenTitle, "Zune Test Application");
2718
2719 list.image = DoMethod(list.multi_lists[0], MUIM_List_CreateImage,
2720 list.colorfield, 0);
2721
2722 /* Set pen fields */
2723 set(colorfield_pen, MUIA_String_Integer,
2724 XGET(colorfield, MUIA_Colorfield_Pen));
2725
2726 char pen_str[10];
2727 nnset(pendisplay_pen, MUIA_String_Integer,
2728 XGET(pendisplay, MUIA_Pendisplay_Pen));
2729
2730 struct MUI_PenSpec *pen_spec = NULL;
2731 GET(pendisplay, MUIA_Pendisplay_Spec, &pen_spec);
2732 strncpy(pen_str, pen_spec->buf, 10);
2733 set(pendisplay_spec, MUIA_String_Contents, pen_str);
2734
2735 while ((LONG) DoMethod(app, MUIM_Application_NewInput,
2736 &sigs) != MUIV_Application_ReturnID_Quit)
2737 {
2738 if (sigs)
2739 {
2740 sigs = Wait(sigs | SIGBREAKF_CTRL_C | SIGBREAKF_CTRL_D);
2741 if (sigs & SIGBREAKF_CTRL_C)
2742 break;
2743 if (sigs & SIGBREAKF_CTRL_D)
2744 break;
2745 }
2746 }
2747
2748 DoMethod(list.multi_lists[0], MUIM_List_DeleteImage, list.image);
2749 MUI_DisposeObject(app);
2750 }
2751 if (context_menu)
2752 MUI_DisposeObject(context_menu);
2753 CloseLibrary(ColorWheelBase);
2754 MUI_DeleteCustomClass(CL_DropText);
2755
2756 /* automatic tests */
2757 if (list.destruct_count != 18)
2758 printf("The hook installed through MUIA_List_DestructHook has been"
2759 " called %ld times, but should have been called 18 times.\n",
2760 (long)list.destruct_count);
2761
2762 CloseLibrary(MUIMasterBase);
2763
2764 DeletePool(pool);
2765
2766 return 0;
2767 }
Mirror of AROS' svn.