DOAS_FullProj.c

Go to the documentation of this file.

/*
 * Code generated by MGUI Designer
 */
#include <windows.h>
#include <errno.h>
#include <io.h>
#include <malloc.h>
#include <math.h>
#include <direct.h>
#include <fcntl.h>
#include <sys/stat.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "mgui.h"
#include "DOAS_FullProj.h"
#include "Bil.h"
#include "DAS_Spatram.h"
#include "dcl.h"
#include "dil.h"
#include "DOAS.h"
#include "dscud.h"

// CCD & Camera vars
//ccd       DC_CCD; // CCD settings
//ptf       DC_HP;  // Platform settings
//config    Cfg;    // Camera controls & Options
//dil DIL;
palette DPAL;
flag FLAG; //flags structure
//paramini PARAM;   //Param.ini 
//marc MARC;        // Marconi struct
//tools TOOLS;      //tools structure
//d_geo DGEO;       // geographical coordinates structure
bil BIL; //Bortul Library Structure
//GratingSt GRS;    //Grating
doas DOAS;
listf   LISTF;

das DAS;


 /*
 * External User Defined Callbacks
 */
//void ChangeFormatCB(MOBJECT p, void *od, void *ad);
/*
 * Global Variables
 */
MOBJECT ColFor_Sh;
MOBJECT DOAS_MainSh;
MOBJECT menubar;
MOBJECT menu;
MOBJECT submenu;

MOBJECT DOAS_ProcSh;
MOBJECT DOAS_SetupSh;
MOBJECT SolPosCalc;
MOBJECT lblsys, lblris;
/*
 * Shell creation prototypes
 */
MOBJECT MDCreateColFor_Sh(void);
//MOBJECT MDCreateDOAS_MainSh(struct doas *pdoas);
MOBJECT MDCreateDOAS_ProcSh(void);
MOBJECT MDCreateDOAS_SetupSh(void);
MOBJECT MDCreateSolPosCalc(void);

/*
 * Project Defined Callbacks
 */

void ExitCB(MOBJECT p, void *od, void *ad)
{

    MGUITerm();

}
void IoSetupCB(MOBJECT p, void *od, void *ad)
{

}
void IoCreateCB(MOBJECT p, void *od, void *ad)
{

}
void DOASSetupCB(MOBJECT p, void *od, void *ad)
{

    DOAS_SetupSh = MDCreateDOAS_SetupSh();
    MShellRealize(DOAS_SetupSh);


}
void DOASProcCB(MOBJECT p, void *od, void *ad)
{

    DOAS_ProcSh = MDCreateDOAS_ProcSh();
    MShellRealize(DOAS_ProcSh);

}
void DiffCB(MOBJECT p, void *od, void *ad)
{

    MDCreateDiff_Sh(0);

}
void FixStepCB(MOBJECT p, void *od, void *ad)
{

    MDCreateFixed_Sh(0);

}
void ViewCB(MOBJECT p, void *od, void *ad)
{

    ViewPlot(0); //OffLine Plot

}
void D_SunCalc (void)
{

    char buff[_MAX_PATH];

    sprintf(buff,"%s\\%s",BIL.DFILEM.HOMEDIRECTORY, "SolPosCalc");

    chdir(buff);

    sprintf(buff,"%s\\%s",BIL.DFILEM.HOMEDIRECTORY, "SolPosCalc\\D_solpos1.exe");
    
    WinExec(buff, 1);

//  sprintf(buff,"%ss",BIL.DFILEM.HOMEDIRECTORY, "SolPosCalc");

    chdir(BIL.DFILEM.HOMEDIRECTORY);


}


void SunCalcCB(MOBJECT p, void *od, void *ad)
{
    
    D_SunCalc();

}
void ShStCB(MOBJECT p, void *od, void *ad)
{

    MMessageDialog("DAS information", "The procedure is not yet implemented!!", " Ok ", NULL);  

}
void FilterCB(MOBJECT p, void *od, void *ad)
{
    MDCreateFormat_Sh(2);
}
void ColumnFCB(MOBJECT p, void *od, void *ad)
{

    ColFor_Sh = MDCreateColFor_Sh();
    MShellRealize(ColFor_Sh);



}

void ResumeCB(MOBJECT p, void *od, void *ad)
{

    MMessageDialog("DAS information", "The procedure is not yet implemented!!", " Ok ", NULL);  
}
void LinkSpectraCB(MOBJECT p, void *od, void *ad)
{

    MMessageDialog("DAS information", "The procedure is not yet implemented!!", " Ok ", NULL);  
}


void ChooseFormatCB(MOBJECT p, void *od, void *ad)
{
    int c = (int) ad;

    switch (c)
    {
        case 0:
            MDCreateFormat_Sh(0); //BIN 2 ASCII
            break;
        case 1:
            MDCreateFormat_Sh(1); //ASCII 2 BIN
            break;
    }

    
}


void HlpTopCB(MOBJECT p, void *od, void *ad)
{

    int c;
    c = (int) ad;
    switch (c)
    {
        case 0:
            DB_HelpCB(NULL, NULL, NULL);; //Help
            break;
        case 1:
            AboutCB(NULL, NULL, 0); //About
            break;
    }
    
}
/*
 * Shell creation functions
 */
/*
    Close and destroy the "p" MOBJECT
*/
void CloseMObjCB(MOBJECT p, void *od, void *ad)
{
    
    MOBJECT c;
    c = (MOBJECT) ad;

            MShellUnrealize(c);
            MShellDestroy(c);

}

void RBListFileCB(MOBJECT p, void *od, void *ad)
{
    int er = 0;
    int c = (int) ad;
    

    er = MRButtonGetActivationStatus(p);
    
    if(er)
    {
        switch (c)
        {
            case 0:
                LISTF.sortmode = SBNAME;
                break;
            case 1:
                LISTF.sortmode = SBDATE;
                break;
            case 2:
                LISTF.sortmode = SBDIM;
                break;
            case 3:
                LISTF.sortmode = SBTYPE;
                break;
            

        }
    }
}

void RBEditListCB(MOBJECT p, void *od, void *ad)
{
    int er = 0;
    int c = (int) ad;

    er = MRButtonGetActivationStatus(p);
    
    if(er)
    {
        switch (c)
        {
            case 0:
                LISTF.edit = 0;
                break;
            case 1:
                LISTF.edit = 1;
                break;
            case 2:
                LISTF.type = 0; // compact list
                break;
            case 3:
                LISTF.type = 1; // Detailed List
                break;
            case 4:
                LISTF.subdir = 1; // list files in subdir
                break;
            case 5:
                LISTF.subdir = 0; // NO List files in subdir
                break;

        }
    }

}

int CreateList(MOBJECT ed)
{
    int er = 0;
    int c = 0;
    char com[255], str[255], buf[4];

    char fname[128], dirname[128];

    FB_PREFS    prefs;

    prefs.allow_dir_create = True;
    prefs.allow_dir_delete = True;
    prefs.allow_dir_rename = True;
    prefs.change_cwd = False;
    prefs.allow_dir_create = True;
    prefs.allow_dir_rename = True;
    prefs.bg_image = False;
    prefs.bg_image_file = "";
    prefs.button_font = HELV_SMALL;
    prefs.close_button = "CANCEL";
    prefs.create_menu = "CREATE";
    prefs.file_label = "File:";
    prefs.filter_label = "Filter:";
    prefs.font = HELV_SMALL;
    prefs.ok_button = "OK";
    prefs.remove_menu = "REMOVE";
    prefs.rename_menu = "RENAME";
    prefs.transparent_tree = False;

    strcpy (dirname, BIL.DFILEM.DATADIRECTORY);
    fname[0] = '\0';
    com[0] = '\0';


    MObjectGetText(ed, buf);
    sprintf(str, "*.%s", buf);

    
    if(MDirBrowseExt("Select Directory for Listing Files", str, dirname, &prefs))
    {
        sprintf(com, "dir %s", dirname);
    
    }
    else
        return 0;

    MObjectGetText(ed, buf);
    sprintf(str, "*.%s ", buf);
    strcat(com, str);

    c = LISTF.type;
        switch (c)
        {
            case 0:
                sprintf(str, "/b ");
                break;
            case 1:
                str[0] = '\0';
                break;
        }
    strcat(com, str);
        
    c = LISTF.sortmode;
        switch (c)
        {
            case SBNAME:
                sprintf(str, "/o:n ");
                break;
            case SBDATE:
                sprintf(str, "/o:d ");
                break;
            case SBDIM:
                sprintf(str, "/o:s ");
                break;
            case SBTYPE:
                sprintf(str, "/o:e ");
                break;
        }
    strcat(com, str);

    c = LISTF.subdir;
        switch (c)
        {
            case 1:
                sprintf(str, "/s ");
                break;
            case 0:
                str[0] = '\0';
                break;
        }
    strcat(com, str);

    if(MFileBrowseExt("Type Name for the list", "*.ele", fname, dirname, &prefs))   
    {
    
        sprintf(str, "> %s%s", dirname, fname);
    }
    else
        return 0;

    strcat(com, str);

    system(com);

    delay(500);

    //Show the created list
    if(!LISTF.edit)
    {
        sprintf(str,"%s\\MEDIT.EXE %s%s",BIL.DFILEM.HOMEDIRECTORY, dirname, fname);
        er = WinExec(str, SW_SHOW);

    }       
    return 0;

}

void CreateFileListCB(MOBJECT p, void *od, void *ad)
{
    
    MOBJECT ed;
        


    ed = (MOBJECT) ad;

    CreateList(ed);


}

