test/Zune/crawling.c

   1 /*
   2     Copyright © 2002, The AROS Development Team.
   3     All rights reserved.
   4
   5     $Id$
   6 */
   7
   8 #include <exec/types.h>
   9 #include <stdlib.h>
  10 #include <stdio.h>
  11 #include <string.h>
  12
  13 #include <dos/dos.h>
  14 #include <intuition/gadgetclass.h>
  15 #include <intuition/icclass.h>
  16 #include <proto/exec.h>
  17 #include <proto/intuition.h>
  18 #include <proto/muimaster.h>
  19 #include <clib/alib_protos.h>
  20
  21 /* the following should go in a single include file which then only
  22 ** constits of the public constants and members. Actually this is easiey
  23 */
  24
  25 #include <libraries/mui.h>
  26
  27 struct Library *MUIMasterBase;
  28
  29 Object *app;
  30
  31 int main(void)
  32 {
  33     Object *wnd;
  34
  35     MUIMasterBase = (struct Library*)OpenLibrary("muimaster.library",0);
  36
  37     app = ApplicationObject,
  38         SubWindow, wnd = WindowObject,
  39             MUIA_Window_Title, "crawling",
  40             MUIA_Window_Activate, TRUE,
  41
  42             WindowContents, VGroup,
  43                 Child, CrawlingObject,
  44                     TextFrame,
  45                     MUIA_Background, MUII_TextBack,
  46                     MUIA_FixHeightTxt, "\n",
  47                     Child, TextObject,
  48                         MUIA_Text_Contents, "One\nTwo\nThree\nFour\nFive\nSix\nSeven\nEight\nNine\nTen\nOne\nTwo",
  49                         End,
  50                     End,
  51                 End,
  52             End,
  53         End;
  54
  55     if (app)
  56     {
  57         ULONG sigs = 0;
  58
  59         DoMethod
  60         (
  61             wnd, MUIM_Notify, MUIA_Window_CloseRequest, TRUE, (IPTR) app,
  62             2, MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit
  63         );
  64
  65         set(wnd,MUIA_Window_Open,TRUE);
  66
  67         while (DoMethod(app, MUIM_Application_NewInput, (IPTR) &sigs) != MUIV_Application_ReturnID_Quit)
  68         {
  69             if (sigs)
  70             {
  71                 sigs = Wait(sigs | SIGBREAKF_CTRL_C | SIGBREAKF_CTRL_D);
  72                 if (sigs & SIGBREAKF_CTRL_C) break;
  73                 if (sigs & SIGBREAKF_CTRL_D) break;
  74             }
  75         }
  76
  77         MUI_DisposeObject(app);
  78     }
  79
  80     CloseLibrary(MUIMasterBase);
  81
  82     return 0;
  83 }
  84