home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / dev / gui / mui / developer / c / examples / popup.c < prev    next >
C/C++ Source or Header  |  1994-08-08  |  5KB  |  196 lines
  1. #include "demo.h"
  2.  
  3.  
  4. SAVEDS ASM LONG StrObjFunc(REG(a2) Object *pop,REG(a1) Object *str)
  5. {
  6.     char *x,*s;
  7.     int i;
  8.  
  9.     get(str,MUIA_String_Contents,&s);
  10.  
  11.     for (i=0;;i++)
  12.     {
  13.         DoMethod(pop,MUIM_List_GetEntry,i,&x);
  14.         if (!x)
  15.         {
  16.             set(pop,MUIA_List_Active,MUIV_List_Active_Off);
  17.             break;
  18.         }
  19.         else if (!stricmp(x,s))
  20.         {
  21.             set(pop,MUIA_List_Active,i);
  22.             break;
  23.         }
  24.     }
  25.     return(TRUE);
  26. }
  27.  
  28.  
  29. SAVEDS ASM VOID ObjStrFunc(REG(a2) Object *pop,REG(a1) Object *str)
  30. {
  31.     char *x;
  32.     DoMethod(pop,MUIM_List_GetEntry,MUIV_List_GetEntry_Active,&x);
  33.     set(str,MUIA_String_Contents,x);
  34. }
  35.  
  36.  
  37. SAVEDS ASM VOID WindowFunc(REG(a2) Object *pop,REG(a1) Object *win)
  38. {
  39.     set(win,MUIA_Window_DefaultObject,pop);
  40. }
  41.  
  42.  
  43. static const char *PopNames[] =
  44. {
  45.     "Stefan Becker",
  46.     "Martin Berndt",
  47.     "Dirk Federlein",
  48.     "Georg Heßmann",
  49.     "Martin Horneffer",
  50.     "Martin Huttenloher",
  51.     "Kai Iske",
  52.     "Oliver Kilian",
  53.     "Franke Mariak",
  54.     "Klaus Melchior",
  55.     "Armin Sander",
  56.     "Matthias Scheler",
  57.     "Andreas Schildbach",
  58.     "Wolfgang Schildbach",
  59.     "Christian Scholz",
  60.     "Markus Stipp",
  61.     "Ibrahim Solmaz",
  62.     "Henri Veistera",
  63.     "Albert Weinert",
  64.     NULL
  65. };
  66.  
  67.  
  68. int main(int argc,char *argv[])
  69. {
  70.     static const struct Hook StrObjHook = { { NULL,NULL },(VOID *)StrObjFunc,NULL,NULL };
  71.     static const struct Hook ObjStrHook = { { NULL,NULL },(VOID *)ObjStrFunc,NULL,NULL };
  72.     static const struct Hook WindowHook = { { NULL,NULL },(VOID *)WindowFunc,NULL,NULL };
  73.     APTR app,window,pop1,pop2,pop3,pop4,pop5,plist;
  74.     ULONG signals;
  75.     BOOL running = TRUE;
  76.  
  77.     init();
  78.  
  79.     app = ApplicationObject,
  80.         MUIA_Application_Title      , "Popup-Demo",
  81.         MUIA_Application_Version    , "$VER: Popup-Demo 9.14 (07.08.94)",
  82.         MUIA_Application_Copyright  , "©1993, Stefan Stuntz",
  83.         MUIA_Application_Author     , "Stefan Stuntz",
  84.         MUIA_Application_Description, "Demostrate popup objects.",
  85.         MUIA_Application_Base       , "POPUP",
  86.  
  87.         SubWindow, window = WindowObject,
  88.             MUIA_Window_Title, "Popup Objects",
  89.             MUIA_Window_ID   , MAKE_ID('P','O','P','P'),
  90.             WindowContents, VGroup,
  91.  
  92.                 Child, ColGroup(2),
  93.  
  94.                     Child, KeyLabel2("File:",'f'),
  95.                     Child, pop1 = PopaslObject,
  96.                         MUIA_Popstring_String, KeyString(0,256,'f'),
  97.                         MUIA_Popstring_Button, PopButton(MUII_PopFile),
  98.                         ASLFR_TitleText, "Please select a file...",
  99.                         End,
  100.  
  101.                     Child, KeyLabel2("Drawer:",'d'),
  102.                     Child, pop2 = PopaslObject,
  103.                         MUIA_Popstring_String, KeyString(0,256,'d'),
  104.                         MUIA_Popstring_Button, PopButton(MUII_PopDrawer),
  105.                         ASLFR_TitleText  , "Please select a drawer...",
  106.                         ASLFR_DrawersOnly, TRUE,
  107.                         End,
  108.  
  109.                     Child, KeyLabel2("Font:",'o'),
  110.                     Child, pop3 = PopaslObject,
  111.                         MUIA_Popstring_String, KeyString(0,80,'o'),
  112.                         MUIA_Popstring_Button, PopButton(MUII_PopUp),
  113.                         MUIA_Popasl_Type , ASL_FontRequest,
  114.                         ASLFO_TitleText  , "Please select a font...",
  115.                         End,
  116.  
  117.                     Child, KeyLabel2("Fixed Font:",'i'),
  118.                     Child, pop4 = PopaslObject,
  119.                         MUIA_Popstring_String, KeyString(0,80,'i'),
  120.                         MUIA_Popstring_Button, PopButton(MUII_PopUp),
  121.                         MUIA_Popasl_Type , ASL_FontRequest,
  122.                         ASLFO_TitleText  , "Please select a fixed font...",
  123.                         ASLFO_FixedWidthOnly, TRUE,
  124.                         End,
  125.  
  126.                     Child, KeyLabel2("Thanks To:",'n'),
  127.                     Child, pop5 = PopobjectObject,
  128.                         MUIA_Popstring_String, KeyString(0,60,'n'),
  129.                         MUIA_Popstring_Button, PopButton(MUII_PopUp),
  130.                         MUIA_Popobject_StrObjHook, &StrObjHook,
  131.                         MUIA_Popobject_ObjStrHook, &ObjStrHook,
  132.                         MUIA_Popobject_WindowHook, &WindowHook,
  133.                         MUIA_Popobject_Object, plist = ListviewObject,
  134.                             MUIA_Listview_List, ListObject,
  135.                                 InputListFrame,
  136.                                 MUIA_List_SourceArray, PopNames,
  137.                                 End,
  138.                             End,
  139.                         End,
  140.                     End,
  141.                 End,
  142.             End,
  143.         End;
  144.  
  145.     if (!app)
  146.         fail(app,"Failed to create Application.");
  147.  
  148.     DoMethod(window,MUIM_Notify,MUIA_Window_CloseRequest,TRUE,
  149.         app,2,MUIM_Application_ReturnID,MUIV_Application_ReturnID_Quit);
  150.  
  151.     DoMethod(window,MUIM_Window_SetCycleChain,pop1,pop2,pop3,pop4,pop5,NULL);
  152.  
  153.     /* A double click terminates the popping list with a successful return value. */
  154.     DoMethod(plist,MUIM_Notify,MUIA_Listview_DoubleClick,TRUE,
  155.         pop5,2,MUIM_Popstring_Close,TRUE);
  156.  
  157.  
  158. /*
  159. ** Input loop...
  160. */
  161.  
  162.     set(window,MUIA_Window_Open,TRUE);
  163.  
  164.     while (running)
  165.     {
  166.         switch (DoMethod(app,MUIM_Application_Input,&signals))
  167.         {
  168.             case MUIV_Application_ReturnID_Quit:
  169.             {
  170.              LONG active;
  171.  
  172.                 get(pop1,MUIA_Popasl_Active,&active);
  173.                 if (!active) get(pop2,MUIA_Popasl_Active,&active);
  174.                 if (!active) get(pop3,MUIA_Popasl_Active,&active);
  175.                 if (!active) get(pop4,MUIA_Popasl_Active,&active);
  176.  
  177.                 if (active)
  178.                     MUI_Request(app,window,0,NULL,"OK","Cannot quit now, still\nsome asl popups opened.");
  179.                 else
  180.                     running = FALSE;
  181.             }
  182.             break;
  183.         }
  184.  
  185.         if (running && signals) Wait(signals);
  186.     }
  187.  
  188.     set(window,MUIA_Window_Open,FALSE);
  189.  
  190. /*
  191. ** Shut down...
  192. */
  193.  
  194.     fail(app,NULL);
  195. }
  196.