home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / gui / textwin.lha / TextWin / src / textwin.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-12-06  |  1.4 KB  |  73 lines
  1. #ifndef MAKE_ID
  2. #define MAKE_ID(a,b,c,d) ((ULONG) (a)<<24 | (ULONG) (b)<<16 | (ULONG) (c)<<8 | (ULONG) (d))
  3. #endif
  4.  
  5. #ifdef _DCC
  6. #define __inline
  7. #endif
  8.  
  9. #ifdef AZTEC_C
  10. #define __inline
  11. #endif
  12.  
  13. #include "TextWin.h"
  14.  
  15. struct ObjApp * CreateApp(void)
  16. {
  17.     struct ObjApp * Object;
  18.  
  19.     APTR    GROUP_ROOT_0;
  20.  
  21.     if (!(Object = AllocVec(sizeof(struct ObjApp), MEMF_PUBLIC|MEMF_CLEAR)))
  22.         return(NULL);
  23.  
  24.     Object->GR_ListView = GroupObject,
  25.         MUIA_HelpNode, "GR_ListView",
  26.     End;
  27.  
  28.     Object->GR_Buttons = GroupObject,
  29.         MUIA_HelpNode, "GR_Buttons",
  30.         MUIA_Group_Horiz, TRUE,
  31.     End;
  32.  
  33.     GROUP_ROOT_0 = GroupObject,
  34.         Child, Object->GR_ListView,
  35.         Child, Object->GR_Buttons,
  36.     End;
  37.  
  38.     Object->WI_label_0 = WindowObject,
  39.         MUIA_Window_Title, "window_title",
  40.         MUIA_Window_ID, MAKE_ID('0', 'W', 'I', 'N'),
  41.         WindowContents, GROUP_ROOT_0,
  42.     End;
  43.  
  44.     Object->App = ApplicationObject,
  45.         MUIA_Application_Author, "Will Bow and Colin Thompson",
  46.         MUIA_Application_Base, "TextWin",
  47.         MUIA_Application_Title, "TextWin",
  48.         MUIA_Application_Version, "$VER: TextWin  1.00m (05.12.94)",
  49.         MUIA_Application_Copyright, "(c) BOTH Software 1994",
  50.         MUIA_Application_Description, "",
  51.         SubWindow, Object->WI_label_0,
  52.     End;
  53.  
  54.  
  55.     if (!Object->App)
  56.     {
  57.         FreeVec(Object);
  58.         return(NULL);
  59.     }
  60.  
  61.     DoMethod(Object->WI_label_0,
  62.         MUIM_Window_SetCycleChain, 0
  63.         );
  64.  
  65.     return(Object);
  66. }
  67.  
  68. void DisposeApp(struct ObjApp * Object)
  69. {
  70.     MUI_DisposeObject(Object->App);
  71.     FreeVec(Object);
  72. }
  73.