?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
prism2.device: Compiler delint
[AROS.git] / workbench / demos / gtdemo.c
blobbbf262e5768b30d9064c0c0c38664154203dc212
1 /*
2 Copyright © 1997-98, The AROS Development Team. All rights reserved.
3 $Id$
4
5 Desc: Demo for gadtools.library
6 Lang: english
7 */
8
9 #include <aros/config.h>
10
11 #if !(AROS_FLAVOUR & AROS_FLAVOUR_NATIVE)
12 # define ENABLE_RT 1
13 #endif
14
15 #include <stdio.h>
16 #include <proto/exec.h>
17 #include <exec/libraries.h>
18 #include <exec/types.h>
19 #include <proto/dos.h>
20 #include <dos/dos.h>
21 #include <proto/intuition.h>
22 #include <intuition/classusr.h>
23 #include <intuition/gadgetclass.h>
24 #include <intuition/intuition.h>
25 #include <intuition/intuitionbase.h>
26 #include <intuition/screens.h>
27 #include <utility/tagitem.h>
28 #include <proto/gadtools.h>
29 #include <libraries/gadtools.h>
30
31 #include <proto/alib.h>
32
33 #include <aros/rt.h>
34
35 #define SDEBUG 1
36 #define DEBUG 1
37 #include <aros/debug.h>
38 struct IntuitionBase *IntuitionBase;
39 struct Library *GadToolsBase;
40
41 APTR vi;
42 struct Screen *scr;
43 struct Window *win;
44 struct Gadget *glist = NULL;
45
46 struct Gadget *button, *strgad, *integergadget;
47 WORD topoffset;
48
49 #define ID_BUTTON 1
50 #define ID_CHECKBOX 2
51 #define ID_MX 3
52 #define ID_CYCLE 4
53 #define ID_PALETTE 5
54 #define ID_SLIDER 6
55 #define ID_SCROLLER 7
56 #define ID_STRING 8
57 #define ID_INTEGER 9
58 #define ID_LISTVIEW 10
59
60 struct NewGadget buttongad =
61 {
62 210, 10, 100, 20,
63 "Exit (1)", NULL,
64 ID_BUTTON, PLACETEXT_IN, NULL, NULL
65 };
66
67 struct NewGadget checkbox =
68 {
69 320, 10, 20, 20,
70 "Disable (2)", NULL,
71 ID_CHECKBOX, PLACETEXT_RIGHT, NULL, NULL
72 };
73
74 struct NewGadget cyclegad =
75 {
76 210, 140, 100, 20,
77 "cyclegad (4)", NULL,
78 ID_CYCLE, PLACETEXT_ABOVE, NULL, NULL
79 };
80
81 struct NewGadget mxgad =
82 {
83 210, 60, MX_WIDTH, 20,
84 "Mutual Exclude (3)", NULL,
85 ID_MX, PLACETEXT_RIGHT, NULL, NULL
86 };
87
88 struct NewGadget palettegad =
89 {
90 210, 180, 120, 100,
91 "Palette (5)", NULL,
92 ID_PALETTE, PLACETEXT_ABOVE, NULL, NULL
93 };
94
95 struct NewGadget textgad =
96 {
97 380, 40, 120, 30,
98 NULL, NULL,
99 0, 0, NULL, NULL
100 };
101
102 struct NewGadget numbergad =
103 {
104 380, 80, 70, 20,
105 NULL, NULL,
106 0, 0, NULL, NULL
107 };
108
109 struct NewGadget slidergad =
110 {
111 380, 130, 120, 20,
112 "Slider (6)", NULL,
113 ID_SLIDER, PLACETEXT_ABOVE, NULL, NULL
114 };
115
116 struct NewGadget scrollergad =
117 {
118 380, 160, 20, 100,
119 NULL, NULL,
120 ID_SCROLLER, 0, NULL, NULL
121 };
122
123 struct NewGadget stringgad =
124 {
125 420, 180, 100, 20,
126 "String (8)", NULL,
127 ID_STRING, PLACETEXT_ABOVE, NULL, NULL
128 };
129
130 struct NewGadget integergad =
131 {
132 420, 240, 60, 20,
133 "Integer (9)", NULL,
134 ID_INTEGER, PLACETEXT_ABOVE, NULL, NULL
135 };
136
137 struct NewGadget listviewgad =
138 {
139 530, 30, 120, 100,
140 "Listview (10)", NULL,
141 ID_LISTVIEW, PLACETEXT_ABOVE, NULL, NULL
142 };
143
144 #define NUMLVNODES 20
145 struct Node lv_nodes[NUMLVNODES];
146 struct List lv_list;
147 STRPTR lv_texts[] = {"This", "is", "a", "demo", "of", "the", "GadTools", "listview.",
148 "Try", "scrolling", "and", "selecting", "entries",
149 "One", "Two", "Three", "Four", "Five", "Six", "Seven"};
150
151
152 STRPTR mxlabels[] =
153 {
154 "Label 1",
155 "Label 2",
156 "Label 3",
157 NULL
158 };
159
160 STRPTR cyclelabels[] =
161 {
162 "Label 1",
163 "Label 2",
164 "Label 3",
165 NULL
166 };
167
168 VOID initlvnodes(struct List *list, struct Node *nodes, STRPTR *texts, WORD numnodes)
169 {
170 WORD i;
171 NewList(list);
172
173 for (i = 0; i < numnodes; i ++)
174 {
175 AddTail(list, &(nodes[i]));
176 nodes[i].ln_Name = texts[i];
177
178 }
179 return;
180 }
181
182 BOOL openlibs()
183 {
184 IntuitionBase = (struct IntuitionBase *) OpenLibrary("intuition.library", 37);
185 GadToolsBase = OpenLibrary("gadtools.library", 0);
186 if (!IntuitionBase) {
187 printf("GTDemo: Error opening intuition.library\n");
188 return FALSE;
189 }
190 if (!GadToolsBase) {
191 printf("GTDemo: Error opening gadtools.library\n");
192 return FALSE;
193 }
194 return TRUE;
195 }
196
197 void closelibs()
198 {
199 D(bug("Closelibs: closing gadtools\n"));
200 CloseLibrary(GadToolsBase);
201 D(bug("Closelibs: closing intuition\n"));
202 CloseLibrary((struct Library *) IntuitionBase);
203 D(bug("Closelibs: libs closed\n"));
204 }
205
206
207 struct Gadget *gt_init()
208 {
209 struct Gadget *gad = NULL;
210 struct DrawInfo *dri;
211
212 scr = LockPubScreen(NULL);
213 vi = GetVisualInfoA(scr, NULL);
214 if (vi != NULL)
215 gad = CreateContext(&glist);
216
217 if ((dri = GetScreenDrawInfo(scr)))
218 {
219 topoffset = dri->dri_Font->tf_YSize + scr->WBorTop - 10 + 5;
220
221 buttongad.ng_TopEdge += topoffset;
222 checkbox.ng_TopEdge += topoffset;
223 cyclegad.ng_TopEdge += topoffset;
224 mxgad.ng_TopEdge += topoffset;
225 palettegad.ng_TopEdge += topoffset;
226 textgad.ng_TopEdge += topoffset;
227 numbergad.ng_TopEdge += topoffset;
228 slidergad.ng_TopEdge += topoffset;
229 scrollergad.ng_TopEdge += topoffset;
230 stringgad.ng_TopEdge += topoffset;
231 integergad.ng_TopEdge += topoffset;
232 listviewgad.ng_TopEdge += topoffset;
233
234 FreeScreenDrawInfo(scr,dri);
235 }
236
237 return gad;
238 }
239
240 void gt_end()
241 {
242 D(bug("gtend: Freeing gadgets\n"));
243 FreeGadgets(glist);
244 D(bug("gtend: Freeing visualnfo\n"));
245 FreeVisualInfo(vi);
246 D(bug("gtend: Unlocking screen\n"));
247 UnlockPubScreen(NULL, scr);
248 }
249
250
251 BOOL openwin()
252 {
253 win = OpenWindowTags(NULL,
254 WA_PubScreen, (IPTR)scr,
255 WA_Left, 0,
256 WA_Top, 0,
257 WA_Width, 700,
258 WA_Height, 300 + topoffset,
259 WA_Title, (IPTR)"GTDemo",
260 WA_IDCMP,
261 BUTTONIDCMP |
262 CHECKBOXIDCMP |
263 CYCLEIDCMP |
264 MXIDCMP |
265 PALETTEIDCMP |
266 SLIDERIDCMP |
267 SCROLLERIDCMP |
268 ARROWIDCMP |
269 IDCMP_GADGETUP |
270 IDCMP_VANILLAKEY |
271 IDCMP_CLOSEWINDOW |
272 IDCMP_REFRESHWINDOW,
273 // WA_SimpleRefresh, TRUE,
274 WA_Gadgets, (IPTR)glist,
275 WA_DragBar, TRUE,
276 WA_CloseGadget, TRUE,
277 WA_DepthGadget, TRUE,
278 TAG_DONE);
279 if (!win) {
280 printf("GTDemo: Error opening window\n");
281 return FALSE;
282 }
283 return TRUE;
284 }
285
286
287 struct Gadget *makegadgets(struct Gadget *gad)
288 {
289 buttongad.ng_VisualInfo = vi;
290 checkbox.ng_VisualInfo = vi;
291 cyclegad.ng_VisualInfo = vi;
292 mxgad.ng_VisualInfo = vi;
293 palettegad.ng_VisualInfo = vi;
294 textgad.ng_VisualInfo = vi;
295 numbergad.ng_VisualInfo = vi;
296 slidergad.ng_VisualInfo = vi;
297 scrollergad.ng_VisualInfo = vi;
298 stringgad.ng_VisualInfo = vi;
299 integergad.ng_VisualInfo = vi;
300 listviewgad.ng_VisualInfo = vi;
301
302 gad = CreateGadget(BUTTON_KIND, gad, &buttongad,
303 GA_Immediate, TRUE,
304 TAG_DONE);
305 D(bug("Created button gadget: %p\n", gad));
306 button = gad;
307 gad = CreateGadget(CHECKBOX_KIND, gad, &checkbox,
308 GTCB_Checked, FALSE,
309 GTCB_Scaled, TRUE,
310 TAG_DONE);
311 D(bug("Created checkbox gadget: %p\n", gad));
312 gad = CreateGadget(CYCLE_KIND, gad, &cyclegad,
313 GTCY_Labels, (IPTR)&cyclelabels,
314 TAG_DONE);
315 D(bug("Created cycle gadget: %p\n", gad));
316 gad = CreateGadget(MX_KIND, gad, &mxgad,
317 GTMX_Labels, (IPTR)&mxlabels,
318 GTMX_Scaled, TRUE,
319 GTMX_TitlePlace, PLACETEXT_ABOVE,
320 TAG_DONE);
321
322 D(bug("Created mx gadget: %p\n", gad));
323 gad = CreateGadget(PALETTE_KIND, gad, &palettegad,
324 GTPA_NumColors, 6,
325 GTPA_IndicatorHeight, 30,
326 GTPA_Color, 0,
327 TAG_DONE);
328
329 D(bug("Created palette gadget: %p\n", gad));
330 gad = CreateGadget(TEXT_KIND, gad, &textgad,
331 GTTX_Text, (IPTR)"Text display",
332 GTTX_CopyText, TRUE,
333 GTTX_Border, TRUE,
334 GTTX_Justification, GTJ_CENTER,
335 TAG_DONE);
336
337 D(bug("Created text gadget: %p\n", gad));
338 gad = CreateGadget(NUMBER_KIND, gad, &numbergad,
339 GTNM_Number, 10,
340 GTNM_Border, TRUE,
341 GTNM_Justification, GTJ_CENTER,
342 TAG_DONE);
343
344 D(bug("Created number gadget: %p\n", gad));
345 gad = CreateGadget(SLIDER_KIND, gad, &slidergad,
346 GTSL_Min, 10,
347 GTSL_Max, 20,
348 GTSL_Level, 12,
349 GTSL_MaxLevelLen, 3,
350 GTSL_LevelFormat, (IPTR)"%2ld",
351 GTSL_LevelPlace, PLACETEXT_RIGHT,
352 GTSL_Justification, GTJ_RIGHT,
353 PGA_Freedom, LORIENT_HORIZ,
354 TAG_DONE);
355
356
357 D(bug("Created slider gadget: %p\n", gad));
358 gad = CreateGadget(SCROLLER_KIND, gad, &scrollergad,
359 GTSC_Top, 2,
360 GTSC_Total, 10,
361 GTSC_Visible, 2,
362 GTSC_Arrows, 10,
363 GA_RelVerify, TRUE,
364 PGA_Freedom, LORIENT_VERT,
365 TAG_DONE);
366
367 D(bug("Created scroller gadget: %p\n", gad));
368 gad = strgad = CreateGadget(STRING_KIND, gad, &stringgad,
369 GTST_String, (IPTR)"Blahblahblah",
370 GTST_MaxChars, 80,
371 GTSC_Visible, 2,
372 GA_Immediate, TRUE,
373 TAG_DONE);
374
375 D(bug("Created string gadget: %p\n", gad));
376
377 gad = integergadget = CreateGadget(INTEGER_KIND, gad, &integergad,
378 GTIN_Number, 100,
379 GTIN_MaxChars, 5,
380 STRINGA_Justification, GACT_STRINGCENTER,
381 GA_Immediate, TRUE,
382 TAG_DONE);
383
384 D(bug("Created integer gadget: %p\n", gad));
385
386
387 initlvnodes(&lv_list, lv_nodes, lv_texts, NUMLVNODES);
388 D(bug("Inited lv nodes\n"));
389 gad = CreateGadget(LISTVIEW_KIND, gad, &listviewgad,
390 GTLV_Labels, (IPTR)&lv_list,
391 GTLV_ReadOnly, FALSE,
392 TAG_DONE);
393
394 D(bug("Created listview gadget: %p\n", gad));
395
396 if (!gad) {
397 FreeGadgets(glist);
398 printf("GTDemo: Error creating gadgets\n");
399 }
400 return gad;
401 }
402
403 void draw_bevels(struct Window *win, APTR vi)
404 {
405 DrawBevelBox(win->RPort, 10, 10 + topoffset, 80, 80,
406 GT_VisualInfo, (IPTR) vi, TAG_DONE);
407 DrawBevelBox(win->RPort, 110, 10 + topoffset, 80, 80,
408 GTBB_Recessed, TRUE,
409 GT_VisualInfo, (IPTR) vi, TAG_DONE);
410 DrawBevelBox(win->RPort, 10, 110 + topoffset, 80, 80,
411 GTBB_FrameType, BBFT_RIDGE,
412 GT_VisualInfo, (IPTR) vi, TAG_DONE);
413 DrawBevelBox(win->RPort, 110, 110 + topoffset, 80, 80,
414 GTBB_FrameType, BBFT_RIDGE, GTBB_Recessed, TRUE,
415 GT_VisualInfo, (IPTR) vi, TAG_DONE);
416 DrawBevelBox(win->RPort, 10, 210 + topoffset, 80, 80,
417 GTBB_FrameType, BBFT_ICONDROPBOX,
418 GT_VisualInfo, (IPTR) vi, TAG_DONE);
419 DrawBevelBox(win->RPort, 110, 210 + topoffset, 80, 80,
420 GTBB_FrameType, BBFT_ICONDROPBOX, GTBB_Recessed, TRUE,
421 GT_VisualInfo, (IPTR) vi, TAG_DONE);
422 }
423
424 void handlewin()
425 {
426 BOOL ready = FALSE;
427 struct IntuiMessage *msg;
428
429 GT_SetGadgetAttrs(strgad,win,NULL,GTST_String, (IPTR)"Hello",
430 TAG_DONE);
431
432 GT_SetGadgetAttrs(integergadget,win,NULL,GTIN_Number,1000,TAG_DONE);
433
434 while (ready == FALSE) {
435 WaitPort(win->UserPort);
436 msg = GT_GetIMsg(win->UserPort);
437 if (msg != NULL) {
438 switch (msg->Class) {
439 case IDCMP_REFRESHWINDOW:
440 GT_BeginRefresh(win);
441 draw_bevels(win, vi);
442 GT_EndRefresh(win, TRUE);
443 D(bug("Got IDCMP_REFRESHWINDOW msg\n"));
444 break;
445 case IDCMP_VANILLAKEY:
446 if (msg->Code != 0x1B) /* if escape, quit */
447 break;
448 case IDCMP_CLOSEWINDOW:
449 ready = TRUE;
450 break;
451 case IDCMP_GADGETDOWN:
452 printf("Gadget %d pressed",
453 ((struct Gadget *) msg->IAddress)->GadgetID);
454 switch (((struct Gadget *) msg->IAddress)->GadgetID) {
455 case ID_MX:
456 printf(" (active: %d)", msg->Code);
457 break;
458 }
459 printf("\n");
460 break;
461 case IDCMP_MOUSEMOVE:
462 if (msg->IAddress)
463 {
464 switch (((struct Gadget *) msg->IAddress)->GadgetID) {
465 case ID_SLIDER:
466 printf("Slider moved to value %d\n", msg->Code);
467 break;
468
469 case ID_SCROLLER:
470 printf("Scroller moved to value %d\n", msg->Code);
471 break;
472
473 }
474
475 }
476 break;
477
478 case IDCMP_GADGETUP:
479 printf("Gadget %d released",
480 ((struct Gadget *) msg->IAddress)->GadgetID);
481 switch (((struct Gadget *) msg->IAddress)->GadgetID) {
482 case ID_BUTTON:
483 ready = TRUE;
484 break;
485
486 case ID_PALETTE:
487 printf(" (color: %d)", msg->Code);
488 break;
489
490 case ID_LISTVIEW:
491 printf(" (lv item: %d)", msg->Code);
492 break;
493
494 case ID_CYCLE:
495 printf(" (cycle item: %d)", msg->Code);
496 break;
497
498 case ID_CHECKBOX:{
499 BOOL checked;
500
501 checked = msg->Code;
502 if (checked)
503 printf(" (checked)");
504 else
505 printf(" (not checked)");
506 GT_SetGadgetAttrs(button, win, NULL,
507 GA_Disabled, (IPTR)checked, TAG_DONE);
508 break;
509 }
510 }
511 printf("\n");
512 break;
513 }
514 GT_ReplyIMsg(msg);
515 }
516 }
517 }
518
519
520 int main()
521 {
522 int error = RETURN_OK;
523
524
525
526 #if SDEBUG /* Debugging hack */
527 struct Task *idtask;
528 SDInit();
529 if ((idtask = FindTask("input.device")))
530 idtask->tc_UserData = NULL;
531 #endif
532
533 RT_Init();
534
535 if (openlibs() != FALSE) {
536 struct Gadget *gad;
537
538 gad = gt_init();
539 gad = makegadgets(gad);
540 if (gad != NULL) {
541 if (openwin() != FALSE) {
542 draw_bevels(win, vi);
543 handlewin();
544 CloseWindow(win);
545 } else
546 error = RETURN_FAIL;
547 } else
548 error = RETURN_FAIL;
549
550 D(bug("Doing gt_end()\n"));
551 gt_end();
552 } else
553 error = RETURN_FAIL;
554
555 D(bug("closing libs\n"));
556 closelibs();
557
558 RT_Exit();
559
560 return (error);
561 }
Mirror of AROS' svn.