Aminet 18/aminetcdnumber181997.iso/Aminet/dev/gui/GenCodeC2_2d.lha/GenCodeC2.2d/source/GenCodeCGUI.c

C/C++ Source or Header | 1996-07-24 | 5.0 KB | 229 lines

#ifndef MAKE_ID
#define MAKE_ID(a,b,c,d) ((ULONG) (a)<<24 | (ULONG) (b)<<16 | (ULONG) (c)<<8 | (ULONG) (d))
#endif

/* Libraries */
#include <libraries/mui.h>
#include <libraries/gadtools.h> /* for Barlabel in MenuItem */
#include <exec/memory.h>

/* Prototypes */
#include <proto/muimaster.h>
#include <clib/exec_protos.h>
#include <clib/alib_protos.h>

#include "GenCodeCGUI.h"

struct ObjApp * CreateApp(void)
{
    struct ObjApp * Object;

    APTR    GROUP_ROOT_0, GR_Option, GR_Main, Space_1, obj_aux0, obj_aux1, Space_2;
    APTR    Space_3, obj_aux2, obj_aux3, Space_4, GR_Register, GR_Buttons;

    if (!(Object = AllocVec(sizeof(struct ObjApp),MEMF_PUBLIC|MEMF_CLEAR)))
        return(NULL);

    Object->STR_TX_Prg_Name = NULL;

    Object->STR_GR_Register[0] = "H-Header";
    Object->STR_GR_Register[1] = "C-Header";
    Object->STR_GR_Register[2] = "Main-Header";
    Object->STR_GR_Register[3] = NULL;

    Object->TX_Prg_Name = TextObject,
        MUIA_Background, MUII_TextBack,
        MUIA_Frame, MUIV_Frame_Text,
        MUIA_Text_Contents, Object->STR_TX_Prg_Name,
        MUIA_Text_SetMin, TRUE,
    End;

    Space_1 = HVSpace;

    Object->CH_Generate_Main_File = KeyCheckMark(TRUE, 'm');

    obj_aux1 = KeyLabel2("Generate Main File", 'm');

    obj_aux0 = GroupObject,
        MUIA_Group_Columns, 2,
        Child, obj_aux1,
        Child, Object->CH_Generate_Main_File,
    End;

    Space_2 = HVSpace;

    GR_Main = GroupObject,
        MUIA_Group_Horiz, TRUE,
        Child, Space_1,
        Child, obj_aux0,
        Child, Space_2,
    End;

    Space_3 = HVSpace;

    Object->CH_Add_new_entries_in_Catalog_Description_File = KeyCheckMark(FALSE, 'm');

    obj_aux3 = KeyLabel2("Add new entries in Catalog Description File", 'm');

    obj_aux2 = GroupObject,
        MUIA_Group_Columns, 2,
        Child, obj_aux3,
        Child, Object->CH_Add_new_entries_in_Catalog_Description_File,
    End;

    Space_4 = HVSpace;

    Object->GR_Catalog = GroupObject,
        MUIA_Group_Horiz, TRUE,
        Child, Space_3,
        Child, obj_aux2,
        Child, Space_4,
    End;

    GR_Option = GroupObject,
        Child, GR_Main,
        Child, Object->GR_Catalog,
    End;

    Object->GR_H_Header = GroupObject,
    End;

    Object->GR_C_Header = GroupObject,
    End;

    Object->GR_Main_Header = GroupObject,
    End;

    GR_Register = RegisterObject,
        MUIA_Register_Titles, Object->STR_GR_Register,
        MUIA_Frame, MUIV_Frame_Group,
        Child, Object->GR_H_Header,
        Child, Object->GR_C_Header,
        Child, Object->GR_Main_Header,
    End;

    Object->BT_Generate = TextObject,
        ButtonFrame,
        MUIA_Background, MUII_ButtonBack,
        MUIA_ControlChar, 'g',
        MUIA_Text_Contents, "Generate",
        MUIA_Text_PreParse, "\033c",
        MUIA_Text_HiChar, 'g',
        MUIA_InputMode, MUIV_InputMode_RelVerify,
    End;

    Object->BT_Save_Local = SimpleButton("Save _Local");

    Object->BT_Save_Global = SimpleButton("Save Gl_obal");

    GR_Buttons = GroupObject,
        MUIA_Group_Horiz, TRUE,
        MUIA_Group_SameWidth, TRUE,
        Child, Object->BT_Generate,
        Child, Object->BT_Save_Local,
        Child, Object->BT_Save_Global,
    End;

    GROUP_ROOT_0 = GroupObject,
        Child, Object->TX_Prg_Name,
        Child, GR_Option,
        Child, GR_Register,
        Child, GR_Buttons,
    End;

    Object->WI_C_Generation = WindowObject,
        MUIA_Window_Title, "GenCodeC by Billault © 1995-1996",
        MUIA_Window_ID, MAKE_ID('0', 'W', 'I', 'N'),
        WindowContents, GROUP_ROOT_0,
    End;

    Object->App = ApplicationObject,
        MUIA_Application_Author, "Billault",
        MUIA_Application_Base, "C_Generation",
        MUIA_Application_Title, "GenCodeC",
        MUIA_Application_Version, "$VER: GenCodeC 2.2c (20.07.96)",
        MUIA_Application_Copyright, "Billault",
        MUIA_Application_Description, "GenCodeC for MUIBuilder",
        MUIA_Application_HelpFile, "GenCodeC.guide",
        SubWindow, Object->WI_C_Generation,
    End;


    if (!Object->App)
    {
        FreeVec(Object);
        return(NULL);
    }

    DoMethod(Object->WI_C_Generation,
        MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
        Object->App,
        2,
        MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit
        );

    DoMethod(Object->CH_Generate_Main_File,
        MUIM_Notify, MUIA_Selected, TRUE,
        Object->GR_Main_Header,
        3,
        MUIM_Set, MUIA_Disabled, FALSE
        );

    DoMethod(Object->CH_Generate_Main_File,
        MUIM_Notify, MUIA_Selected, FALSE,
        Object->GR_Main_Header,
        3,
        MUIM_Set, MUIA_Disabled, TRUE
        );

    DoMethod(Object->BT_Generate,
        MUIM_Notify, MUIA_Pressed, FALSE,
        Object->App,
        2,
        MUIM_Application_ReturnID, ID_BT_GENERATE
        );

    DoMethod(Object->BT_Generate,
        MUIM_Notify, MUIA_Pressed, FALSE,
        Object->App,
        2,
        MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit
        );

    DoMethod(Object->BT_Save_Local,
        MUIM_Notify, MUIA_Pressed, TRUE,
        Object->App,
        2,
        MUIM_Application_ReturnID, ID_BT_SAVE_LOCAL
        );

    DoMethod(Object->BT_Save_Global,
        MUIM_Notify, MUIA_Pressed, TRUE,
        Object->App,
        2,
        MUIM_Application_ReturnID, ID_BT_SAVE_GLOBAL
        );

    DoMethod(Object->WI_C_Generation,
        MUIM_Window_SetCycleChain, Object->CH_Generate_Main_File,
        Object->GR_Catalog,
        Object->CH_Add_new_entries_in_Catalog_Description_File,
        Object->GR_H_Header,
        Object->GR_C_Header,
        Object->GR_Main_Header,
        Object->BT_Generate,
        Object->BT_Save_Local,
        Object->BT_Save_Global,
        0
        );


    return(Object);
}

void DisposeApp(struct ObjApp * Object)
{
    MUI_DisposeObject(Object->App);
    FreeVec(Object);
}