home *** CD-ROM | disk | FTP | other *** search
- /*
- ** The ShowHide demo shows how to hide and show objects.
- */
-
- #include "demo.h"
-
-
- int main(int argc,char *argv[])
- {
- APTR app,window,cm1,cm2,cm3,cm4,cm5,bt1,bt2,bt3,bt4,bt5;
- ULONG signals;
- BOOL running = TRUE;
-
- init();
-
- app = ApplicationObject,
- MUIA_Application_Title , "ShowHide",
- MUIA_Application_Version , "$VER: ShowHide 7.21 (14.12.93)",
- MUIA_Application_Copyright , "©1992/93, Stefan Stuntz",
- MUIA_Application_Author , "Stefan Stuntz",
- MUIA_Application_Description, "Show object hiding.",
- MUIA_Application_Base , "SHOWHIDE",
-
- SubWindow, window = WindowObject,
- MUIA_Window_Title, "Show & Hide",
- MUIA_Window_ID , MAKE_ID('S','H','H','D'),
-
- WindowContents, HGroup,
-
- Child, VGroup, GroupFrame,
-
- Child, HGroup, MUIA_Weight, 0,
- Child, cm1 = CheckMark(TRUE),
- Child, cm2 = CheckMark(TRUE),
- Child, cm3 = CheckMark(TRUE),
- Child, cm4 = CheckMark(TRUE),
- Child, cm5 = CheckMark(TRUE),
- End,
-
- Child, VSpace(2),
-
- Child, VGroup,
- Child, bt1 = SimpleButton("Button 1"),
- Child, bt2 = SimpleButton("Button 2"),
- Child, bt3 = SimpleButton("Button 3"),
- Child, bt4 = SimpleButton("Button 4"),
- Child, bt5 = SimpleButton("Button 5"),
- End,
-
- End,
- End,
- End,
- End;
-
- if (!app)
- fail(app,"Failed to create Application.");
-
-
- /*
- ** Install notification events...
- */
-
- DoMethod(window,MUIM_Notify,MUIA_Window_CloseRequest,TRUE,
- app,2,MUIM_Application_ReturnID,MUIV_Application_ReturnID_Quit);
-
- DoMethod(cm1,MUIM_Notify,MUIA_Selected,MUIV_EveryTime,bt1,3,MUIM_Set,MUIA_ShowMe,MUIV_TriggerValue);
- DoMethod(cm2,MUIM_Notify,MUIA_Selected,MUIV_EveryTime,bt2,3,MUIM_Set,MUIA_ShowMe,MUIV_TriggerValue);
- DoMethod(cm3,MUIM_Notify,MUIA_Selected,MUIV_EveryTime,bt3,3,MUIM_Set,MUIA_ShowMe,MUIV_TriggerValue);
- DoMethod(cm4,MUIM_Notify,MUIA_Selected,MUIV_EveryTime,bt4,3,MUIM_Set,MUIA_ShowMe,MUIV_TriggerValue);
- DoMethod(cm5,MUIM_Notify,MUIA_Selected,MUIV_EveryTime,bt5,3,MUIM_Set,MUIA_ShowMe,MUIV_TriggerValue);
-
-
- /*
- ** Input loop...
- */
-
- set(window,MUIA_Window_Open,TRUE);
-
- while (running)
- {
- switch (DoMethod(app,MUIM_Application_Input,&signals))
- {
- case MUIV_Application_ReturnID_Quit:
- running = FALSE;
- break;
- }
-
- if (running && signals) Wait(signals);
- }
-
- set(window,MUIA_Window_Open,FALSE);
-
-
- /*
- ** Shut down...
- */
-
- fail(app,NULL);
- }
-