/* Urltext.mcc example (SAS/C) */

#include <proto/exec.h>
#include <proto/dos.h>
#include <proto/intuition.h>
#include <proto/muimaster.h>
#include <mui/urltext_mcc.h>

/***********************************************************************/

long __stack = 8192;

/***********************************************************************/

ULONG DoMethod(APTR,unsigned long MethodID,...);

/***********************************************************************/

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

/***********************************************************************/

Object *
urlTextObject(struct Library *MUIMasterBase,STRPTR url,STRPTR text,ULONG font)
{
    return UrltextObject,
        MUIA_Font,          font,
        MUIA_Urltext_Text,  text,
        MUIA_Urltext_Url,   url,
    End;
}

/***********************************************************************/

void main(void)
{
    register struct Library *MUIMasterBase;
    register APTR           app, mwin, u0, u1, u2, u3, t0;
    ULONG                   open, sigs;

    if (!(MUIMasterBase = OpenLibrary("muimaster.library",0)))
    {
        Printf("Can't open muimaster.library\n");
        return;
    }

    app = ApplicationObject,
        MUIA_Application_Title,         "Urltext",
        MUIA_Application_Version,       "$VER: Urltext 1.0 (10.7.2001)",
        MUIA_Application_Copyright,     "Copyright 2001 by Alfonso Ranieri",
        MUIA_Application_Author,        "Alfonso Ranieri",
        MUIA_Application_Description,   "Urltext example",
        MUIA_Application_Base,          "URLTEXT",

        SubWindow, mwin = WindowObject,
            MUIA_Window_Title,  "Urltext example",
            MUIA_Window_ID,     MAKE_ID('M','W','I','N'),

            WindowContents, VGroup,
                Child, VSpace(0),
                Child, HGroup,
                    Child, HSpace(0),
                    Child, ColGroup(3),
                        Child, u0 = urlTextObject(MUIMasterBase,"http://web.tiscalinet.it/amiga/","Alfie's home page",MUIV_Font_Big),
                        Child, HSpace(8),
                        Child, u1 = urlTextObject(MUIMasterBase,"http://web.tiscalinet.it/amiga/rxmui","RxMUI home page",MUIV_Font_Normal),
                        Child, u2 = urlTextObject(MUIMasterBase,"http://www.egroups.co/group/rxmui","RxMUi mail list",MUIV_Font_Normal),
                        Child, HSpace(8),
                        Child, u3 = urlTextObject(MUIMasterBase,"mailto:alforan@tin.it","Alfonso Ranieri",MUIV_Font_Normal),
                    End,
                    Child, HSpace(0),
                End,
                Child, VSpace(0),
                Child, t0 = TextObject,
                    MUIA_Frame,         MUIV_Frame_Text,
                    MUIA_Background,    MUII_TextBack,
                    MUIA_Text_PreParse, (ULONG)"\33c",
                End,
            End,
        End,
    End;

    if (!app)
    {
        Printf("Can't create the Application object\n");
        CloseLibrary(MUIMasterBase);
        return;
    }

    DoMethod(mwin,MUIM_Notify,MUIA_Window_CloseRequest,TRUE,app,2,MUIM_Application_ReturnID,MUIV_Application_ReturnID_Quit);

    DoMethod(u0,MUIM_Notify,MUIA_Urltext_Url,MUIV_EveryTime,t0,3,MUIM_Set,MUIA_Text_Contents,MUIV_TriggerValue);
    DoMethod(u1,MUIM_Notify,MUIA_Urltext_Url,MUIV_EveryTime,t0,3,MUIM_Set,MUIA_Text_Contents,MUIV_TriggerValue);
    DoMethod(u2,MUIM_Notify,MUIA_Urltext_Url,MUIV_EveryTime,t0,3,MUIM_Set,MUIA_Text_Contents,MUIV_TriggerValue);
    DoMethod(u3,MUIM_Notify,MUIA_Urltext_Url,MUIV_EveryTime,t0,3,MUIM_Set,MUIA_Text_Contents,MUIV_TriggerValue);

    set(mwin,MUIA_Window_Open,TRUE);
    get(mwin,MUIA_Window_Open,&open);
    if (!open)
    {
        Printf("Can't open the window\n");
        MUI_DisposeObject(app);
        CloseLibrary(MUIMasterBase);
        return;
    }

    sigs = 0;
    while (DoMethod(app,MUIM_Application_NewInput,&sigs)!=MUIV_Application_ReturnID_Quit)
    {
        if (sigs)
        {
            sigs = Wait(sigs|SIGBREAKF_CTRL_C);
            if (sigs & SIGBREAKF_CTRL_C) break;
        }
    }

    MUI_DisposeObject(app);
    CloseLibrary(MUIMasterBase);
}

/***********************************************************************/