workbench/demos/rtlong.c

   1
   2 #include <libraries/reqtools.h>
   3 #include <proto/exec.h>
   4 #include <proto/reqtools.h>
   5
   6 #include <stdio.h>
   7 #include <string.h>
   8 #include <stdlib.h>
   9
  10 #define PROGNAME "rtlong"
  11
  12 struct ReqToolsBase *ReqToolsBase;
  13
  14 static void cleanup(char *msg)
  15 {
  16     if (msg) printf(PROGNAME ": %s\n", msg);
  17
  18     if (ReqToolsBase) CloseLibrary((struct Library *)ReqToolsBase);
  19
  20     exit(0);
  21 }
  22
  23 static void openlibs(void)
  24 {
  25     ReqToolsBase = (struct ReqToolsBase *)OpenLibrary("reqtools.library", 0);
  26     if (!ReqToolsBase) cleanup("Can't open reqtools.library");
  27 }
  28
  29 static void action(void)
  30 {
  31     struct TagItem tags[] =
  32     {
  33         {RT_Underscore          , (IPTR)'_'                                     },
  34         {RTGL_Min               , -100                                          },
  35         {RTGL_Max               , 100                                           },
  36         {RTGL_Flags             , GLREQF_CENTERTEXT                             },
  37         {RTGS_TextFmt           , (IPTR)"Enter something\n12345678\nABCDEF"     },
  38         {RTGS_GadFmt            , (IPTR)"O_k|Hel_lo|_Something"                 },
  39         {TAG_DONE                                                               }
  40     };
  41     LONG val = 0;
  42
  43     rtGetLongA((ULONG *)&val, "Title", NULL, tags);
  44 }
  45
  46 int main(void)
  47 {
  48     openlibs();
  49     action();
  50     cleanup(0);
  51
  52     return 0;
  53 }