/*
    Realize the Build List MOBJECT
*/
MOBJECT MDCreateBuildList_Sh(int mod)
{
//  MOBJECT rowfrm;
//  MOBJECT sh, pb, tb, lbl, rb, ed;

    LISTF.shell = MCreateShell("Build File List", 0);

    MObjectSetBackgroundRGB(LISTF.shell, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    LISTF.rowfrm = MCreateRowForm(LISTF.shell);
    MObjectSetForegroundRGB(LISTF.rowfrm, 255, 255, 0);
    MObjectSetBackgroundRGB(LISTF.rowfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    LISTF.lbl[0] = MCreateLabel(LISTF.rowfrm, "ORDER FOR:", HELV_SMALL);
    MObjectSetForegroundRGB(LISTF.lbl[0], DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
    MObjectSetBackgroundRGB(LISTF.lbl[0], DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
    MObjectSetTransparency(LISTF.lbl[0], 0);

    LISTF.tb[0] = MCreateTableForm(LISTF.rowfrm, 4);
    MObjectSetBackgroundRGB(LISTF.tb[0], DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(LISTF.tb[0], True, True);

    LISTF.rb[0] = MCreateRButton(LISTF.tb[0], "Name", HELV_SMALL);
    MObjectSetBackgroundRGB(LISTF.rb[0], DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(LISTF.rb[0], DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(LISTF.rb[0], 0);
    MRButtonActivate(LISTF.rb[0]);
    MPButtonSetCallback(LISTF.rb[0], RBListFileCB, (void *) 0);

    LISTF.rb[1] = MCreateRButton(LISTF.tb[0], "Date", HELV_SMALL);
    MObjectSetBackgroundRGB(LISTF.rb[1], DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(LISTF.rb[1], DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(LISTF.rb[1], 0);
    MPButtonSetCallback(LISTF.rb[1], RBEditListCB, (void *) 1);

    LISTF.rb[2] = MCreateRButton(LISTF.tb[0], "Dimension", HELV_SMALL);
    MObjectSetBackgroundRGB(LISTF.rb[2], DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(LISTF.rb[2], DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(LISTF.rb[2], 0);
    MPButtonSetCallback(LISTF.rb[2], RBEditListCB, (void *) 2);

    LISTF.rb[3] = MCreateRButton(LISTF.tb[0], "Type", HELV_SMALL);
    MObjectSetBackgroundRGB(LISTF.rb[3], DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(LISTF.rb[3], DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(LISTF.rb[3], 0);
    MPButtonSetCallback(LISTF.rb[3], RBEditListCB, (void *) 3);

    LISTF.lbl[1] = MCreateLabel(LISTF.rowfrm, "FILE EXTENSION TO LIST:", HELV_SMALL);
    MObjectSetForegroundRGB(LISTF.lbl[1], DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
    MObjectSetBackgroundRGB(LISTF.lbl[1], DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
    MObjectSetTransparency(LISTF.lbl[1], 0);

    LISTF.tb[1] = MCreateTableForm(LISTF.rowfrm, 2);
    MObjectSetBackgroundRGB(LISTF.tb[1], DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);


    LISTF.lblpass = MCreateLabel(LISTF.tb[1], "Type it (dat, bif, *, gif...):  ", HELV_SMALL);
    MObjectSetBackgroundRGB(LISTF.lblpass, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    MObjectSetForegroundRGB(LISTF.lblpass, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetTransparency(LISTF.lblpass , 0);
        
        LISTF.ed = MCreateEdit(LISTF.tb[1], "dat", 4, FIXED_SMALL);
    //  MEditSetFilter(ed, 772, "");
    //  MEditSetActCallback(ed, SactedtCB, (void *) 6);
    //  MEditSetValCallback(ed, SvaledtCB, (void *) 6);
        MObjectSetForegroundRGB(LISTF.ed, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
        MObjectSetBackgroundRGB(LISTF.ed, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);

    LISTF.lbl[2] = MCreateLabel(LISTF.rowfrm, "LIST FILES IN SUBDIR ?", HELV_SMALL);
    MObjectSetForegroundRGB(LISTF.lbl[2], DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
    MObjectSetBackgroundRGB(LISTF.lbl[2], DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
    MObjectSetTransparency(LISTF.lbl[2], 0);

    LISTF.tb[2] = MCreateTableForm(LISTF.rowfrm, 4);
    MObjectSetForegroundRGB(LISTF.tb[2], 255, 255, 0);
    MObjectSetBackgroundRGB(LISTF.tb[2], DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(LISTF.tb[2], True, True);

    LISTF.rb[4] = MCreateRButton(LISTF.tb[2], "Yes", HELV_SMALL);
    MObjectSetBackgroundRGB(LISTF.rb[4], DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(LISTF.rb[4], DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(LISTF.rb[4], 0);
    MPButtonSetCallback(LISTF.rb[4], RBEditListCB, (void *) 4);

    LISTF.rb[5] = MCreateRButton(LISTF.tb[2], "No", HELV_SMALL);
    MObjectSetBackgroundRGB(LISTF.rb[5], DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(LISTF.rb[5], DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(LISTF.rb[5], 0);
    MRButtonActivate(LISTF.rb[5]);
    MPButtonSetCallback(LISTF.rb[5], RBEditListCB, (void *) 5);
/**********************************************************/


    LISTF.lbl[3] = MCreateLabel(LISTF.rowfrm, "TYPE OF THE LIST", HELV_SMALL);
    MObjectSetForegroundRGB(LISTF.lbl[3], DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
    MObjectSetBackgroundRGB(LISTF.lbl[3], DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
    MObjectSetTransparency(LISTF.lbl[3], 0);

    LISTF.tb[3] = MCreateTableForm(LISTF.rowfrm, 4);
    MObjectSetForegroundRGB(LISTF.tb[3], 255, 255, 0);
    MObjectSetBackgroundRGB(LISTF.tb[3], DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(LISTF.tb[3], True, True);

    LISTF.rb[6] = MCreateRButton(LISTF.tb[3], "Compact", HELV_SMALL);
    MObjectSetBackgroundRGB(LISTF.rb[6], DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(LISTF.rb[6], DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(LISTF.rb[6], 0);
    MRButtonActivate(LISTF.rb[6]);
    MPButtonSetCallback(LISTF.rb[6], RBEditListCB, (void *) 2);

    LISTF.rb[7] = MCreateRButton(LISTF.tb[3], "Detailed", HELV_SMALL);
    MObjectSetBackgroundRGB(LISTF.rb[7], DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(LISTF.rb[7], DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(LISTF.rb[7], 0);
    MPButtonSetCallback(LISTF.rb[7], RBEditListCB, (void *) 3);
/**********************************************************/
    LISTF.lbl[4] = MCreateLabel(LISTF.rowfrm, "VIEW LIST AFTER CREATION ?", HELV_SMALL);
    MObjectSetForegroundRGB(LISTF.lbl[4], DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
    MObjectSetBackgroundRGB(LISTF.lbl[4], DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
    MObjectSetTransparency(LISTF.lbl[4], 0);

    LISTF.tb[4] = MCreateTableForm(LISTF.rowfrm, 4);
    MObjectSetForegroundRGB(LISTF.tb[4], 255, 255, 0);
    MObjectSetBackgroundRGB(LISTF.tb[4], DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(LISTF.tb[4], True, True);

    LISTF.rb[8] = MCreateRButton(LISTF.tb[4], "Yes", HELV_SMALL);
    MObjectSetBackgroundRGB(LISTF.rb[8], DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(LISTF.rb[8], DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(LISTF.rb[8], 0);
    MRButtonActivate(LISTF.rb[8]);
    MPButtonSetCallback(LISTF.rb[8], RBEditListCB, (void *) 0);

    LISTF.rb[9] = MCreateRButton(LISTF.tb[4], "No", HELV_SMALL);
    MObjectSetBackgroundRGB(LISTF.rb[9], DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(LISTF.rb[9], DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(LISTF.rb[9], 0);
    MPButtonSetCallback(LISTF.rb[9], RBEditListCB, (void *) 1);

/**********************************************************/    
    LISTF.tb[5] = MCreateTableForm(LISTF.rowfrm, 2);
    MObjectSetBackgroundRGB(LISTF.tb[5],DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);


    LISTF.pb[0] = MCreatePButton(LISTF.tb[5], "Execute", HELV_SMALL);
    MPButtonSetCallback(LISTF.pb[0], CreateFileListCB, (void *)LISTF.ed);
    MObjectSetBackgroundRGB(LISTF.pb[0], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetForegroundRGB(LISTF.pb[0], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
    MButtonSetOnMouseOverForegroundRGB(LISTF.pb[0], ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);


    LISTF.pb[1] = MCreatePButton(LISTF.tb[5], " Close ", HELV_SMALL);
    MPButtonSetCallback(LISTF.pb[1], CloseMObjCB, (void *) LISTF.shell);
    MObjectSetBackgroundRGB(LISTF.pb[1], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetForegroundRGB(LISTF.pb[1], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
    MButtonSetOnMouseOverForegroundRGB(LISTF.pb[1], ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);

    MShellRealize(LISTF.shell);


    return 0;
}

/*
    Build List Callback
*/
void BuildListCB(MOBJECT p, void *od, void *ad)
{

    MDCreateBuildList_Sh(0);
}

/*
int BuildList(void)
{


    //Show the created list
    if( LISTF.edit)
    {

    }       
    return 0;

}
*/

void FixedStepCB(MOBJECT p, void *od, void *ad)
{

    MMessageDialog("DAS information", "The procedure is not yet implemented!!", " Ok ", NULL); 
}

/*
    Realize the Fixed step Tool MOBJECT
*/
MOBJECT MDCreateFixed_Sh(int mod)
{
    MOBJECT rowfrm;
    MOBJECT sh, pb, tb, lbl, ed;

    sh = MCreateShell("Fixed Step Tool", 0);
    MObjectSetBackgroundRGB(sh, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    rowfrm = MCreateRowForm(sh);
    MObjectSetForegroundRGB(rowfrm, 255, 255, 0);
    MObjectSetBackgroundRGB(rowfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    lbl = MCreateLabel(rowfrm, "This tool allows for fixing the step\nof an inhomogeneous spectral series\nby using the interpolation procedure\nover the specified\n known points and of the desired order.", HELV_SMALL);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
    MObjectSetTransparency(lbl, 0);



    tb = MCreateTableForm(rowfrm, 2);
    MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    lbl = MCreateLabel(tb, "Final Step", HELV_SMALL);
    MObjectSetBackgroundRGB(lbl, 65, 51, 0);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetTransparency(lbl, 0);

    ed = MCreateEdit(tb, "2", 4, FIXED_SMALL);
    MEditSetFilter(ed, 772, "");
//  MEditSetActCallback(ed, SactedtCB, (void *) 6);
//  MEditSetValCallback(ed, SvaledtCB, (void *) 6);
    MObjectSetForegroundRGB(ed, 255, 255, 0);
    MObjectSetBackgroundRGB(ed, 117, 117, 169);

    lbl = MCreateLabel(tb, "Known Points", HELV_SMALL);
    MObjectSetBackgroundRGB(lbl, 65, 51, 0);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetTransparency(lbl, 0);

    ed = MCreateEdit(tb, "3", 4, FIXED_SMALL);
//  MEditSetFilter(ed, 772, "");
//  MEditSetActCallback(ed, SactedtCB, (void *) 6);
//  MEditSetValCallback(ed, SvaledtCB, (void *) 6);
    MObjectSetForegroundRGB(ed, 255, 255, 0);
    MObjectSetBackgroundRGB(ed, 117, 117, 169);

    lbl = MCreateLabel(tb, "Regression Order", HELV_SMALL);
    MObjectSetBackgroundRGB(lbl, 65, 51, 0);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetTransparency(lbl, 0);

    ed = MCreateEdit(tb, "3", 4, FIXED_SMALL);
//  MEditSetFilter(ed, 772, "");
//  MEditSetActCallback(ed, SactedtCB, (void *) 6);
//  MEditSetValCallback(ed, SvaledtCB, (void *) 6);
    MObjectSetForegroundRGB(ed, 255, 255, 0);
    MObjectSetBackgroundRGB(ed, 117, 117, 169);

    tb = MCreateTableForm(rowfrm, 2);
    MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);


    pb = MCreatePButton(tb, "Execute", HELV_SMALL);
    MPButtonSetCallback(pb, FixedStepCB, 0);
    MObjectSetBackgroundRGB(pb, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetForegroundRGB(pb, DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
    MButtonSetOnMouseOverForegroundRGB(pb, ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);


    pb = MCreatePButton(tb, " Close ", HELV_SMALL);
    MPButtonSetCallback(pb, CloseMObjCB, (void *) sh);
    MObjectSetBackgroundRGB(pb, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetForegroundRGB(pb, DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
    MButtonSetOnMouseOverForegroundRGB(pb, ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);

    MShellRealize(sh);


    return 0;
}

/*
    Realize the Create differential MOBJECT
*/
MOBJECT MDCreateDiff_Sh(int mod)
{
    MOBJECT rowfrm;
    MOBJECT sh, pb, tb, lbl, rb, ed;

    sh = MCreateShell("Differentiate File", 0);
    MObjectSetBackgroundRGB(sh, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    rowfrm = MCreateRowForm(sh);
    MObjectSetForegroundRGB(rowfrm, 255, 255, 0);
    MObjectSetBackgroundRGB(rowfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    lbl = MCreateLabel(rowfrm, "FILTER DATA ?", HELV_SMALL);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
    MObjectSetTransparency(lbl, 0);

    tb = MCreateTableForm(rowfrm, 2);
    MObjectSetForegroundRGB(tb, 255, 255, 0);
    MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(tb, True, True);

    rb = MCreateRButton(tb, "Yes", HELV_SMALL);
    MObjectSetBackgroundRGB(rb, DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(rb, DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(rb, 0);

    rb = MCreateRButton(tb, "No", HELV_SMALL);
    MObjectSetBackgroundRGB(rb, DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(rb, DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(rb, 0);

    tb = MCreateTableForm(rowfrm, 2);
    MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    lbl = MCreateLabel(tb, "Filter Windows", HELV_SMALL);
    MObjectSetBackgroundRGB(lbl, 65, 51, 0);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetTransparency(lbl, 0);

    ed = MCreateEdit(tb, "", 4, FIXED_SMALL);
    MEditSetFilter(ed, 772, "");
//  MEditSetActCallback(ed, SactedtCB, (void *) 6);
//  MEditSetValCallback(ed, SvaledtCB, (void *) 6);
    MObjectSetForegroundRGB(ed, 255, 255, 0);
    MObjectSetBackgroundRGB(ed, 117, 117, 169);

    lbl = MCreateLabel(tb, "Differential Windows", HELV_SMALL);
    MObjectSetBackgroundRGB(lbl, 65, 51, 0);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetTransparency(lbl, 0);

    ed = MCreateEdit(tb, "", 4, FIXED_SMALL);
    MEditSetFilter(ed, 772, "");
//  MEditSetActCallback(ed, SactedtCB, (void *) 6);
//  MEditSetValCallback(ed, SvaledtCB, (void *) 6);
    MObjectSetForegroundRGB(ed, 255, 255, 0);
    MObjectSetBackgroundRGB(ed, 117, 117, 169);

    tb = MCreateTableForm(rowfrm, 2);
    MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);


    pb = MCreatePButton(tb, "Execute", HELV_SMALL);
    MPButtonSetCallback(pb, FixedStepCB, 0);
    MObjectSetBackgroundRGB(pb, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetForegroundRGB(pb, DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
    MButtonSetOnMouseOverForegroundRGB(pb, ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);


    pb = MCreatePButton(tb, " Close ", HELV_SMALL);
    MPButtonSetCallback(pb, CloseMObjCB, (void *) sh);
    MObjectSetBackgroundRGB(pb, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetForegroundRGB(pb, DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
    MButtonSetOnMouseOverForegroundRGB(pb, ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);

    MShellRealize(sh);


    return 0;
}


void ColumnFormatCB(MOBJECT p, void *od, void *ad)
{

    int c = (int) ad;
    
    switch (c)
    {
        case 0:
            MMessageDialog("DAS information", "The procedure is not yet implemented!!", " Ok ", NULL);  
            break;
        case 1:
            DT_ColFormat();
            break;
    }
    
    
}

MOBJECT lblwf, edtwf;
int fwstatus = 0;

void DB_FilterColumnCB(MOBJECT p, void *od, void *ad)
{
    
    int er = 0;
    int c = (int) ad;
    

    er = MRButtonGetActivationStatus(p);

    if(er)
    {
        switch (c)
        {
        case 0:
            TOOLS.FlagFilter = 0;
            if (fwstatus)
            {
                MObjectUnmap(lblwf);
                MObjectUnmap(edtwf);
                fwstatus = 0;
            }

            break;
        case 1:
            TOOLS.FlagFilter = 1;

            MObjectMap(lblwf);
            MObjectMap(edtwf);
            fwstatus = 1;

            break;
        }
    }



}


/*
    Realize the Column format MOBJECT
*/
MOBJECT MDCreateColFor_Sh(void)
{
    MOBJECT rowfrm, pagfrm;
    MOBJECT _oedit000;
    MOBJECT _oedit001;
    MOBJECT sh, pb, tb, lbl, rb;
    char str[32];
    int k,*p;


    sh = MCreateShell("Column Format", 0);
    MObjectSetBackgroundRGB(sh, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);


    pagfrm = MCreateTabbedRowForm(sh, 2, FIXED_SMALL);
    MObjectSetForegroundRGB(pagfrm, 255, 255, 255);
    MObjectSetBackgroundRGB(pagfrm, 96, 132, 152);
    MObjectSetResize(pagfrm, True, False);

    /*  Start Activation and creation of page 0   0000000000000*/
    /* 00000000000000000000000000000000000000000000000000000000*/    
    MPagedFormSetActivePage(pagfrm, 0);
    MObjectSetText(pagfrm, "Advanced Mode");




    rowfrm = MCreateRowForm(pagfrm);
    MObjectSetForegroundRGB(rowfrm, 255, 255, 0);
    MObjectSetBackgroundRGB(rowfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    lbl = MCreateLabel(rowfrm, "SELECT FILE MODE", HELV_SMALL);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
    MObjectSetTransparency(lbl, 0);

    tb = MCreateTableForm(rowfrm, 2);
    MObjectSetForegroundRGB(tb, 255, 255, 0);
    MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(tb, True, True);

    rb = MCreateRButton(tb, "Single", HELV_SMALL);
    MObjectSetBackgroundRGB(rb, DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(rb, DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(rb, 0);

    rb = MCreateRButton(tb, "List of...", HELV_SMALL);
    MObjectSetBackgroundRGB(rb, DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(rb, DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(rb, 0);

    lbl = MCreateLabel(rowfrm, "Order for Wavelength ?", HELV_SMALL);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
    MObjectSetTransparency(lbl, 0);

    tb = MCreateTableForm(rowfrm, 2);
    MObjectSetForegroundRGB(tb, 255, 255, 0);
    MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(tb, True, True);

    rb = MCreateRButton(tb, "Yes", HELV_SMALL);
    MObjectSetBackgroundRGB(rb, DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(rb, DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(rb, 0);

    rb = MCreateRButton(tb, "No", HELV_SMALL);
    MObjectSetBackgroundRGB(rb, DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(rb, DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(rb, 0);

    tb = MCreateTableForm(rowfrm, 2);
    MObjectSetForegroundRGB(tb, 255, 255, 0);
    MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(tb, True, True);

    lbl = MCreateLabel(tb, "Select the init Wl.", HELV_SMALL);
    MObjectSetBackgroundRGB(lbl, 120, 177, 218);
    MObjectSetTransparency(lbl, 0);

    _oedit000 = MCreateOptionEdit(tb, "2823", 5, 5, 15, FIXED_SMALL);
    {
      MOBJECT slist = MOptionEditGetList(_oedit000);
      MSListSetSortCallback(slist, strcmp);
      MSListAddItem(slist, "2823", (void *)0);
      MSListAddItem(slist, "3337", (void *)1);
      MSListAddItem(slist, "3850", (void *)2);
      MSListAddItem(slist, "4358", (void *)3);
      MSListAddItem(slist, "4861", (void *)4);
      MSListAddItem(slist, "5332", (void *)5);
      MSListAddItem(slist, "5814", (void *)6);
      MSListAddItem(slist, "6282", (void *)7);
      MSListAddItem(slist, "6734", (void *)8);
      MSListAddItem(slist, "7201", (void *)9);
      MSListAddItem(slist, "7677", (void *)10);
      MSListAddItem(slist, "8195", (void *)11);
      MSListAddItem(slist, "8622", (void *)12);
      MSListAddItem(slist, "9023", (void *)13);
      MSListAddItem(slist, "9405", (void *)14);
    }
    MEditSetFilter(_oedit000, 260, "");
    MEditDisableEditing(_oedit000);
    MEditEnableAutoControlColor(_oedit000);
    MObjectSetForegroundRGB(_oedit000, 255, 255, 0);
    MObjectSetBackgroundRGB(_oedit000, 117, 117, 169);

    lbl = MCreateLabel(tb, "Select the end Wl.", HELV_SMALL);
    MObjectSetBackgroundRGB(lbl, 120, 177, 218);
    MObjectSetTransparency(lbl, 0);

    _oedit001 = MCreateOptionEdit(tb, "9405", 5, 5, 15, FIXED_SMALL);
    {
      MOBJECT slist = MOptionEditGetList(_oedit001);
      MSListSetSortCallback(slist, strcmp);
      MSListAddItem(slist, "2823", (void *)0);
      MSListAddItem(slist, "3337", (void *)1);
      MSListAddItem(slist, "3850", (void *)2);
      MSListAddItem(slist, "4358", (void *)3);
      MSListAddItem(slist, "4861", (void *)4);
      MSListAddItem(slist, "5332", (void *)5);
      MSListAddItem(slist, "5814", (void *)6);
      MSListAddItem(slist, "6282", (void *)7);
      MSListAddItem(slist, "6734", (void *)8);
      MSListAddItem(slist, "7201", (void *)9);
      MSListAddItem(slist, "7677", (void *)10);
      MSListAddItem(slist, "8195", (void *)11);
      MSListAddItem(slist, "8622", (void *)12);
      MSListAddItem(slist, "9023", (void *)13);
      MSListAddItem(slist, "9405", (void *)14);
    }
    MEditSetFilter(_oedit001, 260, "");
    MEditDisableEditing(_oedit001);
    MEditEnableAutoControlColor(_oedit001);
    MObjectSetForegroundRGB(_oedit001, 255, 255, 0);
    MObjectSetBackgroundRGB(_oedit001, 117, 117, 169);

    tb = MCreateTableForm(rowfrm, 2);
    MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    

    pb = MCreatePButton(tb, "Execute", HELV_SMALL);
    MPButtonSetCallback(pb, ColumnFormatCB, (void *) 0);
    MObjectSetBackgroundRGB(pb, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetForegroundRGB(pb, DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
    MButtonSetOnMouseOverForegroundRGB(pb, ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);


    pb = MCreatePButton(tb, " Close ", HELV_SMALL);
    MPButtonSetCallback(pb, CloseMObjCB, (void *) sh);
    MObjectSetBackgroundRGB(pb, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetForegroundRGB(pb, DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
    MButtonSetOnMouseOverForegroundRGB(pb, ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);

    /*  Start Activation and creation of page 1   0000000000000*/
    /* 00000000000000000000000000000000000000000000000000000000*/    
    MPagedFormSetActivePage(pagfrm, 1);
    MObjectSetText(pagfrm, "Easy Mode");

    rowfrm = MCreateRowForm(pagfrm);
    MObjectSetForegroundRGB(rowfrm, 255, 255, 0);
    MObjectSetBackgroundRGB(rowfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    lbl = MCreateLabel(rowfrm, "PUSH the 'Execute' Button\n and\n select the file to put in column format", HELV_SMALL);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(lbl, 0);
    MObjectSetResize(lbl, True, True);

/****************/
    lbl = MCreateLabel(rowfrm, "FILTER", FIXED_SMALL);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 48, 20, 255);
    MObjectSetTransparency(lbl, 0);


    tb = MCreateTableForm(rowfrm, 2);
    MObjectSetBackgroundRGB(tb, 112, 128, 112);
    MObjectSetResize(tb, True, False);
    MObjectAlign(tb, LEFT_ALIGN, TOP_ALIGN);

    rb = MCreateRButton(tb, "Disabled", FIXED_SMALL);
    MPButtonSetCallback(rb, DB_FilterColumnCB, (void *) 0);
    MObjectAlign(rb, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(rb, 255, 255, 255);
    //MObjectSetCompositeWidth(rb, 85);
    if(TOOLS.FlagFilter == 0)
        MRButtonActivate(rb);

    rb= MCreateRButton(tb, "Enabled", FIXED_SMALL);
    MPButtonSetCallback(rb, DB_FilterColumnCB, (void *) 1);
    MObjectAlign(rb, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(rb, 255, 255, 255);
    //MObjectSetCompositeWidth(rb, 123);
    if(TOOLS.FlagFilter == 1)
        MRButtonActivate(rb);


    
    lblwf = MCreateLabel(tb, "Window Filter:", FIXED_SMALL);
    MLabelSetAlignment(lblwf, LEFT_ALIGN);
    MObjectSetForegroundRGB(lblwf, 255, 255, 255);
    MObjectSetTransparency(lblwf, 0);
    MObjectSetResize(lblwf, False, False);
    MObjectAlign(lblwf, LEFT_ALIGN, TOP_ALIGN);


    sprintf(str,"%d",DOAS.FFTFilter);
    edtwf = MCreateClippedEdit(tb, str, 10, 5, FIXED_SMALL);
    MObjectSetForegroundRGB(edtwf, 255, 255, 255);
    MObjectSetBackgroundRGB(edtwf, 40, 96, 72);
//  MObjectSetCompositeWidth(level, 35);
    MObjectAlign(edtwf, LEFT_ALIGN, TOP_ALIGN);
    k = 151;
    p = (void *) k;
    MEditSetValCallback(edtwf, ValidateCB, p);
    MEditSetActCallback(edtwf, ActEditCB, p);
    
    if(TOOLS.FlagFilter == 0)
    {
        MObjectUnmap(lblwf);
        MObjectUnmap(edtwf);

    }
    else
    {
        MObjectMap(lblwf);
        MObjectMap(edtwf);
    }


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

    tb = MCreateTableForm(rowfrm, 2);
    MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);


    

    pb = MCreatePButton(tb, "Execute", HELV_SMALL);
    MPButtonSetCallback(pb, ColumnFormatCB, (void *) 1);
    MObjectSetBackgroundRGB(pb, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetForegroundRGB(pb, DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
    MButtonSetOnMouseOverForegroundRGB(pb, ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);


    pb = MCreatePButton(tb, " Close ", HELV_SMALL);
    MPButtonSetCallback(pb, CloseMObjCB, (void *) sh);
    MObjectSetBackgroundRGB(pb, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetForegroundRGB(pb, DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
    MButtonSetOnMouseOverForegroundRGB(pb, ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);


    return sh;
}

int WriteDataFile(int c, char *filed)
{

    int x, y, ft;
    FILE *fd;
    unsigned long       info = 0;

    switch (c)
    {
        case 0: //BIN 2 ASCII
                fd = fopen(filed, "a");
                    if(fd < 0) return 1;

                if (DOAS.FMMode == BFILE)
                    VRange("Export as ASCII", 0);

                // Print on file the header
                D_PrintBILSPH(fd);

                for(y = 0; y < IDY; y++)
                {
                    for(x = 0; x < IDX; x++)
                    {
                        if((x % 10) == 0)
                        {
                            if(y == 0 && x == 0)
                            {
                            }
                            else
                                fprintf(fd, "\n", NULL);
                        }   
                        fprintf(fd, "%5u ", BIL.DPLOT.ImatOrig[y * IDX + x]);
                    }
                    if (DOAS.FMMode == BFILE)
                        if((y % 40) == 0 && y > 0)
                            VRange(NULL, (long) y * 100 / IDY);

                }
                fprintf(fd, "\n", NULL);
                fclose(fd);
                if (DOAS.FMMode == BFILE)
                    VRange(NULL, 100);

            break;
        case 1: //Dat Ext
                ft = open(filed, O_WRONLY | O_BINARY | O_CREAT | O_APPEND, S_IWRITE);
                    if(ft < 0)  return(-1);
                
            //  if(DI_FileExist(filedest))
            //  {
            //      er = MMessageDialog("DAS information", "The File already exist!!!. What do you want to do ?" , "Overwrite","Overwrite", "Specify different name","Cancel operation", NULL);

            //  }
                if (DOAS.FMMode == BFILE)
                    VRange("Export as Binary", 0);
                // Print on file the header
                D_PrintBILSPH_BIN(ft);
                
                for(x = 0; x < IDX; x++)
                {
                    for(y = 0; y < IDY; y++)
                    {
                        info += write(ft, &BIL.DPLOT.ImatOrig[y * IDX + x], 2);
                    }
                    if (DOAS.FMMode == BFILE)
                        if((x % 40) == 0 && x > 0)
                            VRange(NULL, (long) x * 100 / IDX);

                }               
                
                close(ft);
                if (DOAS.FMMode == BFILE)
                    VRange(NULL, 100);

            break;
    }

    return 0;
}

/*
    Procedure for changing the data file format
    mod = 0 -> Binary to ASCII format (BIF -> DAT)
    mod = 1 -> ASCII to Binary format (DAT -> BIF)

    dir = input and output directory
    filename = input file name, the output file name is automatically generated
*/
int DatOrBinFormat(int mod, char *dir, char *filename)
{

    FILE    *fs;
    int fn, er = 0;
    unsigned int l;
    int eofreach = 0;
    char    fileorigin[_MAX_PATH];
    char    filedest[_MAX_PATH];
    char *pdest;
    unsigned long       info = 0;
    char ch[1];
//  char *chest = '\0';

    

    //if the second character of the 'filename' is not ':',
    //build the complete name (path + filename) for the origin file
    // else it means that a complete filename (with also the path) is furnished.
    
    sprintf(ch, "%c", filename[1]);

    if( strcmp(ch,":") == 0)
        sprintf(fileorigin,"%s", filename);
    else
        sprintf(fileorigin,"%s%s", dir, filename);
    
    
    l = strlen(fileorigin);
    pdest = _memccpy( filedest, fileorigin, '.', l );
    *pdest = '\0'; // 

    //open the origin file and build the destination file
    switch (mod)
    {
        case 0: //BIN 2 ASCII
            strcat(filedest, "Dat");
            fn = open(fileorigin,  O_RDONLY | O_BINARY, S_IREAD );
            if(fn < 0)  return(-1);
            break;
        case 1: //Dat Ext
            strcat(filedest, "Bif");
            fs = fopen(fileorigin, "r");
            if(fs < 0) return 1;
            break;
    }
    
    //Init the reading of the origin file
    do
    {
        switch (mod)
        {
            case 0: //Bif Ext
                er = ReadHeader_BIN(fn);
                break;
    
            case 1: //dat Ext
                er = ReadHeader_ASCII(0, fs); //New Format (data after 10/12/03)
                break;
        }
        
        //Alloc the buffer for the data
        BIL.DPLOT.ImatOrig = AllocUSMat(IDX, IDY);
        
        //Read image
        switch (mod)
        {
            case 0: //Bif Ext

                ReadIMG_BIN(fn, BIL.DPLOT.ImatOrig, IDX, IDY);
                break;
    
            case 1: //Dat Ext
                ReadIMG(fs, BIL.DPLOT.ImatOrig, IDX, IDY);
                break;
        }
        //write data on the destination file
        switch (mod)
        {
            case 0: //BIN 2 ASCII
                WriteDataFile(mod, filedest);
                break;
            case 1: //ASCII 2 BIN
                WriteDataFile(mod, filedest);
                break;
        }
        
        //Dealloc the data buffer
        BIL.DPLOT.ImatOrig = DeallocUSMat(BIL.DPLOT.ImatOrig);

        //Check for the End Of File
        switch (mod)
        {
            case 0: //Bif Ext
                eofreach = eof(fn);
                break;
    
            case 1: //Dat Ext
                eofreach = feof(fs);
                break;
        }


    }while(!eofreach); 
    
    //Close the origin file
    switch (mod)
    {
        case 0: //Bif Ext
            close(fn);
            break;
    
        case 1: //Dat Ext
            fclose(fs);
            break;
    }
    
    return 0;
}


int EleDatOrBinFormat(int c, char *dirname, char *fname)
{

    FILE    *fs;
    char buf[_MAX_PATH], str[64];
    char filedatan[64] ;
    int k, i, numerofile;

    strcpy(buf, dirname);
    strcat(buf, fname);

// Lettura file elenco
    i=0;
    fs = fopen(buf, "r");
        if(fs < 0) return 1;
    while( !feof( fs ) )
    {
        fgets(filedatan, 80, fs);
        i++;
    }
    fclose(fs);
    
    numerofile = i;


    fs = fopen(buf, "r");
    if(fs < 0) return 2;



    //Read the file names
    k = 0;
    while( !feof( fs ) )
    {

        D_VRange(str,0, 0, 222, 235);

        MLoopWhileEvents(2);
        k++;
    
        fscanf(fs, "%s", filedatan);

        switch (c)
        {
            case 0: //Bif Ext
                sprintf(str,"%d/%d, %s -> %s", k, numerofile, filedatan, "DAT");
                break;
    
            case 1: //Dat Ext
                sprintf(str,"%d/%d, %s -> %s", k, numerofile, filedatan, "BIF");
                break;
        }

        
        // build the complete file name
            D_VRange(str, (long) k * 100 / numerofile, 0, 222, 235 );
        
        DatOrBinFormat(c, dirname, filedatan);
    
        D_VRange(NULL, 100, 0,0,0);

    }


    fclose(fs);

    return 0;
}


void ChangeFormatCB(MOBJECT p, void *od, void *ad)
{
    
    int er = 0, c = 0, d = 0;
    char fname[128], dirname[128];

    
    FB_PREFS    prefs;

    prefs.allow_dir_create = True;
    prefs.allow_dir_delete = True;
    prefs.allow_dir_rename = True;
    prefs.change_cwd = False;
    prefs.allow_dir_create = True;
    prefs.allow_dir_rename = True;
    prefs.bg_image = False;
    prefs.bg_image_file = "";
    prefs.button_font = HELV_SMALL;
    prefs.close_button = "CANCEL";
    prefs.create_menu = "CREATE";
    prefs.file_label = "File:";
    prefs.filter_label = "Filter:";
    prefs.font = HELV_SMALL;
    prefs.ok_button = "OK";
    prefs.remove_menu = "REMOVE";
    prefs.rename_menu = "RENAME";
    prefs.transparent_tree = False;
    
    strcpy (dirname, BIL.DFILEM.DATADIRECTORY);
    fname[0] = '\0';
    
    
    c = (int) ad;
    d = DOAS.FMMode;
    switch(c)
    {
    //  BIN 2 ASCII
    case 0:
        switch(d)
        {
        case 0: //Single File
            if(MFileBrowseExt("Select File for Binary to ASCII processing", "*.bif", fname, dirname, &prefs))
            {
                DatOrBinFormat(c, dirname, fname);  
                break;
            }
            else
                break;
        case 1: //List of File
            if(MFileBrowseExt("Select List of Files for Binary to ASCII processing", "*.ele", fname, dirname, &prefs))
            {
                EleDatOrBinFormat(c, dirname, fname);   
                break;
            }
            
            else
                break;
        case 2: //Directory 
            if(MDirBrowseExt("Select Directory for Binary to ASCII processing", "*.*", DOAS.SYSDIR, &prefs))


                break;
            else
                break;
        case 3: //Drive
            break;

        }
        
        break;
    // ASCII 2 BIN
    case 1: 
        switch(d)
        {
        case 0: //Single File
            if(MFileBrowseExt("Select File for ASCII to Binary processing", "*.dat", fname, dirname, &prefs))
            {
                DatOrBinFormat(c, dirname, fname);  
                break;
            }
            else
                break;
        case 1: //List of File
            if(MFileBrowseExt("Select List of Files for ASCII to Binary processing", "*.ele", fname, dirname, &prefs))
            {
                EleDatOrBinFormat(c, dirname, fname);   
                break;
            }
            else
                break;

        case 2: //Directory 
            if(MDirBrowseExt("Select Directory for ASCII to Binary processing", "*.*", DOAS.SYSDIR, &prefs))


                break;
            else
                break;
        case 3: //Drive
            break;

        }
        
        break;
    }
    

}

void RBFormatCB(MOBJECT p, void *od, void *ad)
{
    int er = 0;
    int c = (int) ad;
    

    er = MRButtonGetActivationStatus(p);
    
    if(er)
    {
        switch (c)
        {
            case 0:
                DOAS.FMMode = BFILE;
                break;
            case 1:
                DOAS.FMMode = BFILELIST;
                break;
            case 2:
                DOAS.FMMode = BDIR;
                break;
            case 3:
                DOAS.FMMode = BDRIVE;
                break;
            

        }
    }
        

}


void FilterRawDataCB(MOBJECT p, void *od, void *ad)
{

    MMessageDialog("DAS information", "The procedure is not yet implemented!!", " Ok ", NULL);  

}


MOBJECT MDCreateFormat_Sh(int mod)
{
    MOBJECT rowfrm;
    MOBJECT sh, pb, tb, lbl, rb, ed;

    if (mod == 1) // ASCII 2 BIN
        sh = MCreateShell("ASCII 2 Binary Format", 0);
    else if (mod == 0)
        sh = MCreateShell("Binary 2 ASCII Format", 0);
    else if (mod == 2)
        sh = MCreateShell("Filter Raw Data", 0);

    MObjectSetBackgroundRGB(sh, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    rowfrm = MCreateRowForm(sh);
//  MObjectSetForegroundRGB(rowfrm, 255, 255, 0);
    MObjectSetBackgroundRGB(rowfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    lbl = MCreateLabel(rowfrm, "SELECT FILE MODE", HELV_SMALL);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
    MObjectSetTransparency(lbl, 0);

    tb = MCreateTableForm(rowfrm, 4);
//  MObjectSetForegroundRGB(tb, 255, 255, 0);
    MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(tb, True, True);

    rb = MCreateRButton(tb, "Single", HELV_SMALL);
    MObjectSetBackgroundRGB(rb, DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(rb, DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(rb, 0);
    MRButtonActivate(rb);
    MPButtonSetCallback(rb, RBFormatCB, (void *) 0);

    rb = MCreateRButton(tb, "List of...", HELV_SMALL);
    MObjectSetBackgroundRGB(rb, DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(rb, DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(rb, 0);
    MPButtonSetCallback(rb, RBFormatCB, (void *) 1);

    rb = MCreateRButton(tb, "Directory", HELV_SMALL);
    MObjectSetBackgroundRGB(rb, DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(rb, DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(rb, 0);
    MPButtonSetCallback(rb, RBFormatCB, (void *) 2);
    MObjectSetUnsensitive(rb);

    rb = MCreateRButton(tb, "Drive", HELV_SMALL);
    MObjectSetBackgroundRGB(rb, DPAL.DB_BG_RButt[0], DPAL.DB_BG_RButt[1], DPAL.DB_BG_RButt[2]);
    MObjectSetForegroundRGB(rb, DPAL.DB_FG_RButt[0], DPAL.DB_FG_RButt[1], DPAL.DB_FG_RButt[2]);
    MObjectSetTransparency(rb, 0);
    MPButtonSetCallback(rb, RBFormatCB, (void *) 3);
    MObjectSetUnsensitive(rb);

    if (mod == 2)
    {
        tb = MCreateTableForm(rowfrm, 2);
        MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

        lbl = MCreateLabel(tb, "Filter Windows", HELV_SMALL);
        MObjectSetBackgroundRGB(lbl, 65, 51, 0);
        MObjectSetForegroundRGB(lbl, 255, 255, 255);
        MObjectSetTransparency(lbl, 0);
    
        ed = MCreateEdit(tb, "", 4, FIXED_SMALL);
        MEditSetFilter(ed, 772, "");
    //  MEditSetActCallback(ed, SactedtCB, (void *) 6);
    //  MEditSetValCallback(ed, SvaledtCB, (void *) 6);
        MObjectSetForegroundRGB(ed, 255, 255, 0);
        MObjectSetBackgroundRGB(ed, 117, 117, 169);

    }
    tb = MCreateTableForm(rowfrm, 2);
    MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);


    pb = MCreatePButton(tb, "Execute", HELV_SMALL);
    if (mod == 1) // ASCII 2 BIN
        MPButtonSetCallback(pb, ChangeFormatCB, (void *)mod);
    else if (mod == 0)
        MPButtonSetCallback(pb, ChangeFormatCB, (void *)mod);
    else if (mod == 2)
        MPButtonSetCallback(pb, FilterRawDataCB, 0);
    
    MObjectSetBackgroundRGB(pb, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetForegroundRGB(pb, DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
    MButtonSetOnMouseOverForegroundRGB(pb, ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);

    pb = MCreatePButton(tb, " Close ", HELV_SMALL);
    MPButtonSetCallback(pb, CloseMObjCB, (void *) sh);
    MObjectSetBackgroundRGB(pb, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetForegroundRGB(pb, DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
    MButtonSetOnMouseOverForegroundRGB(pb, ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);

    MShellRealize(sh);


    return 0;
}

int WriteDOASConfig(void)
{
    FILE    *fs;
    char    str[80];
    
    fs = fopen("DOAS\\DOAS.cfg", "w");

    
    if(fs == NULL)
    {
        MMessageDialog("DAS information", "Problems in opening file", " Ok ", NULL);
        return 1;   
    }



    sprintf(str, "##############################################\n");
    fprintf(fs,str);
    sprintf(str, "#       DOAS Config File                     #\n");
    fprintf(fs,str);
    sprintf(str, "##############################################\n");
    fprintf(fs,str);    
    sprintf(str, "#--------------------------------------------#\n");
    fprintf(fs,str);
    sprintf(str, "#          PLEASE DO NOT MODIFY              #\n");
    fprintf(fs,str);
    sprintf(str, "#--------------------------------------------#\n");
    fprintf(fs,str);
    sprintf(str, "#DOAS System Directory-----------------------#\n");
    fprintf(fs,str);
    sprintf(str, "%s\n", DOAS.SYSDIR);
    fprintf(fs,str);

    sprintf(str, "#DOAS Results Directory-----------------------#\n");
    fprintf(fs,str);
    sprintf(str, "%s\n", DOAS.RISDIR);
    fprintf(fs,str);



    sprintf(str, "##############################################\n");
    fprintf(fs,str);

    fclose(fs);

    return 0;

}


int DOAS_LoadConfig(struct doas *pdoas)
{

    FILE    *fs;
    char    str[80];
    fs = fopen("DOAS\\DOAS.cfg", "r");

    if(fs == NULL) return 1;

    ReadLine(str, 80, fs); // ##############################################
    ReadLine(str, 80, fs); // #       DOAS Config File                     #
    ReadLine(str, 80, fs); // ##############################################
    ReadLine(str, 80, fs); // #--------------------------------------------#
    ReadLine(str, 80, fs); // #          PLEASE DO NOT MODIFY              #
    ReadLine(str, 80, fs); // #--------------------------------------------#
    ReadLine(str, 80, fs); // #DOAS System Directory-----------------------#
    fscanf(fs, "%s\n", &pdoas->SYSDIR);

    ReadLine(str, 80, fs); // #DOAS Reults Directory-----------------------#
    fscanf(fs, "%s\n", &pdoas->RISDIR);
    
    ReadLine(str, 80, fs); // ##############################################

    fclose(fs);

    return 0;


}



void EditorCB(MOBJECT p, void *od, void *ad)
{
    int er = 0;
    char str[255];

        sprintf(str,"%s\\MEDIT.EXE NoName.txt", BIL.DFILEM.HOMEDIRECTORY);
        er = WinExec(str, SW_SHOW);


}

void BrowseCB(MOBJECT p, void *od, void *ad)
{
    
    int er = 0;
    FB_PREFS    prefs;

//  MIMAGE img;
    prefs.allow_dir_create = True;
    prefs.allow_dir_delete = True;
    prefs.allow_dir_rename = True;
    prefs.change_cwd = False;
    prefs.allow_dir_create = True;
    prefs.allow_dir_rename = True;
    prefs.bg_image = NULL;
    prefs.bg_image_file = "sys\\images\\tiles\\tile2.bmp";
    prefs.button_font = HELV_SMALL;
    prefs.close_button = "CANCEL";
    prefs.create_menu = "CREATE";
    prefs.file_label = "File:";
    prefs.filter_label = "Filter:";
    prefs.font = HELV_SMALL;
    prefs.ok_button = "OK";
    prefs.remove_menu = "REMOVE";
    prefs.rename_menu = "RENAME";
    prefs.transparent_tree = False;

    
    switch((int) ad)
    {
    // DOAS System directory
    case 0:
        

            if(MDirBrowseExt("SELECT DOAS SYS DIRECTORY", "*.*", DOAS.SYSDIR, &prefs))
                MObjectSetText(lblsys, DOAS.SYSDIR);
            er = WriteDOASConfig();
            break;
    // DOAS Results directory
    case 1: 
            if(MDirBrowseExt("SELECT DOAS RESULTS DIRECTORY", "*.*",DOAS.RISDIR, &prefs))
                MObjectSetText(lblris, DOAS.RISDIR);
            er = WriteDOASConfig();
            break;
    // Selected directory
    case 2: 
            if(MDirBrowseExt("SELECT DIRECTORY", "*.*",DOAS.RISDIR, &prefs))

                break;

    }

}

void DOASConfigCB(MOBJECT p, void *od, void *ad)
{


//  MDCreateBuildList_Sh(0);
//  ConfigCB(p, od, ad);

}

void VitesaCB(MOBJECT p, void *od, void *ad)
{

    MOBJECT shell;
    int er = 0;

    shell = MDCreatesh_vitesa();
    MShellRealize(shell);



}


void FluxIndexCB(MOBJECT p, void *od, void *ad)
{

    
    int er =0;
    char fname[128];
    char buff[_MAX_PATH];
//  int l;

    
    FB_PREFS fbp;

  fname[0] = '\0';
  buff[0] = '\0';
  
    memset (&fbp, 0, sizeof (fbp));
 
    fbp.change_cwd = True;
    fbp.allow_dir_create = True;
    fbp.allow_dir_rename = True;
    fbp.allow_dir_delete = True;
    fbp.transparent_tree = False;
    fbp.font = HELV_SMALL;
    fbp.button_font = HELV_SMALL;
    //Set Img file
    sprintf(buff, "%s\\%s", BIL.DFILEM.HOMEDIRECTORY, "sys\\Tile2.bmp" );
    fbp.bg_image_file =buff;


    er = MFileBrowseExt ("Select List File for FluxIndex Calculation", "*.ele", fname, BIL.DFILEM.DATADIRECTORY, &fbp);
    if(er)
    {
        sprintf(BIL.DFILEM.DBFILENAME,"%s%s",BIL.DFILEM.DATADIRECTORY, fname);
        DB_CalcFluxI(BIL.DFILEM.DBFILENAME);    
    }



}


MOBJECT MDCreateDOAS_MainSh(struct doas *pdoas)
{
    MOBJECT _rowform001;
    MOBJECT _tablefrm003;
    MOBJECT _label004;
    MOBJECT _label006;
    MOBJECT pb;

    MOBJECT     menu;
    
    DOAS_LoadConfig(pdoas);

    // Load the dispersion coefficient for DOAS Use
    LoadDB_DispCoeff();

    LoadParam();

    sprintf(pdoas->family, "Arial");
    pdoas->fsize = 32;
    pdoas->fbold = 0;
    pdoas->fitalic = 0;


    pdoas->font = MLoadFont(pdoas->family, pdoas->fsize, pdoas->fbold, pdoas->fitalic);


    DOAS_MainSh = MCreateShell("DOAS Main Panel", 0);

    {
/*

  */
    
      MENU_ITEM id_item, id_menu;

      menubar = MCreateMenuBar(DOAS_MainSh, HELV_SMALL);

//    menubar = MCreateMenuBar(DOAS_MainSh, pdoas->font);

      MMenuBarSetAcc(menubar, F10);

      menu = MCreateMenu(menubar, "File");
          id_menu = MMenuAddItem(menu, "Load Img", (MENU_ITEM_CB) ExitCB, NULL);
          id_menu = MMenuAddItem(menu, "Load Ris", (MENU_ITEM_CB) ExitCB, NULL);
          id_menu = MMenuAddItem(menu, "Close", (MENU_ITEM_CB) ExitCB, NULL);

          MMenuAddSeparator(menu);

          id_menu = MMenuAddItem(menu, "Exit", (MENU_ITEM_CB) MGUIQuitCB, NULL);
          MMenuItemSetAccel(id_menu, C_X, "Ctrl+X");
      
      menu = MCreateMenu(menubar, "Analisys");
      
      id_menu = MMenuAddItem(menu, "Io", NULL, NULL);
        submenu = MCreateSubMenu(id_menu);      
            id_menu = MMenuAddItem(submenu, "Setup", (MENU_ITEM_CB)IoSetupCB, 0);
            MMenuItemSetAccel(id_menu, C_S, "Ctrl+S");
            id_menu = MMenuAddItem(submenu, "Create", (MENU_ITEM_CB)IoCreateCB, 0);
            MMenuItemSetAccel(id_menu, C_C, "Ctrl+C");
      
      MMenuAddSeparator(menu);
    
      id_menu = MMenuAddItem(menu, "DOAS", NULL, NULL);
        submenu = MCreateSubMenu(id_menu);      
          id_menu = MMenuAddItem(submenu, "Setup", (MENU_ITEM_CB)DOASSetupCB, 0);
          MMenuItemSetAccel(id_menu, C_S, "Ctrl+S");
          id_menu = MMenuAddItem(submenu, "Processing", (MENU_ITEM_CB)DOASProcCB, 0);
          MMenuItemSetAccel(id_menu, C_P, "Ctrl+P");
      
      menu = MCreateMenu(menubar, "Utility");
      id_item = MMenuAddItem(menu, "Differential", (MENU_ITEM_CB)DiffCB, 0);
      MMenuItemSetAccel(id_item, C_E, "Ctrl+E");
      id_item = MMenuAddItem(menu, "Fixed Step", (MENU_ITEM_CB)FixStepCB, 0);
      MMenuItemSetAccel(id_item, C_T, "Ctrl+T");
      id_item = MMenuAddItem(menu, "View Spectra", (MENU_ITEM_CB)ViewCB, 0);
      MMenuItemSetAccel(id_item, C_W, "Ctrl+W");
      id_item = MMenuAddItem(menu, "Sun Calculator", (MENU_ITEM_CB)SunCalcCB, 0);
      MMenuItemSetAccel(id_item, C_S, "Ctrl+S");
      id_item = MMenuAddItem(menu, "ShiftStretch", (MENU_ITEM_CB)ShStCB, 0);
      MMenuItemSetAccel(id_item, C_H, "Ctrl+H");
      id_item = MMenuAddItem(menu, "Filter Data", (MENU_ITEM_CB)FilterCB, 0);
      MMenuItemSetAccel(id_item, C_T, "Ctrl+T");
      id_item = MMenuAddItem(menu, "Column Format", (MENU_ITEM_CB)ColumnFCB, 0);
      MMenuItemSetAccel(id_item, C_C, "Ctrl+C");
      id_item = MMenuAddItem(menu, "Resume", (MENU_ITEM_CB)ResumeCB, 0);
      MMenuItemSetAccel(id_item, C_R, "Ctrl+R");
      id_item = MMenuAddItem(menu, "Link Spectra", (MENU_ITEM_CB)LinkSpectraCB, 0);
      MMenuItemSetAccel(id_item, C_L, "Ctrl+L");

      id_item = MMenuAddItem(menu, "Editor", (MENU_ITEM_CB)EditorCB, (void *) 0);
      MMenuItemSetAccel(id_item, C_D, "Ctrl+D");

      id_item = MMenuAddItem(menu, "Create List", (MENU_ITEM_CB)BuildListCB, (void *) 0);
      MMenuItemSetAccel(id_item, C_C, "Ctrl+C");

      id_item = MMenuAddItem(menu, "ASCII to Binary", (MENU_ITEM_CB)ChooseFormatCB, (void *) 1);
      MMenuItemSetAccel(id_item, C_A, "Ctrl+A");

      id_item = MMenuAddItem(menu, "Binary to ASCII ", (MENU_ITEM_CB)ChooseFormatCB, 0);
      MMenuItemSetAccel(id_item, C_B, "Ctrl+B");

      id_item = MMenuAddItem(menu, "Flux Index ", (MENU_ITEM_CB)FluxIndexCB, 0);
      MMenuItemSetAccel(id_item, C_U, "Ctrl+U");

      id_item = MMenuAddItem(menu, "Temp History ", (MENU_ITEM_CB)PBTempHistoCB, 0);
      MMenuItemSetAccel(id_item, C_H, "Ctrl+H");

      menu = MCreateMenu(menubar, "Tools");
      id_item = MMenuAddItem(menu, "Config", (MENU_ITEM_CB) DOASConfigCB, 0);

      id_item = MMenuAddItem(menu, "ViTESA", (MENU_ITEM_CB) VitesaCB, 0);


      menu = MCreateMenu(menubar, "Help");
      id_item = MMenuAddItem(menu, "Topics", (MENU_ITEM_CB) HlpTopCB, 0);

      id_item = MMenuAddItem(menu, "About", (MENU_ITEM_CB) HlpTopCB, (void *)1);

    }
    MObjectSetForegroundRGB(menubar, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(menubar, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    _rowform001 = MCreateRowForm(DOAS_MainSh);
    MObjectSetBackgroundRGB(_rowform001, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    _tablefrm003 = MCreateTableForm(_rowform001, 3);
    MObjectSetBackgroundRGB(_tablefrm003, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    _label004 = MCreateLabel(_tablefrm003, "DOAS Sys Directory:", HELV_SMALL);
    MLabelSetAlignment(_label004, LEFT_ALIGN);
    MObjectSetForegroundRGB(_label004, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(_label004, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    MObjectSetTransparency(_label004, 0);


    //lblsys = MCreateLabel(_tablefrm003, "..\\DOAS\\Sys\\        ", TIMES_SMALL);
    lblsys = MCreateLabel(_tablefrm003, pdoas->SYSDIR, TIMES_SMALL);
    MLabelSetAlignment(lblsys, LEFT_ALIGN);
    MObjectSetForegroundRGB(lblsys, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(lblsys, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(lblsys, 0);
    MObjectSetShadow(lblsys, WS_SHADOW_IN, 2, 0);

    pb = MCreateImagePButton(_tablefrm003, "sys\\fbsfold.bmp", "", "");
    MPButtonSetCallback(pb, BrowseCB, (void *) 0);
    MObjectSetPopupHelp(pb, "Change DOAS\nSystem Directory", 20, 2000);
    MPButtonSetAlignment(pb, RIGHT_ALIGN);

    _label006 = MCreateLabel(_tablefrm003, "DOAS Results Directory:", HELV_SMALL);
    MLabelSetAlignment(_label006, LEFT_ALIGN);
    MObjectSetForegroundRGB(_label006, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(_label006, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    MObjectSetTransparency(_label006, 0);

    lblris = MCreateLabel(_tablefrm003, pdoas->RISDIR, HELV_SMALL);
    MLabelSetAlignment(lblris, LEFT_ALIGN);
    MObjectSetForegroundRGB(lblris, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(lblris, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(lblris, 0);
    MObjectSetShadow(lblris, WS_SHADOW_IN, 2, 0);

    pb = MCreateImagePButton(_tablefrm003, "sys\\fbsfold.bmp", "", "");
    MPButtonSetCallback(pb, BrowseCB, (void *) 1);
    MObjectSetPopupHelp(pb, "Change DOAS\nResults Directory", 20, 2000);
    MPButtonSetAlignment(pb, RIGHT_ALIGN);

    MShellRealizeXY(DOAS_MainSh, 0, 0);



    MShellSetWMCloseCallback(DOAS_MainSh, MGUIQuitCB, 0L);
    
    MMainLoop();


    return 0;
}


void PlotDOAS(MOBJECT obj)
{

    MObjectRedraw(obj);
/*  if (mode)
        MDrawAreaSetExposeCallback(BIL.DPLOT.drawapl, DAExOnLineCB, NULL);
    else
        MDrawAreaSetExposeCallback(BIL.DPLOT.drawapl, DrawAreaExposeCB, NULL);
*/
//  MDrawAreaSetExposeCallback(obj, DrawAreaPlotCB, NULL);
    MObjectRedraw(obj); 

}


//MOBJECT obj = draw control:
//                              drwa[0] = PLOTIOIS

void PlotDOAS_Spectra(int mod, MOBJECT obj, unsigned short plotmat[], int idx, 
                  int idy, double costx, double costy, int min, int max,
                  int ox, int oy ) 
{

//void PlotSpectrum(MOBJECT obj, MOBJECT pb[], MIMAGE mim, unsigned short plotmat[], int idx, 
//                int idy, unsigned long pe[], double costx, double costy, int min, int max,
//                int ox, int oy, int bp, int hlb, int hla) 

    int t, j;
    int X1, X, Y1, Y;
    t=2;
    for(j = 0; j < idx ; j++)
    {   
        X = (int) (ox + (j *  costx));
        Y = (int) (oy - abs((int)((double)(plotmat[t * idx + j] - min) / costy)));
        X1 = (int) (ox + (j + 1) * costx);
        Y1 = (int) (oy - abs((int)((double)(plotmat[t * idx + j + 1] - min) / costy)));
//      MDrawLine(obj, X, Y, X1, Y1, pe[t]);        
    }



}



void DOAS_Plot(int mod, int plottype, MOBJECT obj, char *text,  struct doas *pdoas )
    {
        MOBJECT lbl;
        MOBJECT tb0, rform0;
        MOBJECT tb1, rform1, rform2;
        MOBJECT edit0;
        int i, iinf, isup,c;
        char buff[32];



        c = plottype;
        switch(c)
        {
        case 0:
            iinf = 0; isup = 10;
            break;
        case 1:
            iinf = 10; isup = 20;
            break;
        case 2:
            iinf = 20; isup = 30;
            break;
        case 3:
            iinf = 30; isup = 40;
            break;
        case 4:
            iinf = 40; isup = 50;
            break;
        case 5:
            iinf = 50; isup = 60;
            break;
        case 6:
            iinf = 60; isup = 70;
            break;
        case 7:
            iinf = 70; isup = 80;
            break;
        }

        if(mod == 0)
        {

            lbl = MCreateLabel(obj, text, HELV_SMALL);
            MObjectAlign(lbl, CENTER_ALIGN, TOP_ALIGN);
            MObjectSetForegroundRGB(lbl, 255, 255, 0);
            MObjectSetBackgroundRGB(lbl, 117, 117, 169);
            MObjectSetTransparency(lbl, 0);
            MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
            MObjectSetResize(lbl, False, False);
        }
        if(mod==1)
        {
            edit0 = MCreateOptionEdit(obj, "NO2", 5, 5, 6, FIXED_SMALL);
                {
                    MOBJECT slist = MOptionEditGetList(edit0);
                    MSListSetSortCallback(slist, strcmp);
                    MSListAddItem(slist, "BrO", (void *)3);
                    MSListAddItem(slist, "HCHO", (void *)4);
                    MSListAddItem(slist, "HONO", (void *)5);
                    MSListAddItem(slist, "NO2", (void *)0);
                    MSListAddItem(slist, "NO3", (void *)6);
                    MSListAddItem(slist, "O3", (void *)1);
                    MSListAddItem(slist, "OClO", (void *)7);
                    MSListAddItem(slist, "SO2", (void *)2);
                }
            MObjectSetForegroundRGB(edit0, 255, 255, 0);
            MObjectSetBackgroundRGB(edit0, 117, 117, 169);

        }

        tb0 = MCreateTableForm(obj, 2);
        MFormSetSpacing(tb0, 1);
        MTableFormShowGrid(tb0);
        MObjectSetResize(tb0, True, True);

        rform0 = MCreateRowForm(tb0);
        MFormSetSpacing(rform0, 1);
        MObjectAlign(rform0, LEFT_ALIGN, TOP_ALIGN);
        MObjectSetBackgroundRGB(rform0, 120, 177, 218);
        MObjectSetResize(rform0, False, True);
        
        for(i=iinf;i<isup;i++)
        {
            sprintf(buff,"%d", i);
            pdoas->lbly[i] = MCreateLabel(rform0, buff, HELV_SMALL);
            MObjectSetShadow(pdoas->lbly[i], WS_SHADOW_IN, 1, 0);
            MObjectSetResize(pdoas->lbly[i], False, False);

        }

        pdoas->drwa[c] = MCreateDrawArea(tb0, 221, 205);
        MObjectAlign(pdoas->drwa[c], LEFT_ALIGN, TOP_ALIGN);
        MObjectSetResize(pdoas->drwa[c], True, True);
//      MDrawAreaSetExposeCallback(pdoas->drwa[c], DOASPlotCB, NULL);



        rform1 = MCreateRowForm(tb0);
        MFormSetSpacing(rform1, 1);
        MObjectAlign(rform1, LEFT_ALIGN, BOTTOM_ALIGN);
        MObjectSetResize(rform1, False, False);


        rform2 = MCreateRowForm(tb0);
        MFormSetSpacing(rform2, 1);
        MObjectAlign(rform2, LEFT_ALIGN, BOTTOM_ALIGN);
        MObjectSetResize(rform2, True, True);


        tb1 = MCreateTableForm(rform2, 10);
        MFormSetSpacing(tb1, 1);
        MTableFormShowGrid(tb1);
        MObjectAlign(tb1, LEFT_ALIGN, BOTTOM_ALIGN);
        MObjectSetBackgroundRGB(tb1, 120, 177, 218);

        
        for(i=iinf;i<isup;i++)
        {
            sprintf(buff,"%d", i);
            pdoas->lblx[i] = MCreateLabel(tb1, buff, HELV_SMALL);
            MObjectSetShadow(pdoas->lblx[i], WS_SHADOW_IN, 1, 0);
            MObjectSetResize(pdoas->lblx[i], False, False);


        }

    }



void LoadIoCB(MOBJECT p, void *od, void *ad)
{


    int c = (int) ad, er =0;
//  int l;
    char buff[32],str[_MAX_PATH] ;
    char fname[128], dirname[128];

    FB_PREFS fbp;
    strcpy (dirname, MGetCurrentDirectory ());
    fname[0] = '\0';
    memset (&fbp, 0, sizeof (fbp));
 
    fbp.change_cwd = True;
    fbp.allow_dir_create = True;
    fbp.allow_dir_rename = True;
    fbp.allow_dir_delete = True;
    fbp.transparent_tree = False;
    fbp.font = HELV_SMALL;
    fbp.button_font = HELV_SMALL;
    //Set Img file
    sprintf(str, "%s\\%s", BIL.DFILEM.HOMEDIRECTORY, "sys\\Tile2.bmp" );
    fbp.bg_image_file =str;
    
    
    switch (c)
    {
        case 0:
            sprintf(buff,"1234");
                er = MFileBrowseExt ("Select Io File", "*.*", fname, dirname, &fbp);
            if(er)
            {
                sprintf(BIL.DFILEM.DBFILENAME,"%s%s",dirname, fname);
                LoadIo(1,BIL.DFILEM.DBFILENAME);
            }
            break;
/*      case 1:
            break;
        case 2:
            BuildLogRatio();
            break;
*/
    }





}


MOBJECT MDCreateDOAS_ProcSh(void)
{

    MOBJECT sh;
    
    MOBJECT _menu000;

    MOBJECT _colform000;
    MOBJECT _rowform002;
    MOBJECT _rowform003;
    MOBJECT _rowform004;
    MOBJECT _rowform005;
    MOBJECT _rowform009;
    MOBJECT _rowform013;
    MOBJECT _rowform017;
    MOBJECT _rowform021;
    MOBJECT _rowform025;
    MOBJECT _rowform029;
    MOBJECT _rowform033;
    MOBJECT _rowform037;


    MOBJECT _tabform000;

    MOBJECT _tablefrm004;
    MOBJECT _tablefrm005;
    MOBJECT _tablefrm014;
    MOBJECT _tablefrm023;


    MOBJECT _label008;
    MOBJECT _label009;
    MOBJECT _label010;
    MOBJECT _label011;
    MOBJECT _label012;
    MOBJECT _label013;
    MOBJECT _label014;
    MOBJECT _label015;
    MOBJECT _label016;
    MOBJECT _label017;
    MOBJECT _label018;
    MOBJECT _label019;
    MOBJECT _label020;
    MOBJECT _label021;
    MOBJECT _label022;
    MOBJECT _label023;

    
    MOBJECT _label174;
    MOBJECT _label175;
    MOBJECT _label176;
    MOBJECT _label177;
    MOBJECT _label178;

    sh = MCreateShell("DOAS Processing", 0);
    MObjectSetBackgroundRGB(sh, 80, 80, 80);

    {
      MOBJECT   pd;
      MENU_ITEM item;

      _menu000 = MCreateMenuBar(sh, HELV_SMALL);
      MMenuBarSetAcc(_menu000, F10);
      pd = MCreateMenu(_menu000, "File");
      item = MMenuAddItem(pd, "Load...", NULL, NULL);

      item = MMenuAddItem(pd, "Exit", (MENU_ITEM_CB) CloseMObjCB, (void *) sh);

    

      pd = MCreateMenu(_menu000, "Analisys");
      item = MMenuAddItem(pd, "Load Io", (MENU_ITEM_CB) LoadIoCB, (void *) 0);
      item = MMenuAddItem(pd, "DOAS Processing", NULL, NULL);
      pd = MCreateMenu(_menu000, "Utility");
      item = MMenuAddItem(pd, "Print", NULL, NULL);
      pd = MCreateMenu(_menu000, "Help");
      item = MMenuAddItem(pd, "Help Topics", NULL, NULL);
      item = MMenuAddItem(pd, "About", NULL, NULL);
    }
    MTopAttach(_menu000, F_ATT_FORM, 1, NULL);
    MLeftAttach(_menu000, F_ATT_FORM, 1, NULL);
    MObjectSetForegroundRGB(_menu000, 255, 255, 0);

    _rowform002 = MCreateRowForm(sh);
    MTopAttach(_rowform002, F_ATT_OBJ, 1, _menu000);
    MObjectAlign(_rowform002, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetBackgroundRGB(_rowform002, 80, 80, 80);
    MObjectSetResize(_rowform002, True, True);

    _tablefrm004 = MCreateTableForm(_rowform002, 7);
    MFormSetSpacing(_tablefrm004, 1);
    MObjectSetBackgroundRGB(_tablefrm004, 80, 80, 80);

    _label008 = MCreateLabel(_tablefrm004, "Measurement Header", HELV_SMALL);
    MObjectSetForegroundRGB(_label008, 255, 255, 0);

    _colform000 = MCreateColForm(_rowform002);
    MFormSetSpacing(_colform000, 1);
    MObjectSetBackgroundRGB(_colform000, 80, 80, 80);
    MObjectSetResize(_colform000, True, True);

    _rowform003 = MCreateRowForm(_colform000);
    MFormSetSpacing(_rowform003, 1);
    MObjectAlign(_rowform003, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetBackgroundRGB(_rowform003, 80, 80, 80);
    MObjectSetResize(_rowform003, False, False);

    _label009 = MCreateLabel(_rowform003, "Incremental\nParameters", HELV_MEDIUM);
    MObjectAlign(_label009, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(_label009, 255, 255, 0);
    MObjectSetBackgroundRGB(_label009, 60, 140, 190);
    MObjectSetTransparency(_label009, 0);
    MObjectSetShadow(_label009, WS_SHADOW_OUT, 1, 0);
    MObjectSetResize(_label009, False, False);

    _tablefrm005 = MCreateTableForm(_rowform003, 1);
    MFormSetSpacing(_tablefrm005, 1);
    MTableFormSetColAlign(_tablefrm005, 0, LEFT_ALIGN);
    MObjectAlign(_tablefrm005, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetBackgroundRGB(_tablefrm005, 80, 80, 80);
    MObjectSetResize(_tablefrm005, False, False);

    _label010 = MCreateLabel(_tablefrm005, "Iteration #:", HELV_SMALL);
    MObjectAlign(_label010, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(_label010, 255, 255, 0);
    MObjectSetResize(_label010, False, False);

    _label011 = MCreateLabel(_tablefrm005, "0", HELV_SMALL);
    MLabelSetAlignment(_label011, RIGHT_ALIGN);
    MObjectAlign(_label011, RIGHT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(_label011, 255, 255, 0);
    MObjectSetBackgroundRGB(_label011, 117, 117, 169);
    MObjectSetTransparency(_label011, 0);
    MObjectSetShadow(_label011, WS_SHADOW_IN, 1, 0);

    _label012 = MCreateLabel(_tablefrm005, "Shift:", HELV_SMALL);
    MObjectAlign(_label012, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(_label012, 255, 255, 0);
    MObjectSetResize(_label012, False, False);

    _label013 = MCreateLabel(_tablefrm005, "+0.0000E+00", HELV_SMALL);
    MObjectSetForegroundRGB(_label013, 255, 255, 0);
    MObjectSetBackgroundRGB(_label013, 117, 117, 169);
    MObjectSetTransparency(_label013, 0);
    MObjectSetShadow(_label013, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(_label013, False, False);

    _label014 = MCreateLabel(_tablefrm005, "Eps.Shift:", HELV_SMALL);
    MObjectAlign(_label014, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(_label014, 255, 255, 0);
    MObjectSetResize(_label014, False, False);

    _label015 = MCreateLabel(_tablefrm005, "+0.0000E+00", HELV_SMALL);
    MObjectSetForegroundRGB(_label015, 255, 255, 0);
    MObjectSetBackgroundRGB(_label015, 117, 117, 169);
    MObjectSetTransparency(_label015, 0);
    MObjectSetShadow(_label015, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(_label015, False, False);

    _label016 = MCreateLabel(_tablefrm005, "Stretch_0:", HELV_SMALL);
    MObjectSetForegroundRGB(_label016, 255, 255, 0);
    MObjectSetResize(_label016, False, False);

    _label017 = MCreateLabel(_tablefrm005, "+0.0000E+00", HELV_SMALL);
    MObjectSetForegroundRGB(_label017, 255, 255, 0);
    MObjectSetBackgroundRGB(_label017, 117, 117, 169);
    MObjectSetTransparency(_label017, 0);
    MObjectSetShadow(_label017, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(_label017, False, False);

    _label018 = MCreateLabel(_tablefrm005, "Eps.Stretch_0:", HELV_SMALL);
    MObjectSetForegroundRGB(_label018, 255, 255, 0);
    MObjectSetResize(_label018, False, False);

    _label019 = MCreateLabel(_tablefrm005, "+0.0000E+00", HELV_SMALL);
    MObjectSetForegroundRGB(_label019, 255, 255, 0);
    MObjectSetBackgroundRGB(_label019, 117, 117, 169);
    MObjectSetTransparency(_label019, 0);
    MObjectSetShadow(_label019, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(_label019, False, False);

    _label020 = MCreateLabel(_tablefrm005, "Stretch_1:", HELV_SMALL);
    MObjectSetForegroundRGB(_label020, 255, 255, 0);
    MObjectSetResize(_label020, False, False);

    _label021 = MCreateLabel(_tablefrm005, "+0.0000E+00", HELV_SMALL);
    MObjectSetForegroundRGB(_label021, 255, 255, 0);
    MObjectSetBackgroundRGB(_label021, 117, 117, 169);
    MObjectSetTransparency(_label021, 0);
    MObjectSetShadow(_label021, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(_label021, False, False);

    _label022 = MCreateLabel(_tablefrm005, "Eps.Stretch_1:", HELV_SMALL);
    MObjectSetForegroundRGB(_label022, 255, 255, 0);
    MObjectSetResize(_label022, False, False);

    _label023 = MCreateLabel(_tablefrm005, "+0.0000E+00", HELV_SMALL);
    MObjectSetForegroundRGB(_label023, 255, 255, 0);
    MObjectSetBackgroundRGB(_label023, 117, 117, 169);
    MObjectSetTransparency(_label023, 0);
    MObjectSetShadow(_label023, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(_label023, False, False);

    _rowform004 = MCreateRowForm(_colform000);
    MFormSetSpacing(_rowform004, 4);
    MObjectSetBackgroundRGB(_rowform004, 197, 197, 144);
    MObjectSetShadow(_rowform004, WS_NONE, 0, 0);
    MObjectSetResize(_rowform004, True, True);

    _tabform000 = MCreateTabbedRowForm(_rowform004, 5, HELV_SMALL);
    MFormSetSpacing(_tabform000, 1);
    MObjectAlign(_tabform000, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(_tabform000, 255, 255, 0);
    MObjectSetBackgroundRGB(_tabform000, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetShadow(_tabform000, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(_tabform000, True, True);

    MPagedFormSetActivePage(_tabform000, 0);


/*-----------------------------------------------------*/
/********   START PLOT SECTION          ******************/

    //graph for Io/Is
    MObjectSetText(_tabform000, "Io_Is");
    
    _rowform005 = MCreateRowForm(_tabform000);
    MFormSetSpacing(_rowform005, 1);
    MObjectAlign(_rowform005, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetFGColorFromParent(_rowform005, False);
    MObjectSetShadow(_rowform005, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(_rowform005, True, True);

        DOAS_Plot(0, PLOTIOIS, _rowform005, "Io -> Blu Line; Is -> Red Line" ,&DOAS);

    MPagedFormSetActivePage(_tabform000, 1);

    
    MObjectSetText(_tabform000, "VarY_DCS");

    _rowform009 = MCreateRowForm(_tabform000);
    MObjectAlign(_rowform009, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetFGColorFromParent(_rowform009, False);
    MObjectSetResize(_rowform009, True, True);

        DOAS_Plot(0, PLOTVARY, _rowform009, "VarY_DCS" ,&DOAS);


    MPagedFormSetActivePage(_tabform000, 2);

    MObjectSetText(_tabform000, "Residual");

    _rowform013 = MCreateRowForm(_tabform000);
    MObjectAlign(_rowform013, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetFGColorFromParent(_rowform013, False);
    MObjectSetResize(_rowform013, True, True);

        DOAS_Plot(0, PLOTRES, _rowform013, "Residual" ,&DOAS);
    

    MPagedFormSetActivePage(_tabform000, 3);

    MObjectSetText(_tabform000, "Slant_SZA");

    _rowform017 = MCreateRowForm(_tabform000);
    MObjectAlign(_rowform017, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetFGColorFromParent(_rowform017, False);
    MObjectSetResize(_rowform017, True, True);

        DOAS_Plot(1, PLOTSLANT, _rowform017, "Slant_SZA" ,&DOAS);

    
    MPagedFormSetActivePage(_tabform000, 4);

    MObjectSetText(_tabform000, "Plot All");
    
    _tablefrm014 = MCreateTableForm(_tabform000, 2);
    MObjectAlign(_tablefrm014, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetFGColorFromParent(_tablefrm014, False);
    MObjectSetResize(_tablefrm014, True, True);

    _rowform021 = MCreateRowForm(_tablefrm014);
    MFormSetSpacing(_rowform021, 1);
    MObjectSetFGColorFromParent(_rowform021, False);
    MObjectSetShadow(_rowform021, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(_rowform021, True, True);


        DOAS_Plot(0, PLOTIOIS_S, _rowform021, "Io -> Blu Line; Is -> Red Line" ,&DOAS);


    _rowform025 = MCreateRowForm(_tablefrm014);
    MObjectSetFGColorFromParent(_rowform025, False);
    MObjectSetShadow(_rowform025, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(_rowform025, True, True);

        DOAS_Plot(0, PLOTVARY_S, _rowform025, "VarY -> Blu Line" ,&DOAS);


    _rowform029 = MCreateRowForm(_tablefrm014);
    MObjectSetFGColorFromParent(_rowform029, False);
    MObjectSetShadow(_rowform029, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(_rowform029, True, True);

        DOAS_Plot(0, PLOTRES_S, _rowform029, "Residual" ,&DOAS);


    _rowform033 = MCreateRowForm(_tablefrm014);
    MObjectSetFGColorFromParent(_rowform033, False);
    MObjectSetShadow(_rowform033, WS_SHADOW_IN, 1, 0);
    MObjectSetResize(_rowform033, True, True);

        DOAS_Plot(1, PLOTSLANT_S, _rowform033, "Slant_SZA" ,&DOAS);
/********   END PLOT SECTION          ******************/
/*-----------------------------------------------------*/
    MPagedFormSetActivePage(_tabform000, 0);

    _rowform037 = MCreateRowForm(_colform000);
    MFormSetSpacing(_rowform037, 1);
    MObjectAlign(_rowform037, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetBackgroundRGB(_rowform037, 80, 80, 80);
    MObjectSetResize(_rowform037, False, False);

    _label174 = MCreateLabel(_rowform037, "Results", HELV_MEDIUM);
    MObjectAlign(_label174, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(_label174, 255, 255, 0);
    MObjectSetBackgroundRGB(_label174, 60, 140, 190);
    MObjectSetTransparency(_label174, 0);
    MObjectSetShadow(_label174, WS_SHADOW_OUT, 1, 0);
    MObjectSetResize(_label174, False, False);

    _tablefrm023 = MCreateTableForm(_rowform037, 2);
    MTableFormSetRowAlign(_tablefrm023, 0, TOP_ALIGN);
    MObjectAlign(_tablefrm023, UNDEF_ALIGN, TOP_ALIGN);
    MObjectSetBackgroundRGB(_tablefrm023, 80, 80, 80);
    MObjectSetResize(_tablefrm023, False, True);

    _label175 = MCreateLabel(_tablefrm023, "SCD_", HELV_SMALL);
    MObjectAlign(_label175, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(_label175, 255, 255, 0);
    MObjectSetResize(_label175, False, True);

    _label176 = MCreateLabel(_tablefrm023, "0.0000E+00", HELV_SMALL);
    MObjectAlign(_label176, RIGHT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(_label176, 255, 255, 0);
    MObjectSetBackgroundRGB(_label176, 117, 117, 169);
    MObjectSetTransparency(_label176, 0);
    MObjectSetShadow(_label176, WS_SHADOW_IN, 1, 0);

    _label177 = MCreateLabel(_tablefrm023, "Err.", HELV_SMALL);
    MObjectSetForegroundRGB(_label177, 255, 255, 0);

    _label178 = MCreateLabel(_tablefrm023, "00.00%", HELV_SMALL);
    MObjectSetForegroundRGB(_label178, 255, 255, 0);
    MObjectSetBackgroundRGB(_label178, 117, 117, 169);
    MObjectSetTransparency(_label178, 0);
    MObjectSetShadow(_label178, WS_SHADOW_IN, 1, 0);


    return sh;
}

void DOASTogButCB(MOBJECT p, MVALUE od, void *ad)
{

    int c, er;
    
    c = (int) ad;

    er = MTButtonGetActivationStatus(p);
    
    if(er)
    {
        MPagedFormSetActivePage(DOAS.WlTabFrm, c);
        
        //MMessageDialog(" ", "Activated","ok", NULL);

    }
    else
        MMessageDialog(" ", "NOT Activated","ok", NULL);

}


void DOAS_SetupPagedForm(int c, struct doas *pdoas)
{

    MOBJECT lbl, rowfrm, tb, rb, tbutt[20];
    int i;
    
    MPagedFormSetActivePage(pdoas->WlTabFrm, c);
    
    rowfrm = MCreateRowForm(pdoas->WlTabFrm);
    MObjectSetBackgroundRGB(rowfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(rowfrm, False, False);
    MObjectAlign(rowfrm, LEFT_ALIGN, TOP_ALIGN);


    lbl = MCreateLabel(rowfrm, "Cross Section", HELV_SMALL);
    MObjectSetForegroundRGB(lbl, 255, 255, 0);
    MObjectSetBackgroundRGB(lbl, 120, 177, 218);
    MObjectSetTransparency(lbl, 0);
    MObjectSetShadow(lbl, WS_SHADOW_OUT, 1, 0);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);

    tb = MCreateTableForm(rowfrm, 2);
    MObjectSetForegroundRGB(tb, 255, 255, 0);
    MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectAlign(tb, LEFT_ALIGN, TOP_ALIGN);

    rb = MCreateRButton(tb, "From File", HELV_SMALL);

    rb = MCreateRButton(tb, "Select", HELV_SMALL);

    tb = MCreateTableForm(rowfrm, 2);
    MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectAlign(tb, LEFT_ALIGN, TOP_ALIGN);

    for (i=0;i<20;i++)
    {
        tbutt[i] = MCreateTButton(tb, " ", HELV_SMALL);
        MObjectSetForegroundRGB(tbutt[i], 255, 255, 0);
        MObjectSetBackgroundRGB(tbutt[i], 117, 117, 169);
        MObjectSetTransparency(tbutt[i], 0);
    }

/*  _tbutton001 = MCreateTButton(_tablefrm025, "Mie", HELV_SMALL);
    MObjectSetForegroundRGB(_tbutton001, 255, 255, 0);
    MObjectSetBackgroundRGB(_tbutton001, 117, 117, 169);
    MObjectSetTransparency(_tbutton001, 0);

    _tbutton002 = MCreateTButton(_tablefrm025, "NO2_220K", HELV_SMALL);
    MObjectSetForegroundRGB(_tbutton002, 255, 255, 0);
    MObjectSetBackgroundRGB(_tbutton002, 117, 117, 169);
    MObjectSetTransparency(_tbutton002, 0);

    _tbutton003 = MCreateTButton(_tablefrm025, "NO2_240K", HELV_SMALL);
    MObjectSetForegroundRGB(_tbutton003, 255, 255, 0);
    MObjectSetBackgroundRGB(_tbutton003, 117, 117, 169);
    MObjectSetTransparency(_tbutton003, 0);

    _tbutton004 = MCreateTButton(_tablefrm025, "NO2_260K", HELV_SMALL);
    MObjectSetForegroundRGB(_tbutton004, 255, 255, 0);
    MObjectSetBackgroundRGB(_tbutton004, 117, 117, 169);
    MObjectSetTransparency(_tbutton004, 0);

    _tbutton005 = MCreateTButton(_tablefrm025, "NO2_293K", HELV_SMALL);
    MObjectSetForegroundRGB(_tbutton005, 255, 255, 0);
    MObjectSetBackgroundRGB(_tbutton005, 117, 117, 169);
    MObjectSetTransparency(_tbutton005, 0);

    _tbutton006 = MCreateTButton(_tablefrm025, "O3_220K", HELV_SMALL);
    MObjectSetForegroundRGB(_tbutton006, 255, 255, 0);
    MObjectSetBackgroundRGB(_tbutton006, 117, 117, 169);
    MObjectSetTransparency(_tbutton006, 0);

    _tbutton007 = MCreateTButton(_tablefrm025, "O3_240K", HELV_SMALL);
    MObjectSetForegroundRGB(_tbutton007, 255, 255, 0);
    MObjectSetBackgroundRGB(_tbutton007, 117, 117, 169);
    MObjectSetTransparency(_tbutton007, 0);

    _tbutton008 = MCreateTButton(_tablefrm025, "O3_260K", HELV_SMALL);
    MObjectSetForegroundRGB(_tbutton008, 255, 255, 0);
    MObjectSetBackgroundRGB(_tbutton008, 117, 117, 169);
    MObjectSetTransparency(_tbutton008, 0);

    _tbutton009 = MCreateTButton(_tablefrm025, "O3_293K", HELV_SMALL);
    MObjectSetForegroundRGB(_tbutton009, 255, 255, 0);
    MObjectSetBackgroundRGB(_tbutton009, 117, 117, 169);
    MObjectSetTransparency(_tbutton009, 0);

    _tbutton010 = MCreateTButton(_tablefrm025, "BrO", HELV_SMALL);
    MObjectSetForegroundRGB(_tbutton010, 255, 255, 0);
    MObjectSetBackgroundRGB(_tbutton010, 117, 117, 169);
    MObjectSetTransparency(_tbutton010, 0);

    _tbutton011 = MCreateTButton(_tablefrm025, "OClO", HELV_SMALL);
    MObjectSetForegroundRGB(_tbutton011, 255, 255, 0);
    MObjectSetBackgroundRGB(_tbutton011, 117, 117, 169);
    MObjectSetTransparency(_tbutton011, 0);

    _tbutton012 = MCreateTButton(_tablefrm025, "SO2", HELV_SMALL);
    MObjectSetForegroundRGB(_tbutton012, 255, 255, 0);
    MObjectSetBackgroundRGB(_tbutton012, 117, 117, 169);
    MObjectSetTransparency(_tbutton012, 0);

    _tbutton013 = MCreateTButton(_tablefrm025, "IO", HELV_SMALL);
    MObjectSetForegroundRGB(_tbutton013, 255, 255, 0);
    MObjectSetBackgroundRGB(_tbutton013, 117, 117, 169);
    MObjectSetTransparency(_tbutton013, 0);

    _tbutton014 = MCreateTButton(_tablefrm025, "O4", HELV_SMALL);
    MObjectSetForegroundRGB(_tbutton014, 255, 255, 0);
    MObjectSetBackgroundRGB(_tbutton014, 117, 117, 169);
    MObjectSetTransparency(_tbutton014, 0);

    _tbutton015 = MCreateTButton(_tablefrm025, "H2CO", HELV_SMALL);
    MObjectSetForegroundRGB(_tbutton015, 255, 255, 0);
    MObjectSetBackgroundRGB(_tbutton015, 117, 117, 169);
    MObjectSetTransparency(_tbutton015, 0);

    _tbutton016 = MCreateTButton(_tablefrm025, "H2O", HELV_SMALL);
    MObjectSetForegroundRGB(_tbutton016, 255, 255, 0);
    MObjectSetBackgroundRGB(_tbutton016, 117, 117, 169);
    MObjectSetTransparency(_tbutton016, 0);

    _tbutton017 = MCreateTButton(_tablefrm025, "Raman", HELV_SMALL);
    MObjectSetForegroundRGB(_tbutton017, 255, 255, 0);
    MObjectSetBackgroundRGB(_tbutton017, 117, 117, 169);
    MObjectSetTransparency(_tbutton017, 0);

    _tbutton018 = MCreateTButton(_tablefrm025, "Polar", HELV_SMALL);
    MObjectSetForegroundRGB(_tbutton018, 255, 255, 0);
    MObjectSetBackgroundRGB(_tbutton018, 117, 117, 169);
    MObjectSetTransparency(_tbutton018, 0);

    _tbutton019 = MCreateTButton(_tablefrm025, "BTX", HELV_SMALL);
    MObjectSetForegroundRGB(_tbutton019, 255, 255, 0);
    MObjectSetBackgroundRGB(_tbutton019, 117, 117, 169);
    MObjectSetTransparency(_tbutton019, 0);
*/

    rowfrm = MCreateRowForm(pdoas->WlTabFrm);
    MObjectSetBackgroundRGB(rowfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(rowfrm, False, False);
    MObjectAlign(rowfrm, LEFT_ALIGN, TOP_ALIGN);


    lbl = MCreateLabel(lbl, "DCS Convolution Method", HELV_SMALL);
    MObjectSetForegroundRGB(lbl, 255, 255, 0);
    MObjectSetBackgroundRGB(lbl, 120, 177, 218);
    MObjectSetTransparency(lbl, 0);
    MObjectSetShadow(lbl, WS_SHADOW_OUT, 1, 0);

    tb = MCreateTableForm(rowfrm, 2);
    MObjectSetForegroundRGB(tb, 255, 255, 0);
    MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectAlign(tb, LEFT_ALIGN, TOP_ALIGN);

    rb = MCreateRButton(tb, "FFT", HELV_SMALL);

    rb = MCreateRButton(tb, "Calc.Function", HELV_SMALL);

    tb = MCreateTableForm(rowfrm, 2);
    MObjectSetForegroundRGB(tb, 255, 255, 0);
    MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectAlign(tb, LEFT_ALIGN, TOP_ALIGN);

    lbl = MCreateLabel(lbl, "FFT Win.", HELV_SMALL);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetResize(lbl, False, False);
/*
    _edit000 = MCreateEdit(_tablefrm027, "", 3, FIXED_MEDIUM);
    MEditSetFilter(_edit000, 260, "");
    MObjectAlign(_edit000, RIGHT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(_edit000, 255, 255, 0);
    MObjectSetBackgroundRGB(_edit000, 117, 117, 169);

    rowfrm = MCreateRowForm(pdoas->WlTabFrm);
    MObjectSetBackgroundRGB(rowfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(rowfrm, False, False);
    MObjectAlign(rowfrm, LEFT_ALIGN, TOP_ALIGN);

    _label182 = MCreateLabel(rowfrm, "Filter Raw Data?", HELV_SMALL);
    MObjectAlign(_label182, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetBackgroundRGB(_label182, 120, 177, 218);
    MObjectSetTransparency(_label182, 0);

    _tablefrm028 = MCreateTableForm(rowfrm, 2);
    MObjectAlign(_tablefrm028, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetBackgroundRGB(_tablefrm028, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    _rbutton008 = MCreateRButton(_tablefrm028, "Yes", HELV_SMALL);

    _rbutton009 = MCreateRButton(_tablefrm028, "No", HELV_SMALL);

    _label183 = MCreateLabel(_tablefrm028, "Filter Win", HELV_SMALL);
    MObjectAlign(_label183, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetResize(_label183, False, False);

    _edit001 = MCreateEdit(_tablefrm028, "", 3, FIXED_SMALL);
    MEditSetFilter(_edit001, 4, "");
    MObjectAlign(_edit001, RIGHT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(_edit001, 255, 255, 0);
    MObjectSetBackgroundRGB(_edit001, 117, 117, 169);

    _tablefrm029 = MCreateTableForm(rowfrm, 2);
    MObjectSetForegroundRGB(_tablefrm029, 255, 255, 0);
    MObjectSetBackgroundRGB(_tablefrm029, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    _label184 = MCreateLabel(_tablefrm029, "Win for Dif", HELV_SMALL);

    _edit002 = MCreateEdit(_tablefrm029, "", 3, FIXED_SMALL);
    MEditSetFilter(_edit002, 4, "");
    MObjectSetForegroundRGB(_edit002, 255, 255, 0);
    MObjectSetBackgroundRGB(_edit002, 117, 117, 169);

    rowfrm = MCreateRowForm(pdoas->WlTabFrm);
    MObjectSetBackgroundRGB(rowfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(rowfrm, False, False);
    MObjectAlign(rowfrm, LEFT_ALIGN, TOP_ALIGN);

    _label185 = MCreateLabel(rowfrm, "Spectral Step [A]", HELV_SMALL);
    MObjectAlign(_label185, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetBackgroundRGB(_label185, 120, 177, 218);
    MObjectSetTransparency(_label185, 0);

    _tablefrm030 = MCreateTableForm(rowfrm, 2);
    MObjectAlign(_tablefrm030, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetBackgroundRGB(_tablefrm030, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    _rbutton010 = MCreateRButton(_tablefrm030, "1", HELV_SMALL);

    _rbutton011 = MCreateRButton(_tablefrm030, "2", HELV_SMALL);

    _rbutton012 = MCreateRButton(_tablefrm030, "3", HELV_SMALL);

    _rbutton013 = MCreateRButton(_tablefrm030, "4", HELV_SMALL);

    _rbutton014 = MCreateRButton(_tablefrm030, "5", HELV_SMALL);

    _rbutton015 = MCreateRButton(_tablefrm030, "10", HELV_SMALL);
*/

}


MOBJECT MDCreateDOAS_SetupSh(void)
{

    MOBJECT sh, pb, colfrm, rowfrm,lbl;
    int i;
    char buff[16];


     

    sh = MCreateShell("DOAS Setup", 0);
    MObjectSetBackgroundRGB(sh, 80, 80, 80);
    MObjectSetResize(sh, True, True);

    colfrm = MCreateColForm(sh);
    MObjectSetBackgroundRGB(colfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectAlign(colfrm, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetResize(colfrm, True, True);

    rowfrm = MCreateRowForm(colfrm);
    MObjectSetBackgroundRGB(rowfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(rowfrm, False, False);
    MObjectAlign(rowfrm, CENTER_ALIGN, TOP_ALIGN);

    lbl = MCreateLabel(rowfrm, "Select the Spectral\nRange to be processed", HELV_SMALL);
    MObjectSetForegroundRGB(lbl, 255, 255, 0);
    MObjectSetBackgroundRGB(lbl, 120, 177, 218);
    MObjectSetTransparency(lbl, 0);
    MObjectSetShadow(lbl, WS_SHADOW_OUT, 1, 0);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);

//  tb = MCreateTableForm(rowfrm, 2);
//  MObjectSetForegroundRGB(tb, 255, 255, 0);
//  MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    for (i=0; i<(sizeof DAS.Gui.PushButt.Wl / sizeof DAS.Gui.PushButt.Wl[0]); i++)
    {
        itoa(wl[i], buff, 10);
        DOAS.WlTogButt[i] = MCreateTButton(rowfrm, buff, HELV_SMALL);
        //DOAS.WlTogButt[i] = MCreateTButton(rowfrm, Wl_Code[i], HELV_SMALL);
        MObjectSetForegroundRGB(DOAS.WlTogButt[i], 255, 255, 0);
//      MObjectSetBackgroundRGB(tbutt, 117, 117, 169);
        MObjectSetTransparency(DOAS.WlTogButt[i], 0);
        MObjectSetResize(DOAS.WlTogButt[i], False, False);
        MObjectAlign(DOAS.WlTogButt[i], CENTER_ALIGN, TOP_ALIGN);
        MTButtonSetCallback(DOAS.WlTogButt[i], (OBJ_VALUE_CB) DOASTogButCB, (void *) i);
    }

    rowfrm = MCreateRowForm(colfrm);
    MObjectSetBackgroundRGB(rowfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(rowfrm, True, True);
    MObjectAlign(rowfrm, LEFT_ALIGN, TOP_ALIGN);


    DOAS.WlTabFrm = MCreateTabbedColForm(rowfrm, sizeof DAS.Gui.PushButt.Wl / sizeof DAS.Gui.PushButt.Wl[0], FIXED_SMALL);
    MObjectSetForegroundRGB(DOAS.WlTabFrm, 255, 255, 255);
    MObjectSetBackgroundRGB(DOAS.WlTabFrm, 96, 132, 152);
    MObjectSetCompositeWidth(DOAS.WlTabFrm, 800);
    MObjectSetResize(DOAS.WlTabFrm, False, True);
    MObjectAlign(DOAS.WlTabFrm, LEFT_ALIGN, TOP_ALIGN);


    for (i=0; i<(sizeof DAS.Gui.PushButt.Wl / sizeof DAS.Gui.PushButt.Wl[0]); i++)
    {
        MPagedFormSetActivePage(DOAS.WlTabFrm, i);
        itoa(wl[i], buff, 10);
        //MObjectSetText(DOAS.WlTabFrm, Wl_Code[i]);
        MObjectSetText(DOAS.WlTabFrm, buff);
        MObjectSetBackgroundRGB(DOAS.WlTabFrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);


        DOAS_SetupPagedForm(i, &DOAS);

    }
        /*  Start Activation and creation of page 0   0000000000000*/
        /* 00000000000000000000000000000000000000000000000000000000*/    

    


    colfrm = MCreateColForm(sh);
    MObjectSetBackgroundRGB(colfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectAlign(colfrm, LEFT_ALIGN, TOP_ALIGN);

    pb = MCreatePButton(colfrm, "Apply", HELV_SMALL);
    MObjectSetForegroundRGB(pb, 255, 255, 0);
    MObjectSetBackgroundRGB(pb, 124, 173, 71);

    pb = MCreatePButton(colfrm, "Store", HELV_SMALL);
    MObjectSetForegroundRGB(pb, 255, 255, 0);
    MObjectSetBackgroundRGB(pb, 124, 173, 71);

    pb = MCreatePButton(colfrm, "Cancel", HELV_SMALL);
    MPButtonSetCallback(pb, CloseMObjCB, (void *) sh);
    MObjectSetForegroundRGB(pb, 255, 255, 0);
    MObjectSetBackgroundRGB(pb, 124, 173, 71);


    return sh;
}