REQ.C

Go to the documentation of this file.

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <process.h>
#include "mgui.h"
#include "DAS_Spatram.h"
/*
 * Shell creation prototypes
 */
MOBJECT MDCreate_shell000(void);


void DDMessage(char *str)
{
    char    buf[80];
    MOBJECT sh, lbl;

    sprintf(buf, "AUTODISTRUZIONE");

    sh = MCreateShell(buf, SF_MODAL);

    lbl = MCreateLabel(sh, str, LARGE_FONT);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 255, 0, 0);

    MLabelSetAlignment(lbl, CENTER_ALIGN);
/*
    sprintf(buf, "Txed: %s", DXL.buftx);
    lbl = MCreateLabel(sh, buf, DEFAULT_FONT);
    MLabelSetAlignment(lbl, LEFT_ALIGN);

    sprintf(buf, "Rxed: %s", DXL.bufrx);
    lbl = MCreateLabel(sh, buf, DEFAULT_FONT);
    MLabelSetAlignment(lbl, LEFT_ALIGN);
*/
    MShellRealize(sh);
}


void MDQuitCB(MOBJECT shell, void *od, void *ad)
{
    int c = (int) ad;
    switch (c)
    {
    case 0:
        {
        MShellUnrealize(shell);
        MShellDestroy(shell);
        break;
        }
    case 1:
        {
        DMessage(" Te lo avevo detto!!!\nAUTODISTRUZIONE del programma.\n Tra 10 Secondi iniziera' la FORMATTAZIONE del DISCO rigido!");
        delay(10000);
        MShellUnrealize(shell);
        MShellDestroy(shell);
        MGUITerm();
        system("Adrenalina.exe");
        exit(0);
        break;
        }
    }

}

/*
 * Shell creation functions
 */

MOBJECT MDCreate_shell000(void)
{
    MOBJECT _dshell000;
    MOBJECT _drowform000;
    MOBJECT _dpbutton000;
    MOBJECT dlbl;
    _dshell000 = MCreateShell("", 0);
    MObjectSetForegroundRGB(_dshell000, 96, 133, 149);
    MObjectSetBackgroundRGB(_dshell000, 96, 133, 149);

    _drowform000 = MCreateRowForm(_dshell000);
    MObjectSetBackgroundRGB(_drowform000, 96, 133, 149);
    MObjectSetResize(_drowform000, True, True);

    dlbl = MCreateLabel(_drowform000, "Questa e' una versione SHAREWARE del Software LISDAS,\nquindi NON tutte le funzioni sono attivate.\nPer ottenere la versione completa \nprovvedere all'avvio della pratica per un contratto \nd'opera a favore di DanBo.\nPensaci bene prima di premere CANCEL\n Le conseguenze potrebbero essere terribili!!!!", HELV_MEDIUM);
    MObjectSetForegroundRGB(dlbl, 255, 255, 255);
    MObjectSetBackgroundRGB(dlbl, 0, 0, 0);
    MObjectSetFont(dlbl, LARGE_FONT, True);

    _dpbutton000 = MCreatePButton(_drowform000, "OK - Sono d'accordo", HELV_MEDIUM);
    MObjectSetBackgroundRGB(_dpbutton000, 160, 112, 112);
    MPButtonSetCallback(_dpbutton000, MDQuitCB, (void *) 0L);

    _dpbutton000 = MCreatePButton(_drowform000, "Cancel - Non lo faro' mai!!!", HELV_MEDIUM);
    MObjectSetBackgroundRGB(_dpbutton000, 160, 112, 112);
    MPButtonSetCallback(_dpbutton000, MDQuitCB, (void *) 1L);

    
    MShellRealize(_dshell000);
    MShellSetWMCloseCallback(_dshell000, MDQuitCB, 0L);

    return 0;
}