test/Zune/string.c

   1 /*
   2     Copyright © 1995-2014, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <exec/types.h>
   7 #include <stdlib.h>
   8 #include <stdio.h>
   9 #include <string.h>
  10
  11 #include <proto/alib.h>
  12 #include <proto/exec.h>
  13 #include <proto/dos.h>
  14 #include <proto/intuition.h>
  15 #include <proto/muimaster.h>
  16 #include <libraries/mui.h>
  17 #include <libraries/coolimages.h>
  18
  19
  20 #define AddContents(obj)                        \
  21         DoMethod(root, MUIM_Group_InitChange);  \
  22         DoMethod(root, OM_ADDMEMBER, (IPTR)obj);\
  23         DoMethod(root, MUIM_Group_ExitChange);
  24
  25 #define DelContents(obj)                        \
  26         DoMethod(root, MUIM_Group_InitChange);  \
  27         DoMethod(root, OM_REMMEMBER, (IPTR)obj);\
  28         DoMethod(root, MUIM_Group_ExitChange);  \
  29         MUI_DisposeObject(obj);
  30
  31 Object *app;
  32 Object *wnd;
  33 Object *root;
  34 Object *btabort, *btproceed;
  35
  36 int quit = FALSE;
  37
  38 enum
  39 {
  40 Push_NULL,
  41 Push_Proceed,
  42 Push_Abort,
  43 };
  44
  45 /* ######################################################################## */
  46
  47
  48 const char GuiWinTitle[] ="String Test";
  49 struct Screen *scr;
  50
  51
  52 void init_gui()
  53 {
  54
  55     scr = LockPubScreen(NULL);
  56
  57     app = ApplicationObject,
  58         MUIA_Application_Title, "String Test",
  59
  60         SubWindow, wnd = WindowObject,
  61             MUIA_Window_Title,  GuiWinTitle,
  62             MUIA_Window_Width,  400,
  63             MUIA_Window_Height, 300,
  64             MUIA_Window_CloseGadget,    FALSE,
  65             MUIA_Window_NoMenus,        TRUE,
  66             MUIA_Window_ID,     MAKE_ID('T','E','S','T'),
  67             WindowContents,
  68             VGroup,
  69                 Child, root = VGroup, End,
  70                 Child, HBar(TRUE),
  71                 Child, HGroup,
  72                 MUIA_Group_SameSize, TRUE,
  73                 Child, btproceed = CoolImageIDButton("Proceed", COOL_USEIMAGE_ID),
  74                 Child, btabort   = CoolImageIDButton("Abort", COOL_CANCELIMAGE_ID),
  75                 End,
  76             End,
  77         End,
  78     End;
  79
  80     if (app == NULL)
  81     {
  82         /* failed to initialize GUI */
  83 printf("Failed to intialize Zune GUI\n");
  84     }
  85     set(app,MUIA_Window_DefaultObject, (IPTR)root);
  86     set(btproceed,MUIA_CycleChain,1);
  87     set(btabort,MUIA_CycleChain,1);
  88
  89     DoMethod(btproceed, MUIM_Notify, MUIA_Pressed, FALSE,(IPTR)app, 2,
  90         MUIM_Application_ReturnID, Push_Proceed);
  91     DoMethod(btabort, MUIM_Notify, MUIA_Pressed, FALSE,(IPTR)app, 2,
  92         MUIM_Application_ReturnID, Push_Abort);
  93     set(wnd, MUIA_Window_Open, TRUE);
  94 }
  95
  96 /*
  97  * Close GUI
  98  */
  99 void deinit_gui()
 100 {
 101     set(wnd, MUIA_Window_Open, FALSE);
 102     MUI_DisposeObject(app);
 103 }
 104
 105
 106
 107 /*
 108  * Ask user for a number
 109  */
 110 long int request_number(long int def)
 111 {
 112 long int retval;
 113 long int min, max;
 114
 115     retval = def;
 116     max = 999;
 117     min = 0;
 118
 119
 120     {
 121     char *out;
 122     BOOL running = TRUE;
 123     Object *st, *wc;
 124     ULONG val, sigs = 0;
 125
 126         out = StrDup("TEST");
 127
 128         wc = VGroup,
 129         Child, VGroup, GroupFrame,
 130                     Child, TextObject,
 131                         MUIA_Text_Contents, (IPTR)(out),
 132                     End,
 133                     Child, st  = StringObject,
 134                         StringFrame,
 135                         MUIA_String_Accept,     (IPTR)"-0123456789",
 136                         MUIA_String_Integer,    retval,
 137                         MUIA_String_AdvanceOnCR,TRUE,
 138                         MUIA_CycleChain,        TRUE,
 139                     End,
 140                 End,
 141             End;
 142
 143         if (wc)
 144         {
 145             AddContents(wc);
 146
 147             while (running)
 148             {
 149                 switch (val = DoMethod(app,MUIM_Application_NewInput,(IPTR)&sigs))
 150                 {
 151                     case MUIV_Application_ReturnID_Quit:
 152                     case Push_Abort:
 153                         quit = TRUE; running = FALSE;
 154                         break;
 155                     case Push_Proceed:
 156                         GetAttr(MUIA_String_Integer, st, &retval);
 157                         if ( retval < max && retval > min)
 158                         {
 159                             running = FALSE;
 160                         }
 161                         break;
 162                     default:
 163                         break;
 164                 }
 165
 166                 sigs = CheckSignal(SIGBREAKF_CTRL_C | sigs);
 167
 168             }
 169             GetAttr(MUIA_String_Integer, st, &retval);
 170
 171             DelContents(wc);
 172         }
 173         FreeVec(out);
 174     }
 175
 176
 177 return retval;
 178 }
 179
 180
 181 char *request_string(char *def)
 182 {
 183 char *retval, *string, *secret;
 184 char *out;
 185 BOOL running = TRUE;
 186 Object *st, *tst, *wc;
 187 ULONG val, sigs = 0;
 188
 189     string = def;
 190
 191     out = StrDup("test");
 192     secret = NULL;
 193
 194     wc = VGroup, GroupFrame,
 195             Child, TextObject,
 196                 MUIA_Text_Contents, (IPTR)(out),
 197             End,
 198             Child, st  = StringObject,
 199                 StringFrame,
 200                 MUIA_String_Contents,   (IPTR)string,
 201                 MUIA_String_MaxLen,     12,
 202                 MUIA_String_AdvanceOnCR,TRUE,
 203                 MUIA_CycleChain,        TRUE,
 204             End,
 205             Child, tst  = StringObject,
 206                 StringFrame,
 207                 MUIA_String_Contents,   (IPTR)secret,
 208                 MUIA_String_MaxLen,     12,
 209                 MUIA_String_Secret,     TRUE,
 210                 MUIA_String_AdvanceOnCR,TRUE,
 211                 MUIA_CycleChain,        TRUE,
 212             End,
 213         End;
 214
 215         if (wc)
 216         {
 217             AddContents(wc);
 218
 219             while (running)
 220             {
 221                 switch (val = DoMethod(app,MUIM_Application_NewInput,(IPTR)&sigs))
 222                 {
 223                     case MUIV_Application_ReturnID_Quit:
 224                     case Push_Abort:
 225                         quit = TRUE; running = FALSE;
 226                         break;
 227                     case Push_Proceed:
 228                         running = FALSE;
 229                         break;
 230                     default:
 231                         break;
 232                 }
 233                 sigs = CheckSignal(SIGBREAKF_CTRL_C | sigs);
 234
 235             }
 236             get(st, MUIA_String_Contents, &string);
 237             if (strlen(string)==0)
 238             {
 239                 get(tst, MUIA_String_Contents, &secret);
 240                 retval = StrDup(secret);
 241             }
 242             else retval = StrDup(string);
 243
 244             DelContents(wc);
 245         }
 246         else
 247         {
 248             retval = StrDup(string);
 249         }
 250         FreeVec(out);
 251
 252 return retval;
 253 }
 254
 255
 256 int main()
 257 {
 258 char *string;
 259 long int intval;
 260
 261     init_gui();
 262
 263     for(;;)
 264     {
 265         string = request_string("blah");
 266         printf("you entered string <%s>\n",string);
 267         FreeVec(string);
 268         if(quit) break;
 269         intval = request_number(99);
 270         printf("you entered number <%ld>\n",intval);
 271         if(quit) break;
 272     }
 273     deinit_gui();
 274
 275     return 0;
 276 }