Functions
MOBJECT	MDCreate_shell000 (void)

Variables
MOBJECT	dmenu

MENU_ITEM	id_menu

MOBJECT	menu

MOBJECT	mnuhlp

MOBJECT	mnurtf

MOBJECT	mnuutil

Function Documentation

§ MDCreate_shell000()

MOBJECT MDCreate_shell000 ( void )

Definition at line 70 of file REQ.C.

References HELV_MEDIUM, LARGE_FONT, MCreateLabel(), MCreatePButton(), MCreateRowForm(), MCreateShell(), MDQuitCB(), MObjectSetBackgroundRGB(), MObjectSetFont(), MObjectSetForegroundRGB(), MObjectSetResize(), MPButtonSetCallback(), MShellRealize(), MShellSetWMCloseCallback(), and True.

 {
     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;
 }