CreateForms.c File Reference

DAS GUI Creation. More...

#include <windows.h>
#include <stdio.h>
#include <io.h>
#include <fcntl.h>
#include <sys/stat.h>
#include <stdlib.h>
#include <string.h>
#include <conio.h>
#include <direct.h>
#include <ctype.h>
#include <math.h>
#include "mgui.h"
#include "dscud.h"
#include "DAS_Spatram.h"
#include "dcl.h"
#include "dil.h"
#include "wsc.h"
#include "dxl.h"
#include "bil.h"
#include "DOAS.h"
#include "portio32.h"

Include dependency graph for CreateForms.c:

Go to the source code of this file.

Functions
void	ActMvAzimCB (MOBJECT edit, char *text, void *ed)
void	ActMvAzimDegCB (MOBJECT edit, char *text, void *ed)
void	ActMvGratCB (MOBJECT edit, char *text, void *ed)
	Move Grating of a free steps number callback. . More...
void	ActMvZenCB (MOBJECT edit, char *text, void *ed)
void	ActMvZenDegCB (MOBJECT edit, char *text, void *ed)
void	CloseShCB (MOBJECT p, void *od, void *ad)
void	D_XProfile (void)
void	D_YProfile (void)
int	DB_Ask (char *tit, char *bmp, char *label, char *pre, int len, char *pbtype)
	Input Shell Create an input box. More...
void	DB_Ask_SheelESC (MOBJECT obj, MKeyEvent *pe, void *a_data)
	Input Shell Callback Callback for the Input Shell destruction at the pression of the ESC key. More...
void	DB_AskCB (MOBJECT p, void *od, void *ad)
	Input Shell Callback Callback for the Input Shell. More...
void	DB_ChooseButtons (int w)
void	DB_Close_Sh (MOBJECT p, void *od, void *ad)
void	DB_CloseAsk (MOBJECT p, void *od, void *ad)
	Input Shell Callback Callback for the Input Shell destruction. More...
void	DB_dirCB (MOBJECT o, void *id, void *a_data)
void	DB_Esc_CB (MOBJECT p, void *od, void *ad)
void	DB_Fil_CB (MOBJECT p, void *od, void *ad)
	callback for filter wheel positioning in Filter shell More...
void	DB_FilSelButtKB_CB (MOBJECT obj, MKeyEvent *pe, void *a_data)
	callback for select a specified filter push button with the keyboard More...
void	DB_FilSelButtMouse_CB (MOBJECT obj, MMouseEvent *pe, void *a_data)
	callback changing the bakground color of the push button passing the mouse over it More...
int	DB_FindChar (int mod, char *string, int ch)
void	DB_GratPosMode_CB (MOBJECT o, void *a, void *v)
void	DB_Home_CB (MOBJECT p, void *od, void *ad)
void	DB_HomeSelButtKB_CB (MOBJECT obj, MKeyEvent *pe, void *a_data)
void	DB_HomeSelButtMouse_CB (MOBJECT obj, MMouseEvent *pe, void *a_data)
void	DB_HorComm_CB (MOBJECT p, void *od, void *ad)
void	DB_KB_ButtonActive (int mod)
	Enable/Disable Push buttons on the Control Panel. More...
void	DB_KeyB_CB (MOBJECT p, void *od, void *ad)
	Push buttons callback . More...
void	DB_KeyComSelButtKB_CB (MOBJECT obj, MKeyEvent *pe, void *a_data)
	callback for selsct a specified push button with the keyboard More...
void	DB_KeyComSelButtMouse_CB (MOBJECT obj, MMouseEvent *pe, void *a_data)
	callback for selsct a specified push button with the keyboard More...
void	DB_LampSelButtMouse_CB (MOBJECT obj, MMouseEvent *pe, void *a_data)
	callback for selsct a specified push button with the keyboard More...
void	DB_Mir_CB (MOBJECT p, void *od, void *ad)
	callback for input mirror positioning in Mirror shell More...
void	DB_MirSelButtKB_CB (MOBJECT obj, MKeyEvent *pe, void *a_data)
	callback for selsct a specified mirror push button with the keyboard More...
void	DB_MirSelButtMouse_CB (MOBJECT obj, MMouseEvent *pe, void *a_data)
	callback changing the bakground color of the push button passing the mouse over it More...
void	DB_NDFil_CB (MOBJECT p, void *od, void *ad)
	callback for filter wheel positioning in Filter shell More...
void	DB_NDFilSelButtKB_CB (MOBJECT obj, MKeyEvent *pe, void *a_data)
	callback for select a specified filter push button with the keyboard More...
void	DB_NDFilSelButtMouse_CB (MOBJECT obj, MMouseEvent *pe, void *a_data)
	callback changing the bakground color of the push button passing the mouse over it More...
void	DB_PasWd (void)
void	DB_Pause (void)
void	DB_PushButtonMouse (int mod, int event, MOBJECT obj, struct pbutt *ppbutt)
void	DB_PushButtonMouse_CB (MOBJECT obj, MMouseEvent *pe, void *a_data)
void	DB_RecGio_CB (MOBJECT o, void *a, void *v)
void	DB_Redraw_CB (MOBJECT obj, MMouseEvent *pe, void *a_data)
void	DB_SheelESC (MOBJECT obj, MKeyEvent *pe, void *a_data)
void	DB_StepGratEnc_CB (MOBJECT o, void *a, void *v)
void	DB_Tools ()
void	DB_ToolsKeyB_CB (MOBJECT p, void *od, void *ad)
void	DB_Wl_CB (MOBJECT p, void *od, void *ad)
	callback for grating positioning in Wavelength shell More...
void	DB_WlSelButtKB_CB (MOBJECT obj, MKeyEvent *pe, void *a_data)
	callback for selsct a specified wavelength push button with the keyboard More...
void	DB_WlSelButtMouse_CB (MOBJECT obj, MMouseEvent *pe, void *a_data)
	callback changing the bakground color of the push button passing the mouse over it More...
void	DB_WriteMode (int mod)
void	DT_ShutterCB (MOBJECT p, void *od, void *ad)
void	ExecSimPosCB (MOBJECT p, void *od, void *ad)
void	FrmBuildTemperature (MOBJECT pf)
void	ListTargetCB (MOBJECT p, LIST_ACT *la, void *ad)
MOBJECT	MDCreate_CP (void)
	Create Spectrometer Control Panel. Procedure that build the Control Panel for checking the spectrometer operations such as temperature monitoring, stepper motor positioning, data acquisition ... More...
MOBJECT	MDCreateHorMeas (void)
void	MDCreateMoveAzim (void)
void	MDCreateMoveAzimDeg (void)
void	MDCreateMoveGrat (void)
	Free Grating positioning. Procedure that build the shell for Free Grating positioning. More...
void	MDCreateMoveZen (void)
void	MDCreateMoveZenAzimDeg (void)
void	MDCreateMoveZenDeg (void)
int	MDCreateSh_Fil (void)
	Create the shell for the available Filters. Procedure that build the shell for the positioning of the filter wheel. They are installed during the instrument setup. More...
int	MDCreateSh_Home (void)
int	MDCreateSh_Mir (void)
	Create the shell for the available Mirror Positions. Procedure that build the shell for the positioning of the Input Mirror. They are: 1) Zenith 2) Horizontal Right 3) Calibra (Down for the calibration sphere) 4) Horizontal Left. More...
int	MDCreateSh_NDFil (void)
int	MDCreateSh_SimPos (void)
int	MDCreateSh_Wl (void)
	Create the shell for the available Wavelength. Procedure that build the shell for the availables wavelength. They are fixed and setted during the testing phase. More...
float	MIGEAz (float p)
float	MIGEZen (float p)
void	MIGEZenAzPos_CB (MOBJECT o, void *a, void *v)
void	PopUpAdvCal_CB (MOBJECT obj, void *item, void *data)
void	PupAdvCal_CB (MOBJECT obj, MEvent *pe, void *pdown)
void	ShutCB (MOBJECT p, void *od, void *ad)
void	ShutDOWN (void)
	Creates shell for Shutting down the instrument . More...
void	SimPosShClose_CB (MOBJECT p, void *od, void *ad)
void	StepperPagForm (int p, int q)

Variables
MTFont	alfont
char *	AskBuff
static int	AskFlg =0
AzimuthSt	AST
bil	BIL
config	Cfg
int	Com
MOBJECT	CP_Sh
das	DAS
ccd	DC_CCD
ptf	DC_HP
int	DefPWD_OK = 0
d_geo	DGEO
dil	DIL
palette	DPAL
dpwd	DPWD
DSCB	dscb
DXL_par	DXL
const char *	FilBuff
static int	FilFlg =0
int	FilSet = 0
	filter wheel position definition - for SD_FilterW More...
flag	FLAG
MTFont	font
static int	GratFlg =0
int	GrDIR
GratingSt	GRS
char *	HomeBuff
static int	HomeFlg =0
MENU_ITEM	item_advc
const char *	MirBuff
static int	MirFlg =0
int	MirSet = 0
	mirror position definition - for SD_Mirror More...
const char *	NDFilBuff
static int	NDFilFlg =0
int	NDFilSet = 0
	ND filter wheel position definition - for SD_NDFilterW. More...
MTFont	newfont
char	NFileNameF [_MAX_PATH]
int	NumRip
paramini	PARAM
MTFont	plfont
MOBJECT	popup_advcalib
char	PrgFile [16]
	Name of the PRG file. More...
MOBJECT	sdsh
MOBJECT	shell_1
long	STEPS
tools	TOOLS
char *	WlBuff
static int	WlFlg =0
static	XProfOn = 0
static	YProfOn = 0
ZenithSt	ZST

Detailed Description

DAS GUI Creation.

Author

Daniele Bortoli

Definition in file CreateForms.c.

Function Documentation

ActMvAzimCB()

void ActMvAzimCB	(	MOBJECT	edit,
		char *	text,
		void *	ed
	)

Definition at line 3067 of file CreateForms.c.

References stepm::Addr, controlpanel::Albl_LS, AMS3, gui::ContrPanel, DB_StepMotor(), False, GratFlg, GrDIR, das::Gui, controlpanel::LedSM, MEditSetTextExt(), MObjectSetText(), MPixmapSetImageFile(), stepm::SM_B, SMfraz(), stepm::step, and das::StepM.

Referenced by MDCreateMoveAzim().

{
    static int notify;
    long x, dp = 500;
    char buf[32];
    int er = 0, id;
    float k;
    long period = 5000;

    id = DAS.StepM.Addr[AMS3];

    k = SMfraz(DAS.StepM.step[id][DAS.StepM.SM_B]);

    x = (long) atoi(text);// * (long) 4; //c'era un * k, 4 e' la riduzione;

//      if(GrDIR == 0)   //si va verso l'UV
//      {
//          x += dp;  // add fixed step number for backlash recovery 
//      }
        if(x)
        {       
            er = DB_StepMotor(AMS3, 5, x, GrDIR);
            if (er)
            {
                MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[id][DAS.StepM.SM_B], "SYS\\ledGreen.bmp");
                sprintf(buf, "%s", "Done");
                MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[5], buf);
            }
        }

        //Se ci si e' mossi verso l'UV si fa il recupero del gioco

//      if(GrDIR == 0)       // faccio recupero gioco
//      {
//          er = DB_StepMotor(AMS3, 5, dp, 1);
//          if (er)
//          {
//              MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[id][DAS.StepM.SM_B], "SYS\\ledGreen.bmp");     
//              sprintf(buf, "%s", "Done");
//              MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[5], buf);
//          }
//      }
//  }
        GratFlg = 1;
        sprintf(text, "", "");
        notify ^= 1;
        MEditSetTextExt((MOBJECT) ed, text, False, notify);
}

Here is the call graph for this function:

Here is the caller graph for this function:

ActMvAzimDegCB()

void ActMvAzimDegCB	(	MOBJECT	edit,
		char *	text,
		void *	ed
	)

Definition at line 3530 of file CreateForms.c.

References False, GratFlg, MEditSetTextExt(), MIGEAz(), and SD_Azimuth().

Referenced by MDCreateMoveAzimDeg().

{
    static int notify;
    float x;
//  char buf[32];
    int er = 0;
    float k;
    long period = 5000;


    x = (float) atof(text);

    k=MIGEAz(x);

    SD_Azimuth(k, x);
    //SD_Azimuth(x, x);
    
    GratFlg = 1;
    sprintf(text, "", "");
    notify ^= 1;
    MEditSetTextExt((MOBJECT) ed, text, False, notify);
}

Here is the call graph for this function:

Here is the caller graph for this function:

ActMvGratCB()

void ActMvGratCB	(	MOBJECT	edit,
		char *	text,
		void *	ed
	)

Move Grating of a free steps number callback.
.

Parameters

edit	Edit MObject where the number of steps are typed
*text	Number of steps

Returns

void

Definition at line 2691 of file CreateForms.c.

References controlpanel::Albl_LS, AMS1, flag::backlashrec, gui::ContrPanel, DB_StepMotor(), GratingSt::dp, False, das::Flag, GratFlg, flag::gratposmode, GrDIR, das::Gui, controlpanel::LedSM, MEditSetTextExt(), MObjectSetText(), MPixmapSetImageFile(), stepm::multiplier, stepm::SM_B, SM_stepr(), stepm::step, flag::stepgratenc, and das::StepM.

Referenced by MDCreateMoveGrat().

{
    static int notify;
    long npt, x, dp = 500;
    char buf[32];
    int er = 0, id;
    float k;
    long period = 5000;

    //id = DAS.StepM.Addr[AMS1];
    id=0;
    
    
    

    if(DAS.Flag.gratposmode  == 0) //Step
    {
        if( DAS.Flag.stepgratenc == 0) // No Parametrization
        {   
            // OLD
            x = (long) atoi(text);
        }
        else
        {
        //  New
            k = (float)SM_stepr(DAS.StepM.step[id][1])/3200;
            npt = (long) atoi(text);
            x = (long)(float) (npt * DAS.StepM.multiplier[id][1] * k);
        }
    }
    else if(DAS.Flag.gratposmode  == 1) //Wl
    {
        k = (float)SM_stepr(DAS.StepM.step[id][1])/3200;
        npt = (long) atoi(text);
        x = (long) (npt * 24.33 *  DAS.StepM.multiplier[id][1] * k); 

    }

    if(x)
    {
        if(DAS.Flag.backlashrec==0) // Perform backlash recovery
        {
            if(GrDIR == 0)
            {
                x += GRS.dp;
            }
            
            er = DB_StepMotor(AMS1, 1, x, GrDIR);
                if (er)
                {
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[id][DAS.StepM.SM_B], "SYS\\ledGreen.bmp");
                    sprintf(buf, "%s", "Done");
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[1], buf);
                }
            //Se ci si e' mossi verso l'UV si fa il recupero del gioco
            if(GrDIR == 0)       // faccio recupero gioco
            {
                er = DB_StepMotor(AMS1, 1, GRS.dp, 1);
                if (er)
                {
                    MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[id][DAS.StepM.SM_B], "SYS\\ledGreen.bmp");     
                    sprintf(buf, "%s", "Done");
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[1], buf);
                }
            }
        }
        else // DO NOT Perform backlash recovery
        {
            er = DB_StepMotor(AMS1, 1, x, GrDIR);
            if (er)
            {
                MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[id][DAS.StepM.SM_B], "SYS\\ledGreen.bmp");
                sprintf(buf, "%s", "Done");
                MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[1], buf);
            }

        }

    }

    
        GratFlg = 1;
        sprintf(text, "", "");
        notify ^= 1;
        MEditSetTextExt((MOBJECT) ed, text, False, notify);
}

Here is the call graph for this function:

Here is the caller graph for this function:

ActMvZenCB()

void ActMvZenCB	(	MOBJECT	edit,
		char *	text,
		void *	ed
	)

Definition at line 3116 of file CreateForms.c.

References stepm::Addr, controlpanel::Albl_LS, AMS3, gui::ContrPanel, DB_StepMotor(), False, GratFlg, GrDIR, das::Gui, controlpanel::LedSM, MEditSetTextExt(), MObjectSetText(), MPixmapSetImageFile(), stepm::SM_A, SMfraz(), stepm::step, and das::StepM.

Referenced by MDCreateMoveZen().

{
    static int notify;
    long x, dp = 500;
    char buf[32];
    int er = 0, id;
    float k;
    long period = 5000;

    id = DAS.StepM.Addr[AMS3];

    k = SMfraz(DAS.StepM.step[id][DAS.StepM.SM_A]);


//  k = SMfraz(DAS.StepM.step[4]);

    x = (long) atoi(text);// * (long) 4; //c'era un * k, 4 e' la riduzione;

//      if(GrDIR == 0)   //si va verso l'UV
//      {
//          x += dp;  // add fixed step number for backlash recovery 
//      }

        if(x)
        {
            
            er = DB_StepMotor(AMS3, 4, x, GrDIR);
            if (er)
            {
                MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[id][DAS.StepM.SM_A], "SYS\\ledGreen.bmp");
                sprintf(buf, "%s", "Done");
                MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[4], buf);
            }
        }

        //Se ci si e' mossi verso l'UV si fa il recupero del gioco

/*      if(GrDIR == 0)       // faccio recupero gioco
        {
            er = DB_StepMotor(AMS3, 4, dp, 1);
            if (er)
            {
                MPixmapSetImageFile(DAS.Gui.ContrPanel.LedSM[id][DAS.StepM.SM_A], "SYS\\ledGreen.bmp");     
                sprintf(buf, "%s", "Done");
                MObjectSetText(DAS.Gui.ContrPanel.Albl_LS[4], buf);
            }
        }
*/
//  }
        GratFlg = 1;
        sprintf(text, "", "");
        notify ^= 1;
        MEditSetTextExt((MOBJECT) ed, text, False, notify);
}

Here is the call graph for this function:

Here is the caller graph for this function:

ActMvZenDegCB()

void ActMvZenDegCB	(	MOBJECT	edit,
		char *	text,
		void *	ed
	)

Definition at line 3172 of file CreateForms.c.

References False, GratFlg, MEditSetTextExt(), and SD_Zenith().

Referenced by MDCreateMoveZenDeg().

{
    static int notify;
    float x;
//  char buf[32];
    int er = 0;
//  float k;
//  long period = 5000;


    x = (float) atof(text);

    SD_Zenith(x);
    
    GratFlg = 1;
    sprintf(text, "", "");
    notify ^= 1;
    MEditSetTextExt((MOBJECT) ed, text, False, notify);
}

Here is the call graph for this function:

Here is the caller graph for this function:

CloseShCB()

void CloseShCB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Definition at line 4320 of file CreateForms.c.

References MShellDestroy(), and MShellUnrealize().

Referenced by MDCreateSh_SimPos(), ShutCB(), and ShutDOWN().

{
    int     c = (int) ad;

    switch(c)
    {
        case 0:
            MShellUnrealize(p);
            MShellDestroy(p);
            break;
        case 1:     
            MShellUnrealize(p);
            MShellDestroy(p);
            break;
        case 2:     
            MShellUnrealize(p);
            MShellDestroy(p);
            break;
        case 3:     
            MShellUnrealize(p);
            MShellDestroy(p);
            break;
        case 4:     
            MShellUnrealize(p);
            MShellDestroy(p);
            break;

    }

}

Here is the call graph for this function:

Here is the caller graph for this function:

D_XProfile()

void D_XProfile

(

void

)

Definition at line 2656 of file CreateForms.c.

References das::Gui, dil::Img, pushbutt::KeyB, MObjectSetText(), image::Prof, gui::PushButt, Server, and XProfOn.

Referenced by DB_KeyB_CB().

{
    
    if (XProfOn == 0)
    {
        XProfOn = 1;
        DIL.Img.Prof[Server]=2;
        MObjectSetText(DAS.Gui.PushButt.KeyB[22], "P X On");
    }
    else
    {
        XProfOn = 0;
        DIL.Img.Prof[Server]=0;
        MObjectSetText(DAS.Gui.PushButt.KeyB[22], "P X Off");
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

D_YProfile()

void D_YProfile

(

void

)

Definition at line 2638 of file CreateForms.c.

References das::Gui, dil::Img, pushbutt::KeyB, MObjectSetText(), image::Prof, gui::PushButt, Server, and YProfOn.

Referenced by DB_KeyB_CB().

{
    if (YProfOn == 0)
    {
        YProfOn = 1;
        DIL.Img.Prof[Server]=1;
        MObjectSetText(DAS.Gui.PushButt.KeyB[23], "P Y On");
    }
    else
    {
        YProfOn = 0;
        DIL.Img.Prof[Server]=0;
        MObjectSetText(DAS.Gui.PushButt.KeyB[23], "P Y Off");
    }
    
}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_Ask()

int DB_Ask	(	char *	tit,
		char *	bmp,
		char *	label,
		char *	pre,
		int	len,
		char *	pbtype
	)

Input Shell Create an input box.

Returns

int

Definition at line 5373 of file CreateForms.c.

References AskBuff, AskFlg, CENTER_ALIGN, DB_AskCB(), palette::DB_BG, palette::DB_BG_Plbl, DB_CloseAsk(), palette::DB_FG_Plbl, palette::DB_UnSel, F_ATT_NONE, False, FIXED_SMALL, HELV_SMALL, lbl, MBottomAttach(), MCreateClippedEdit(), MCreateColForm(), MCreateEdit(), MCreateLabel(), MCreatePButton(), MCreatePixmapFromFile(), MCreateRowForm(), MCreateShell(), MCreateTableForm(), MEditSetActCallback(), MLabelSetAlignment(), MLoopWhileFlag(), MObjectAlign(), MObjectSetBackgroundRGB(), MObjectSetCompositeWidth(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetShadow(), MPButtonSetCallback(), MShellDestroy(), MShellRealizeXY(), MShellSetWMCloseCallback(), MShellUnrealize(), SF_MODAL, TOP_ALIGN, True, UNDEF_ALIGN, WS_ETCHED_OUT, and WS_NONE.

Referenced by DB_HorComm_CB(), and DB_KeyB_CB().

{
    
    MOBJECT _shell005;
    MOBJECT _rowform005;
    MOBJECT _colform005;
    MOBJECT _tablefrm005;
    MOBJECT pbut;
    MOBJECT edt;
    MOBJECT pix;
    MOBJECT lbl;

    int     er = 0;

    AskBuff = pre;


    _shell005 = MCreateShell(tit, SF_MODAL);
    MObjectSetBackgroundRGB(_shell005, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    
    _colform005 = MCreateColForm(_shell005);
    MObjectSetBackgroundRGB(_colform005, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetShadow(_colform005, WS_NONE, 0, 0);

    _rowform005 = MCreateRowForm(_colform005);
    MBottomAttach(_rowform005, F_ATT_NONE, 1, NULL);
    MObjectAlign(_rowform005, UNDEF_ALIGN, TOP_ALIGN);
    MObjectSetBackgroundRGB(_rowform005, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetShadow(_rowform005, WS_NONE, 0, 0);
    MObjectSetResize(_rowform005, True, True);


    _tablefrm005 = MCreateTableForm(_rowform005, 2);
    MObjectSetBackgroundRGB(_tablefrm005, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(_tablefrm005, True, False);

    lbl = MCreateLabel(_tablefrm005, label, FIXED_SMALL);
    MLabelSetAlignment(lbl, CENTER_ALIGN);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);

    if(strlen(bmp) > 0)
        pix = MCreatePixmapFromFile(_tablefrm005, bmp);
    
    if(len < 16)
    {   
        edt = MCreateEdit(_tablefrm005, pre, len, FIXED_SMALL);
        MObjectSetForegroundRGB(edt, 255, 255, 255);
        MObjectSetBackgroundRGB(edt, 0, 0, 0);
        MObjectSetShadow(edt, WS_ETCHED_OUT, 2, 1);
        //MObjectSetCompositeWidth(edt, 150);
    
        
    }
    else
    {
        edt = MCreateClippedEdit(_tablefrm005, pre, len, 18, FIXED_SMALL);
        MObjectSetForegroundRGB(edt, 255, 255, 255);
        MObjectSetBackgroundRGB(edt, 0, 0, 0);
        MObjectSetShadow(edt, WS_ETCHED_OUT, 2, 1);
        MObjectSetCompositeWidth(edt, 150);
    }
    
    MEditSetActCallback(edt, (OBJ_STRING_CB) DB_CloseAsk, NULL);
//  MObjectAddEventNotifyCallback(_shell005, (OBJ_EVENT_CB) DB_Ask_SheelESC, EM_KEY_PRESS, NULL);

    
    pbut = MCreatePButton(_colform005, pbtype, HELV_SMALL);
    MPButtonSetCallback(pbut, DB_AskCB, (void *) edt); 
    MObjectSetBackgroundRGB(pbut, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetCompositeWidth(pbut, 90); 
    
    
    
    MShellSetWMCloseCallback(_shell005, DB_CloseAsk, NULL);


    MShellRealizeXY(_shell005, 0, 0);   
    
    AskFlg = 0;
    MLoopWhileFlag(&AskFlg, 0);
    if(AskBuff[0] == 0) er = 1;
    
    MShellUnrealize(_shell005);
    MShellDestroy(_shell005);
//  MShellRaise(LIS.Sh_KeyB);
    return er;
}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_Ask_SheelESC()

void DB_Ask_SheelESC	(	MOBJECT	p,
		MKeyEvent *	pe,
		void *	a_data
	)

Input Shell Callback Callback for the Input Shell destruction at the pression of the ESC key.

Returns

int

Definition at line 5496 of file CreateForms.c.

References AskBuff, AskFlg, ESC, and MKeyEvent::keycode.

{

    switch (pe->keycode)
    {
    case ESC:
        {
            AskBuff[0] = 0;
            AskFlg = 1;
        }
    }
}

DB_AskCB()

void DB_AskCB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Input Shell Callback Callback for the Input Shell.

Returns

int

Definition at line 5462 of file CreateForms.c.

References AskBuff, AskFlg, DB_GetCCD(), MObjectGetText(), and TExp.

Referenced by DB_Ask().

{

    char buff[32], tb[32];
    
    MOBJECT c = ad;
    
    MObjectGetText(c, buff);
    
    MObjectGetText(p, tb);

    AskBuff[0] = 0;
    AskFlg = 1;


    sscanf(buff, "%lf", &TExp);
    if(strcmp(tb, "Get Light") == 0)
        DB_GetCCD(1);
    else if(strcmp(tb, "Get Dark") == 0)
        DB_GetCCD(0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_ChooseButtons()

void DB_ChooseButtons

(

int

w

)

Definition at line 2560 of file CreateForms.c.

References DB_KB_ButtonActive(), DBDEMO, HELP, MANUAL, OFFLINEPLOT, PRGFILE, TEMPORIZED, TESTAD, TESTAMS, and TESTCCD.

Referenced by SZA_FirstCalc().

{

    int     c = w;

    switch(c)
    {
        case TEMPORIZED :       
            break;
        case PRGFILE:
            break;
        case TESTAMS:
            //DB_KB_ButtonActive(c);    
            break;
        case OFFLINEPLOT:
            DB_KB_ButtonActive(c);  

            break;
        case TESTCCD:       
            break;
        case HELP:
            break;
        case DBDEMO :       
            break;
        case MANUAL:
            break;
        case TESTAD:
            break;

    }



}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_Close_Sh()

void DB_Close_Sh	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Definition at line 5511 of file CreateForms.c.

References FilBuff, FilFlg, MirBuff, MirFlg, NDFilBuff, NDFilFlg, WlBuff, and WlFlg.

Referenced by MDCreateSh_Fil(), MDCreateSh_Mir(), MDCreateSh_NDFil(), and MDCreateSh_Wl().

{
    int     c = (int) ad;
    switch(c)
    {
        case 0:
        MirBuff = "0";
        MirFlg = 1;
        break;

        case 1:
        WlBuff = "0";
        WlFlg = 1;
        break;

        case 2:
        FilBuff = "0";
        FilFlg = 1;
        break;

        case 3:
        NDFilBuff = "0";
        NDFilFlg = 1;
        break;
        

    }
}

Here is the caller graph for this function:

DB_CloseAsk()

void DB_CloseAsk	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Input Shell Callback Callback for the Input Shell destruction.

Returns

int

Definition at line 5483 of file CreateForms.c.

References AskFlg, MObjectGetText(), and TExp.

Referenced by DB_Ask().

{
    
    char buff[80];
    
    MObjectGetText(p, buff);
    sscanf(buff, "%lf", &TExp);

//  AskBuff[0] = 0;
    AskFlg = 1;
    
}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_dirCB()

void DB_dirCB	(	MOBJECT	o,
		void *	id,
		void *	a_data
	)

Definition at line 2673 of file CreateForms.c.

References GrDIR.

Referenced by MDCreateMoveAzim(), MDCreateMoveGrat(), and MDCreateMoveZen().

{

    int     c = (int) a_data;

    switch(c)
    {
        case 0 :
            GrDIR = 0;
            break;
        case 1:
            GrDIR = 1;
            break;

    }
}

Here is the caller graph for this function:

DB_Esc_CB()

void DB_Esc_CB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Definition at line 5540 of file CreateForms.c.

References FilBuff, FilFlg, MirBuff, MirFlg, NDFilBuff, NDFilFlg, WlBuff, and WlFlg.

{
    int     c = (int) ad;
    switch(c)
    {
        case 0:
        MirBuff = "0";
        MirFlg = 1;
        break;

        case 1:
        WlBuff = "0";
        WlFlg = 1;
        break;

        case 2:
        FilBuff = "0";
        FilFlg = 1;
        break;

        case 3:
        NDFilBuff = "0";
        NDFilFlg = 1;
        break;

        
    }
}

DB_Fil_CB()

void DB_Fil_CB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

callback for filter wheel positioning in Filter shell

Parameters

p	calling push button MObject
*ad	calling push button number

Definition at line 6120 of file CreateForms.c.

References paramini::EqType, Fil_Code, Fil_Code8H, Fil_CodeNG, Fil_CodeNG1, Fil_CodeTropo, FilBuff, FilFlg, FilSet, GASCODNG1, GASCODNG2, GASCODNG3, GASCODNG4, LIS_, das::Paramini, and TROPOGAS.

Referenced by MDCreateSh_Fil(), and MDCreateSh_NDFil().

{
    int     c = (int) ad;
    
    if(DAS.Paramini.EqType == LIS_)
        FilBuff = Fil_Code8H[c];
    else
    {
        if(DAS.Paramini.EqType == TROPOGAS)
            FilBuff = Fil_CodeTropo[c];
        else if (DAS.Paramini.EqType == GASCODNG2 || DAS.Paramini.EqType == GASCODNG3 || DAS.Paramini.EqType == GASCODNG4)
            FilBuff = Fil_CodeNG[c];
        else if (DAS.Paramini.EqType == GASCODNG1)
                FilBuff = Fil_CodeNG1[c];
        else
            FilBuff = Fil_Code[c];
    }

    FilSet = c;
    FilFlg = 1;
}

Here is the caller graph for this function:

DB_FilSelButtKB_CB()

void DB_FilSelButtKB_CB	(	MOBJECT	obj,
		MKeyEvent *	pe,
		void *	a_data
	)

callback for select a specified filter push button with the keyboard

Definition at line 6166 of file CreateForms.c.

References D_A, palette::DB_Sel, palette::DB_UnSel, pushbutt::Fil, das::Gui, MKeyEvent::keycode, L_A, MObjectSetBackgroundRGB(), gui::PushButt, R_A, and U_A.

Referenced by MDCreateSh_Fil(), and MDCreateSh_NDFil().

{

    int c = (int) a_data;

    switch (pe->keycode)
    {
    case R_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        if (c == (sizeof DAS.Gui.PushButt.Fil / sizeof DAS.Gui.PushButt.Fil[0]) - 1)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[0], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
            break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[c+1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
    case D_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        if (c == (sizeof DAS.Gui.PushButt.Fil / sizeof DAS.Gui.PushButt.Fil[0]) - 1)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[0], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[c+1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }

    case L_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        if (c == 0)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[(sizeof DAS.Gui.PushButt.Fil / sizeof DAS.Gui.PushButt.Fil[0]) - 1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[c-1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
    case U_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        if (c == 0)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[(sizeof DAS.Gui.PushButt.Fil / sizeof DAS.Gui.PushButt.Fil[0]) - 1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[c-1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_FilSelButtMouse_CB()

void DB_FilSelButtMouse_CB	(	MOBJECT	obj,
		MMouseEvent *	pe,
		void *	a_data
	)

callback changing the bakground color of the push button passing the mouse over it

Definition at line 6144 of file CreateForms.c.

References MMouseEvent::button, palette::DB_Sel, palette::DB_UnSel, pushbutt::Fil, das::Gui, MObjectSetBackgroundRGB(), and gui::PushButt.

{

        int c = (int) a_data, i;

    for (i=0; i<(sizeof DAS.Gui.PushButt.Fil / sizeof DAS.Gui.PushButt.Fil[0]); i++)
    {
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    }

    switch (pe->button)
    {

    case (Button1):
            {
            MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
            break;
            }
    }
}

Here is the call graph for this function:

DB_FindChar()

int DB_FindChar	(	int	mod,
		char *	string,
		int	ch
	)

Definition at line 4295 of file CreateForms.c.

References result.

{

    int result;
    char *pdest;

    if (mod) /* Search backward. */
    {
        pdest = strrchr( string, ch );
        result = pdest - string + 1;
        return result;
    }
    else
    {
        pdest = strchr( string, ch );
        result = pdest - string + 1;
        return result;
    }

    return -1;
}

DB_GratPosMode_CB()

void DB_GratPosMode_CB	(	MOBJECT	o,
		void *	a,
		void *	v
	)

Definition at line 2778 of file CreateForms.c.

References gui::ContrPanel, das::Flag, flag::gratposmode, das::Gui, controlpanel::lbl_mvgratmode, MObjectSetSensitive(), MObjectSetText(), MObjectSetUnsensitive(), MRButtonGetActivationStatus(), controlpanel::rbStepGratEnc, and flag::stepgratenc.

Referenced by MDCreateMoveGrat().

{

    int er = 0;
    int c = (int) v;
    

    er = MRButtonGetActivationStatus(o);

    if(er)
    {
        switch (c)
        {
        case 0:
            DAS.Flag.gratposmode = 0; //step
            MObjectSetText(DAS.Gui.ContrPanel.lbl_mvgratmode, "    Steps:"); 
            MObjectSetSensitive(DAS.Gui.ContrPanel.rbStepGratEnc[0]);
            MObjectSetSensitive(DAS.Gui.ContrPanel.rbStepGratEnc[1]);

            break;
        case 1:
            DAS.Flag.gratposmode = 1; //wl
            MObjectSetText(DAS.Gui.ContrPanel.lbl_mvgratmode, "Amstrongs:");
            MObjectSetUnsensitive(DAS.Gui.ContrPanel.rbStepGratEnc[0]);
            MObjectSetUnsensitive(DAS.Gui.ContrPanel.rbStepGratEnc[1]);
            DAS.Flag.stepgratenc = 0; 
                ;
            break;
        }
    }

}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_Home_CB()

void DB_Home_CB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Definition at line 6552 of file CreateForms.c.

References AMS1, AMS2, AMS3, AMS_Default(), AMS_dirfin(), DB_InitAMS(), DB_KB_ButtonActive(), das::Gui, MShellDestroy(), MShellUnrealize(), stepm::power, shells::Sh_Home, gui::Shells, stepm::slope, stepm::SM_A, stepm::SM_B, stepm::speed, stepm::step, and das::StepM.

Referenced by MDCreateSh_Home().

{
    int     c = (int) ad ;
    int er = 0;


    switch (c)
    {
        //Home Mirror
        case 0:
                //Disattiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(0);
            er = DB_InitAMS(AMS1, 2, DAS.StepM.power[AMS1][DAS.StepM.SM_A], 
                DAS.StepM.step[AMS1][DAS.StepM.SM_A], DAS.StepM.slope[AMS1][DAS.StepM.SM_A], 
                DAS.StepM.speed[AMS1][DAS.StepM.SM_A], DAS.StepM.power[AMS1][DAS.StepM.SM_B], 
                DAS.StepM.step[AMS1][DAS.StepM.SM_B], DAS.StepM.slope[AMS1][DAS.StepM.SM_B],
                DAS.StepM.speed[AMS1][DAS.StepM.SM_B]);
            //Attiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(1);
            break;
        //Home Grating
        case 1:
            //Disattiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(0);
            AMS_Default(AMS1);
            er = DB_InitAMS(AMS1, 3, DAS.StepM.power[AMS1][DAS.StepM.SM_A],
                DAS.StepM.step[AMS1][DAS.StepM.SM_A], DAS.StepM.slope[AMS1][DAS.StepM.SM_A],
                DAS.StepM.speed[AMS1][DAS.StepM.SM_A], DAS.StepM.power[AMS1][DAS.StepM.SM_B], 
                DAS.StepM.step[AMS1][DAS.StepM.SM_B], DAS.StepM.slope[AMS1][DAS.StepM.SM_B],
                DAS.StepM.speed[AMS1][DAS.StepM.SM_B]);
            //Attiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(1);
            break;

            //Home Filter Wheel
        case 2:
            //Disattiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(0);
            //HomeFiltersFast();
            AMS_Default(AMS2);
            er = DB_InitAMS(AMS2, 4, DAS.StepM.power[AMS2][DAS.StepM.SM_A], 
                DAS.StepM.step[AMS2][DAS.StepM.SM_A], DAS.StepM.slope[AMS2][DAS.StepM.SM_A], 
                DAS.StepM.speed[AMS2][DAS.StepM.SM_A], DAS.StepM.power[AMS2][DAS.StepM.SM_B], 
                DAS.StepM.step[AMS2][DAS.StepM.SM_B], DAS.StepM.slope[AMS2][DAS.StepM.SM_B], 
                DAS.StepM.speed[AMS2][DAS.StepM.SM_B]);
            //Attiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(1);
            break;

            //Home Neutral density Filter Wheel
        case 3:
            DB_KB_ButtonActive(0);
            AMS_Default(AMS2);
            er = DB_InitAMS(AMS2, 7, DAS.StepM.power[AMS2][DAS.StepM.SM_A], 
                DAS.StepM.step[AMS2][DAS.StepM.SM_A], DAS.StepM.slope[AMS2][DAS.StepM.SM_A], 
                DAS.StepM.speed[AMS2][DAS.StepM.SM_A], DAS.StepM.power[AMS2][DAS.StepM.SM_B], 
                DAS.StepM.step[AMS2][DAS.StepM.SM_B], DAS.StepM.slope[AMS2][DAS.StepM.SM_B], 
                DAS.StepM.speed[AMS2][DAS.StepM.SM_B]);
            //Attiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(1);

            break;
            //Home Zenith
        case 4:
            //Disattiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(0);
            AMS_Default(AMS3);
            er = DB_InitAMS(AMS3, 5, DAS.StepM.power[AMS3][DAS.StepM.SM_A], 
                DAS.StepM.step[AMS3][DAS.StepM.SM_A], DAS.StepM.slope[AMS3][DAS.StepM.SM_A], 
                DAS.StepM.speed[AMS3][DAS.StepM.SM_A], DAS.StepM.power[AMS3][DAS.StepM.SM_B], 
                DAS.StepM.step[AMS3][DAS.StepM.SM_B], DAS.StepM.slope[AMS3][DAS.StepM.SM_B], 
                DAS.StepM.speed[AMS3][DAS.StepM.SM_B]);
            AMS_dirfin(AMS3, 0, 1);
            //Attiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(1);
            break;
            
            //Home Azimuth
        case 5:
            //Disattiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(0);
            AMS_Default(AMS3);
            er = DB_InitAMS(AMS3, 6, DAS.StepM.power[AMS3][DAS.StepM.SM_A], 
                DAS.StepM.step[AMS3][DAS.StepM.SM_A], DAS.StepM.slope[AMS3][DAS.StepM.SM_A], 
                DAS.StepM.speed[AMS3][DAS.StepM.SM_A], DAS.StepM.power[AMS3][DAS.StepM.SM_B], 
                DAS.StepM.step[AMS3][DAS.StepM.SM_B], DAS.StepM.slope[AMS3][DAS.StepM.SM_B], 
                DAS.StepM.speed[AMS3][DAS.StepM.SM_B]);
            //Attiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(1);
            break;
            
            //Close panel
        case 6:
            MShellUnrealize(DAS.Gui.Shells.Sh_Home);
            MShellDestroy(DAS.Gui.Shells.Sh_Home);

                break;





    }

    

}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_HomeSelButtKB_CB()

void DB_HomeSelButtKB_CB	(	MOBJECT	obj,
		MKeyEvent *	pe,
		void *	a_data
	)

Definition at line 6490 of file CreateForms.c.

References D_A, palette::DB_Sel, palette::DB_UnSel, das::Gui, pushbutt::HomePos, MKeyEvent::keycode, L_A, MObjectSetBackgroundRGB(), gui::PushButt, R_A, and U_A.

{

    int c = (int) a_data;

    switch (pe->keycode)
    {
    case R_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.HomePos[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        if (c == (sizeof DAS.Gui.PushButt.HomePos / sizeof DAS.Gui.PushButt.HomePos[0])-1)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.HomePos[0], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
            break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.HomePos[c+1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
    case D_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.HomePos[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        if (c == (sizeof DAS.Gui.PushButt.HomePos / sizeof DAS.Gui.PushButt.HomePos[0])-1)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.HomePos[0], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.HomePos[c+1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }

    case L_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.HomePos[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        if (c == 0)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.HomePos[(sizeof DAS.Gui.PushButt.HomePos / sizeof DAS.Gui.PushButt.HomePos[0])-1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.HomePos[c-1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
    case U_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.HomePos[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        if (c == 0)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.HomePos[(sizeof DAS.Gui.PushButt.HomePos / sizeof DAS.Gui.PushButt.HomePos[0])-1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.HomePos[c-1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
    }
}

Here is the call graph for this function:

DB_HomeSelButtMouse_CB()

void DB_HomeSelButtMouse_CB	(	MOBJECT	obj,
		MMouseEvent *	pe,
		void *	a_data
	)

Definition at line 6468 of file CreateForms.c.

References MMouseEvent::button, palette::DB_Sel, palette::DB_UnSel, das::Gui, pushbutt::HomePos, MObjectSetBackgroundRGB(), and gui::PushButt.

{

        int c = (int) a_data, i;

    for (i=0; i<(sizeof DAS.Gui.PushButt.HomePos / sizeof DAS.Gui.PushButt.HomePos[0]); i++)
    {
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.HomePos[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    }

    switch (pe->button)
    {

    case (Button1):
            {
            MObjectSetBackgroundRGB(DAS.Gui.PushButt.HomePos[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
            break;
            }
    }
}

Here is the call graph for this function:

DB_HorComm_CB()

void DB_HorComm_CB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Definition at line 506 of file CreateForms.c.

References _MAX_PATH, controlpanel::Albl_CS, FB_PREFS::allow_dir_create, FB_PREFS::allow_dir_delete, FB_PREFS::allow_dir_rename, AutoRange(), FB_PREFS::bg_image_file, FB_PREFS::button_font, FB_PREFS::change_cwd, gui::ContrPanel, D_Average(), D_Calibra(), D_Saving(), d_fileman::DATADIRECTORY, DB_Ask(), DB_GetCCD(), DB_KB_ButtonActive(), DB_Save(), d_fileman::DBFILENAME, bil::DFILEM, DI_FindExtName(), DI_Lens(), das::DOption, flag::extlamp, ExtLamp(), ExtShutt(), flag::extshutter, False, optionini::filename, das::Flag, FB_PREFS::font, das::Gui, HELV_SMALL, d_fileman::HOMEDIRECTORY, gui::HorizMeas, horizmeas::lbl, horizmeas::led, flag::manhormeas, MFileBrowseExt(), MMessageDialog(), MObjectSetText(), MPixmapSetImageFile(), MShellDestroy(), MShellUnrealize(), NFileNameF, SaveCnt, optionini::savingmode, horizmeas::shell, TExp, FB_PREFS::transparent_tree, True, and ViewPlot().

Referenced by MDCreateHorMeas().

{
    int     c = (int) ad;
    int er = 0;
    char    buf[_MAX_PATH];
    char    fext[4];

    FB_PREFS fbp;
  
    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(buf, "%s\\%s", BIL.DFILEM.HOMEDIRECTORY, "sys\\Tile2.bmp" );
    fbp.bg_image_file =buf;
    

    switch(c)
    {
        // External Lamp
        case 3:
            ExtLamp(0); 
            if(FLAG.extlamp == 0)
            {
                FLAG.extlamp = 1;
                MObjectSetText(DAS.Gui.HorizMeas.lbl[3], "  ON  ");
                MPixmapSetImageFile(DAS.Gui.HorizMeas.led[0], "SYS\\ledonQJ.bmp"); 


            }
            else
            {
                FLAG.extlamp = 0;
                MObjectSetText(DAS.Gui.HorizMeas.lbl[3], "  OFF   ");
                MPixmapSetImageFile(DAS.Gui.HorizMeas.led[0], "SYS\\ledoff.bmp"); 

            }
                    break;

        // External Shutter
        case 4:
            ExtShutt(FLAG.extshutter);  
            if(FLAG.extshutter == 0)
            {
                FLAG.extshutter = 1;
                MObjectSetText(DAS.Gui.HorizMeas.lbl[4], "Close ");
                MPixmapSetImageFile(DAS.Gui.HorizMeas.led[1], "SYS\\ledoff.bmp"); 


            }
            else
            {
                FLAG.extshutter = 0;
                MObjectSetText(DAS.Gui.HorizMeas.lbl[4], "Open  ");
                MPixmapSetImageFile(DAS.Gui.HorizMeas.led[1], "SYS\\ledonQJ.bmp"); 

            }
            break;              
    
        // Calib
        case 5:
            D_Calibra();
            break;              
    
        //Autoranging
        case 6:
            AutoRange(0);
            break;
        //GetCCD
        case 7:
            sprintf(buf, "%.3lf", TExp);
            er = DB_Ask("DOWNLOAD IMAGE", "", "Time Exposure: ", buf, 6, "Get Light");
            if(er == 0)
                {
                DB_GetCCD(1);
                }
            break;
            //Average
        case 8:
            D_Average(1);
            break;
        //Dark
        case 9:
            strcpy(buf, "1.0");
            er = DB_Ask("DOWNLOAD DARK", "", "Time Exposure: ", buf, 6, "Get Dark");
            if(er == 0)
                {
                DB_GetCCD(0);
                }
            break;

        //Save CCD Data
        case 10:

            if(DAS.DOption.filename)  // Automatic file Names
            {
                D_Saving();
            }
            else            // free choice
            {   
                if(DAS.DOption.savingmode)
                    er = MFileBrowseExt ("Save File as...", "*.bif", NFileNameF, BIL.DFILEM.DATADIRECTORY, &fbp);
                else
                    er = MFileBrowseExt ("Save File as...", "*.dat", NFileNameF, BIL.DFILEM.DATADIRECTORY, &fbp);
                if(er)
                {
                    //check the presence of the extension
                    DI_FindExtName(NFileNameF, fext);
                    if( strcmp(fext,"") == 0 )
                    {
                        if(DAS.DOption.savingmode)
                            strcat(NFileNameF, ".bif");
                        else
                            strcat(NFileNameF, ".dat");
                    }
                    //check the the extension
                    DI_FindExtName(NFileNameF, fext);
                    if( (strcmp(fext,".dat") == 0) | (strcmp(fext,".Dat") == 0) )
                    {
                        sprintf(BIL.DFILEM.DBFILENAME,"%s%s",BIL.DFILEM.DATADIRECTORY, NFileNameF);
                        DB_Save(BIL.DFILEM.DBFILENAME, 0);
                    }
                    else if( (strcmp(fext,".bif") == 0) | (strcmp(fext,".Bif") == 0) )
                    {
                        sprintf(BIL.DFILEM.DBFILENAME,"%s%s",BIL.DFILEM.DATADIRECTORY, NFileNameF);
                        DB_Save(BIL.DFILEM.DBFILENAME, 1);
                    }
                    else
                    {
                        sprintf(buf, "The extension is not recognaized! Please re-type",fext);
                        MMessageDialog("DAS information", buf, " Ok ", NULL);
                        break;
                    }
                }
        

                sprintf(buf, "%s", NFileNameF );
                MObjectSetText(DAS.Gui.ContrPanel.Albl_CS[3], buf);
                sprintf(buf, "%05d", SaveCnt);
                MObjectSetText(DAS.Gui.ContrPanel.Albl_CS[2], buf);
                SaveCnt++;  

            }
            break;
            
        //On line Plot  
        case 11:
            ViewPlot(1);
            break;
            
        // ZOOM
        case 12:
            DI_Lens();
            break;              
        //Close
        case 13:
            MShellUnrealize(DAS.Gui.HorizMeas.shell);
            MShellDestroy(DAS.Gui.HorizMeas.shell);
            DB_KB_ButtonActive(5);
            DAS.Flag.manhormeas = 0;

            break;


    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_KB_ButtonActive()

void DB_KB_ButtonActive

(

int

mod

)

Enable/Disable Push buttons on the Control Panel.

Parameters

mod	0 –> Disable all buttons 1 –> Enable all buttons 2 –> Enable the buttons for the execution in TEST AMS Mode 3 –> Enable the buttons for the execution in OFFLINEPLOT Mode

Definition at line 3810 of file CreateForms.c.

References paramini::EqType, GASCODNG1, GASCODNG2, GASCODNG3, GASCODNG4, das::Gui, pushbutt::KeyB, mige::linked, LIS_, das::MIGE, MObjectSetSensitive(), MObjectSetUnsensitive(), das::Paramini, gui::PushButt, SPATRAM, SPATRAM2, SPATRAM3, SPATRAMPLUS, and TROPOGAS.

Referenced by ApplyChCB(), DB_ChooseButtons(), DB_Home_CB(), DB_HorComm_CB(), DB_Pause(), E_Home_SM4(), E_Home_SM6(), InitCCD_AMS(), MDCreate_CP(), MDCreateHorMeas(), SD_Azimuth(), SD_FilterW(), SD_Grating(), SD_Mirror(), SD_NDFilterW(), SD_Zenith(), SD_Zenith_H(), and SZA_FirstCalc().

{
    int i;
    int eqtype;
    eqtype = DAS.Paramini.EqType;

    if(mod == 1)
    {
        for (i=0; i < (sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]); i++)
        {
            
            MObjectSetSensitive(DAS.Gui.PushButt.KeyB[i]); // Set all buttons as Sensitive
            if (eqtype == TROPOGAS)
            {

            }
            if (eqtype == SPATRAMPLUS ||
                eqtype == GASCODNG1 ||
                eqtype == GASCODNG2 ||
                eqtype == GASCODNG3 ||
                eqtype == GASCODNG4 ||
                eqtype == SPATRAM2  ||
                eqtype == SPATRAM3)
                if(i==11 )
                    MObjectSetUnsensitive(DAS.Gui.PushButt.KeyB[i]); // Horiz Measur
                if(i==8 || i==9)
                {
                    if(DAS.MIGE.linked == 0)
                    {
                        MObjectSetUnsensitive(DAS.Gui.PushButt.KeyB[i]);
                    //MObjectSetBackgroundRGB(optedit, 192, 192, 192);
                
                    }
                }


            if (DAS.Paramini.EqType == SPATRAM || DAS.Paramini.EqType == LIS_)
            {
                if(i==3 || i==4 || i==8 || i==9 || i==10 || i== 11)
                    MObjectSetUnsensitive(DAS.Gui.PushButt.KeyB[i]);
            }
            //if (DAS.Paramini.EqType == GASCODNG)
            //  if(i==4 || i==5 || i==10 || i== 11)
            //      MObjectSetUnsensitive(DAS.Gui.PushButt.KeyB[i]);

        }
    }
    else if(mod == 0)
    {
        for (i=0; i < (sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]) - 1; i++)
        {

            MObjectSetUnsensitive(DAS.Gui.PushButt.KeyB[i]); // Set all buttons as Unsensitive
        }

    }
    else if(mod == 3) //Case off lineplot
    {
        for (i=0; i < (sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]); i++)
        {

            MObjectSetUnsensitive(DAS.Gui.PushButt.KeyB[i]); // Set all buttons as Unsensitive
        }
        
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[15]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[17]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[22]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[23]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[25]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[26]);

    }

    else if(mod == 2) //Case TEST AMS
    {
        for (i=0; i < (sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]); i++)
        {

            MObjectSetUnsensitive(DAS.Gui.PushButt.KeyB[i]); // Set all buttons as Unensitive
        }
        
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[0]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[1]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[2]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[9]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[10]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[11]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[12]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[13]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[16]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[18]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[19]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[22]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[23]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[25]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[26]);

    }

    else if(mod == 4) //Case Horizontal Measurements (Deactivation)
    {
        
        MObjectSetUnsensitive(DAS.Gui.PushButt.KeyB[0]);
        MObjectSetUnsensitive(DAS.Gui.PushButt.KeyB[1]);
        MObjectSetUnsensitive(DAS.Gui.PushButt.KeyB[2]);
        //MObjectSetUnsensitive(DAS.Gui.PushButt.KeyB[3]);

        for (i=14; i < 22; i++)
        {

            MObjectSetUnsensitive(DAS.Gui.PushButt.KeyB[i]); // Set all buttons as Unensitive
        }


    }

    else if(mod == 5) //Case Horizontal Measurements (Activation)
    {
        
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[0]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[1]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[2]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[3]);

        for (i=14; i < 22; i++)
        {

            MObjectSetSensitive(DAS.Gui.PushButt.KeyB[i]); // Set all buttons as Unensitive
        }


    }


}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_KeyB_CB()

void DB_KeyB_CB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Push buttons callback
.

Parameters

p	calling push button MObject
*ad	calling push button number

Definition at line 4693 of file CreateForms.c.

References _MAX_PATH, AboutCB(), controlpanel::Albl_CS, FB_PREFS::allow_dir_create, FB_PREFS::allow_dir_delete, FB_PREFS::allow_dir_rename, AMS3, AutoRange(), FB_PREFS::bg_image_file, FB_PREFS::button_font, FB_PREFS::change_cwd, ChkDigIO(), ChkWinInstance(), gui::ContrPanel, D_Average(), D_Calibra(), D_Saving(), D_XProfile(), D_YProfile(), d_fileman::DATADIRECTORY, DB_Ask(), DB_GetCCD(), DB_PasWd(), DB_Pause(), DB_Save(), DB_Tools(), d_fileman::DBFILENAME, bil::DFILEM, DI_FindExtName(), DI_Lens(), das::DOption, False, FANECU(), FDOUBLE, optionini::filename, FilSet, optionini::filtertype, FB_PREFS::font, FPLUS, das::Gui, HELV_SMALL, HGFlg, HgLamp(), d_fileman::HOMEDIRECTORY, MDCreateHorMeas(), MDCreateMoveGrat(), MDCreateMoveZenAzimDeg(), MDCreateSh_Fil(), MDCreateSh_Home(), MDCreateSh_Mir(), MDCreateSh_NDFil(), MDCreateSh_SimPos(), MDCreateSh_Wl(), MFileBrowseExt(), MirSet, MMessageDialog(), MObjectSetText(), NDFilSet, NFileNameF, stepm::OOP, QJFlg, QjLamp(), SaveCnt, optionini::savingmode, SD_FilterW(), SD_FNTorqueM(), SD_Grating(), SD_Mirror(), SD_NDFilterW(), shells::Sh_Home, shells::Sh_mg, tools::Sh_Tools, gui::Shells, ShutDOWN(), das::StepM, TExp, TMFlg, FB_PREFS::transparent_tree, True, ViewPlot(), and WlSet.

Referenced by MDCreate_CP(), and MDCreateHorMeas().

{
    int     c = (int) ad;
    int er = 0;
    char    buf[_MAX_PATH];
    char    fext[4];

    FB_PREFS fbp;
  
    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(buf, "%s\\%s", BIL.DFILEM.HOMEDIRECTORY, "sys\\Tile2.bmp" );
    fbp.bg_image_file =buf;
    

    switch(c)
    {
        //Mirror Shell
        case 0 :
            er = MDCreateSh_Mir();
                if(er == 0)
                {
                    SD_Mirror(MirSet);
//                  if(er) Status("Ready");
                }
            break;
        //Wavelwngth Shell  
        case 1:
            er = MDCreateSh_Wl();
                if(er == 0)
                {
                    er = SD_Grating(WlSet);
//                  if(er) Status("Ready");
                }           
            break;
        //Filter Shell
        case 2:
            er = MDCreateSh_Fil();
                if(er == 0)
                {
                    SD_FilterW(FilSet);
//                  if(er) Status("Ready");
                }   
            break;
        // NDFilter shell
        case 3:

            if(DAS.DOption.filtertype == FPLUS )
            {
                if(TMFlg)
                    SD_FNTorqueM(0);
                else
                    SD_FNTorqueM(1);
            }
            if(DAS.DOption.filtertype == FDOUBLE)
            {
                er = MDCreateSh_NDFil();
                    if(er == 0)
                    {
                        SD_NDFilterW(NDFilSet);
//                      if(er) Status("Ready");
                    }
            }
            
            break;              

        // Move Zenith Azimuth of a Free step number
        case 4:
            MDCreateMoveZenAzimDeg();
            break;              
        //Home Mirror
        case 5:
            // Reference position of All devices
            // er = MDCreateSh_Home();
            sprintf(buf, "%s", "SET HOME POSITION");
            er = ChkWinInstance(buf, DAS.Gui.Shells.Sh_Home);
            if (er==0)
                MDCreateSh_Home();
/*

            //Disattiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(0);
            er = DB_InitAMS(AMS1, 2, DAS.StepM.power[AMS1][DAS.StepM.SM_A], 
                DAS.StepM.step[AMS1][DAS.StepM.SM_A], DAS.StepM.slope[AMS1][DAS.StepM.SM_A], 
                DAS.StepM.speed[AMS1][DAS.StepM.SM_A], DAS.StepM.power[AMS1][DAS.StepM.SM_B], 
                DAS.StepM.step[AMS1][DAS.StepM.SM_B], DAS.StepM.slope[AMS1][DAS.StepM.SM_B],
                DAS.StepM.speed[AMS1][DAS.StepM.SM_B]);
            //Attiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(1);
*/
            break;
        //Home Grating
        case 6:

            er = ChkDigIO(DAS.StepM.OOP[AMS3], 1);
            if (er)
            {
                FANECU(0);
            }
            else
            {
                FANECU(1);
            }
            // Setto direzioni finali
            //AMS_dirfin(AMS1, 0, 0);
            // Set default values
            //Disattiva i pulsanti sulla keyboard
        /*  DB_KB_ButtonActive(0);
            AMS_Default(AMS1);
            er = DB_InitAMS(AMS1, 3, DAS.StepM.power[AMS1][DAS.StepM.SM_A],
                DAS.StepM.step[AMS1][DAS.StepM.SM_A], DAS.StepM.slope[AMS1][DAS.StepM.SM_A],
                DAS.StepM.speed[AMS1][DAS.StepM.SM_A], DAS.StepM.power[AMS1][DAS.StepM.SM_B], 
                DAS.StepM.step[AMS1][DAS.StepM.SM_B], DAS.StepM.slope[AMS1][DAS.StepM.SM_B],
                DAS.StepM.speed[AMS1][DAS.StepM.SM_B]);
            //Attiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(1);
            */
            break;

            //Home Filter
        case 7:
            //Disattiva i pulsanti sulla keyboard
            /*
            DB_KB_ButtonActive(0);
            //HomeFiltersFast();
            AMS_Default(AMS2);
            er = DB_InitAMS(AMS2, 4, DAS.StepM.power[AMS2][DAS.StepM.SM_A], 
                DAS.StepM.step[AMS2][DAS.StepM.SM_A], DAS.StepM.slope[AMS2][DAS.StepM.SM_A], 
                DAS.StepM.speed[AMS2][DAS.StepM.SM_A], DAS.StepM.power[AMS2][DAS.StepM.SM_B], 
                DAS.StepM.step[AMS2][DAS.StepM.SM_B], DAS.StepM.slope[AMS2][DAS.StepM.SM_B], 
                DAS.StepM.speed[AMS2][DAS.StepM.SM_B]);
            //Attiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(1);
            */
            break;

            


            //Home Zenith
        case 8:
            /*
            //Disattiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(0);
            AMS_Default(AMS3);
            er = DB_InitAMS(AMS3, 5, DAS.StepM.power[AMS3][DAS.StepM.SM_A], 
                DAS.StepM.step[AMS3][DAS.StepM.SM_A], DAS.StepM.slope[AMS3][DAS.StepM.SM_A], 
                DAS.StepM.speed[AMS3][DAS.StepM.SM_A], DAS.StepM.power[AMS3][DAS.StepM.SM_B], 
                DAS.StepM.step[AMS3][DAS.StepM.SM_B], DAS.StepM.slope[AMS3][DAS.StepM.SM_B], 
                DAS.StepM.speed[AMS3][DAS.StepM.SM_B]);
            AMS_dirfin(AMS3, 0, 1);
            //Attiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(1);
            */
            break;
            
            //Home Azimuth
        case 9:
            /*
            //Disattiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(0);
            AMS_Default(AMS3);
            er = DB_InitAMS(AMS3, 6, DAS.StepM.power[AMS3][DAS.StepM.SM_A], 
                DAS.StepM.step[AMS3][DAS.StepM.SM_A], DAS.StepM.slope[AMS3][DAS.StepM.SM_A], 
                DAS.StepM.speed[AMS3][DAS.StepM.SM_A], DAS.StepM.power[AMS3][DAS.StepM.SM_B], 
                DAS.StepM.step[AMS3][DAS.StepM.SM_B], DAS.StepM.slope[AMS3][DAS.StepM.SM_B], 
                DAS.StepM.speed[AMS3][DAS.StepM.SM_B]);
            //Attiva i pulsanti sulla keyboard
            DB_KB_ButtonActive(1);
            */
            break;
            
            // Spectrometer Devices Simultaneous Positioning
        case 10:
            er = MDCreateSh_SimPos();
            break;
        //Horizontal Measurement shell
        case 11:
            MDCreateHorMeas();
            break;
            
        // Move Grating Free step number
        case 12:
            sprintf(buf, "%s", "MOVE GRATING");
            er = ChkWinInstance(buf, DAS.Gui.Shells.Sh_mg);
            if (er==0)
                MDCreateMoveGrat();
            break;              
        //Configuration Shell
        case 13:
            DB_PasWd();
            break;
        //Calibration
        case 14:
            D_Calibra();
            break;
        //AutoRange
        case 15:
            AutoRange(0);
            break;
        //Get CCD
        case 16:
            sprintf(buf, "%.3lf", TExp);
            er = DB_Ask("DOWNLOAD IMAGE", "", "Time Exposure: ", buf, 6, "Get Light");
            
            if(er == 0)
                {
            //  sscanf(buf, "%lf", &TExp);
                DB_GetCCD(1);
            //  save_imgASCII(filedati, 1);
                }
            break;
        //Averaging
        case 17: 
            D_Average(1);
            break;
        //Dark
        case 18:
            //strcpy(buf, "0.000");
            sprintf(buf, "%.3lf", TExp);
            er = DB_Ask("DOWNLOAD DARK", "", "Time Exposure: ", buf, 6, "Get Dark");
            if(er == 0)
                {
            //  sscanf(buf, "%lf", &TExp);
                DB_GetCCD(0);
                }
            break;
        //Save CCD Data
        case 19:

            if(DAS.DOption.filename)  // Automatic file Names
            {
                D_Saving();
            }
            else            // free choice
            {   
                if(DAS.DOption.savingmode)
                    er = MFileBrowseExt ("Save File as...", "*.bif", NFileNameF, BIL.DFILEM.DATADIRECTORY, &fbp);
                else
                    er = MFileBrowseExt ("Save File as...", "*.dat", NFileNameF, BIL.DFILEM.DATADIRECTORY, &fbp);
                if(er)
                {
                    //check the presence of the extension
                    DI_FindExtName(NFileNameF, fext);
                    if( strcmp(fext,"") == 0 )
                    {
                        if(DAS.DOption.savingmode)
                            strcat(NFileNameF, ".bif");
                        else
                            strcat(NFileNameF, ".dat");
                    }
                    //check the the extension
                    DI_FindExtName(NFileNameF, fext);
                    if( (strcmp(fext,".dat") == 0) | (strcmp(fext,".Dat") == 0) )
                    {
                        sprintf(BIL.DFILEM.DBFILENAME,"%s%s",BIL.DFILEM.DATADIRECTORY, NFileNameF);
                        DB_Save(BIL.DFILEM.DBFILENAME, 0);
                    }
                    else if( (strcmp(fext,".bif") == 0) | (strcmp(fext,".Bif") == 0) )
                    {
                        sprintf(BIL.DFILEM.DBFILENAME,"%s%s",BIL.DFILEM.DATADIRECTORY, NFileNameF);
                        DB_Save(BIL.DFILEM.DBFILENAME, 1);
                    }
                    else
                    {
                        sprintf(buf, "The extension is not recognaized! Please re-type",fext);
                        MMessageDialog("DAS information", buf, " Ok ", NULL);
                        break;
                    }
                }
        

                sprintf(buf, "%s", NFileNameF );
                MObjectSetText(DAS.Gui.ContrPanel.Albl_CS[3], buf);
                sprintf(buf, "%05d", SaveCnt);
                MObjectSetText(DAS.Gui.ContrPanel.Albl_CS[2], buf);
                SaveCnt++;  

            }                   
            break;

        
        case 20:
            //On line Plot
            ViewPlot(1);
            break;


        case 21:
            DI_Lens();
            break;
        //Profiling X Axis  
        case 22:
            D_XProfile();
            break;
        //Profiling Y Axis  
        case 23:
            D_YProfile();;
            break;
        //Configuration Shell
        //About Shell
        case 24:
            AboutCB(NULL, NULL, 0);
            break;
        //Pause shell
        case 25:
            DB_Pause();
            break;
        //Tools shell
        case 26:
            sprintf(buf, "%s", "DAS TOOLS");
            er = ChkWinInstance(buf, TOOLS.Sh_Tools);
            if (er==0)
                DB_Tools();
            break;
        //Quit shell
        case 27:
            ShutDOWN();
            break;
        //HG Lamp
        case 100:
            if(HGFlg)
                HgLamp(0);
            else
                HgLamp(1);
            break;
        //Qj Lamp
        case 111:
            if(QJFlg)
                QjLamp(0);
            else
                QjLamp(1);
            break;



    }
}

Here is the caller graph for this function:

DB_KeyComSelButtKB_CB()

void DB_KeyComSelButtKB_CB	(	MOBJECT	obj,
		MKeyEvent *	pe,
		void *	a_data
	)

callback for selsct a specified push button with the keyboard

Definition at line 5152 of file CreateForms.c.

References gui::ContrPanel, D_A, palette::DB_Sel, palette::DB_UnSel, palette::DB_UnSelFG, ESC, F1, F10, F11, F12, F2, F3, F5, F6, F7, F8, F9, das::Gui, pushbutt::KeyB, MKeyEvent::keycode, L_A, MObjectSetBackgroundRGB(), MObjectSetForegroundRGB(), MSelectObject(), controlpanel::pblamps, gui::PushButt, R_A, and U_A.

Referenced by MDCreate_CP().

{

    int c = (int) a_data, i;


    switch (pe->keycode)
    {
    case R_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        MObjectSetForegroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
        if (c == (sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]) - 1)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[0], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                MObjectSetForegroundRGB(DAS.Gui.PushButt.KeyB[0], ~DPAL.DB_Sel[0], ~DPAL.DB_Sel[1], ~DPAL.DB_Sel[2]);
                break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c + 1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                MObjectSetForegroundRGB(DAS.Gui.PushButt.KeyB[c + 1], ~DPAL.DB_Sel[0], ~DPAL.DB_Sel[1], ~DPAL.DB_Sel[2]);
                break;
            }
    case D_A:
//          MObjectSetBackgroundRGB(obj, DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
//          MObjectSetForegroundRGB(obj, 255 ,0,0);
            
            for (i=0; i<(sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]); i++)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
                MObjectSetForegroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
                if (i == c + 1)
                {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                MObjectSetForegroundRGB(DAS.Gui.PushButt.KeyB[i], 255,0,0);
                MSelectObject(obj);
                }
    
        
            }
            MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.pblamps[1], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.pblamps[0], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            break;
/*      MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        MObjectSetForegroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
        if (c == (sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]) - 1)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[0], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                MObjectSetForegroundRGB(DAS.Gui.PushButt.KeyB[0], ~DPAL.DB_Sel[0], ~DPAL.DB_Sel[1], ~DPAL.DB_Sel[2]);
                break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c + 1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                MObjectSetForegroundRGB(DAS.Gui.PushButt.KeyB[c + 1], ~DPAL.DB_Sel[0], ~DPAL.DB_Sel[1], ~DPAL.DB_Sel[2]);
                break;
            }
*/
    case L_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        MObjectSetForegroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
        if (c == 0)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[(sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]) - 1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                MObjectSetForegroundRGB(DAS.Gui.PushButt.KeyB[(sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]) - 1], ~DPAL.DB_Sel[0], ~DPAL.DB_Sel[1], ~DPAL.DB_Sel[2]);
                break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c - 1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                MObjectSetForegroundRGB(DAS.Gui.PushButt.KeyB[c - 1], ~DPAL.DB_Sel[0], ~DPAL.DB_Sel[1], ~DPAL.DB_Sel[2]);
                break;
            }
    case U_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        MObjectSetForegroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
        if (c == 0)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[(sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]) - 1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                MObjectSetForegroundRGB(DAS.Gui.PushButt.KeyB[(sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]) - 1], ~DPAL.DB_Sel[0], ~DPAL.DB_Sel[1], ~DPAL.DB_Sel[2]);
                break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c - 1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                MObjectSetForegroundRGB(DAS.Gui.PushButt.KeyB[c - 1], ~DPAL.DB_Sel[0], ~DPAL.DB_Sel[1], ~DPAL.DB_Sel[2]);
                break;
            }
    case F1:
        for (i=0; i<(sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]) ; i++)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            }
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
        MSelectObject(DAS.Gui.PushButt.KeyB[c]);
        break;
    case F2:
        for (i=0; i<(sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]); i++)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            }
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
        MSelectObject(DAS.Gui.PushButt.KeyB[c]);
        break;
    case F3:
        for (i=0; i<(sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]); i++)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            }
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
        MSelectObject(DAS.Gui.PushButt.KeyB[c]);
        break;
    case F5:
        for (i=0; i<(sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]); i++)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            }
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
        MSelectObject(DAS.Gui.PushButt.KeyB[c]);
        break;
    case F6:
        for (i=0; i<(sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]); i++)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            }
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
        MSelectObject(DAS.Gui.PushButt.KeyB[c]);
        break;
    case F7:
        for (i=0; i<(sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]); i++)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            }
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
        MSelectObject(DAS.Gui.PushButt.KeyB[c]);
        break;
    case F8:
        for (i=0; i<(sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]); i++)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            }
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
        MSelectObject(DAS.Gui.PushButt.KeyB[c]);
        break;
    case F9:
        for (i=0; i<(sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]); i++)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            }
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
        MSelectObject(DAS.Gui.PushButt.KeyB[c]);
        break;
    case F10:
        for (i=0; i<(sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]); i++)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            }
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
        MSelectObject(DAS.Gui.PushButt.KeyB[c]);
        break;
    case F11:
        for (i=0; i<(sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]); i++)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            }
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
        MSelectObject(DAS.Gui.PushButt.KeyB[c]);
        break;
    case F12:
        for (i=0; i<(sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]); i++)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            }
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
        MSelectObject(DAS.Gui.PushButt.KeyB[c]);
        break;
/*  case A_F1:
        for (i=0; i<21; i++)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            }
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
        break;
    case A_F2:
        for (i=0; i<21; i++)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            }
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
        break;
    case A_F3:
        for (i=0; i<21; i++)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            }
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
        break;
*/
    case ESC:
        for (i=0; i<(sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]); i++)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            }
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
        MSelectObject(DAS.Gui.PushButt.KeyB[c]);
        break;
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_KeyComSelButtMouse_CB()

void DB_KeyComSelButtMouse_CB	(	MOBJECT	obj,
		MMouseEvent *	pe,
		void *	a_data
	)

callback for selsct a specified push button with the keyboard

Definition at line 5072 of file CreateForms.c.

References optionini::aaopmode, MMouseEvent::button, gui::ContrPanel, palette::DB_Sel, palette::DB_UnSel, palette::DB_UnSelFG, das::DOption, E_MOTION, das::Gui, pushbutt::KeyB, MObjectSetBackgroundRGB(), MObjectSetForegroundRGB(), MObjectSetUnsensitive(), MSelectObject(), controlpanel::pblamps, gui::PushButt, and MMouseEvent::type.

Referenced by MDCreate_CP().

{

        int c = (int) a_data, i;

/*  for (i=0; i<(sizeof PBUTT.KeyB / sizeof PBUTT.KeyB[0]); i++)
    {
        MObjectSetBackgroundRGB(PBUTT.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);

        /**************************************
            SHAREWARE 
        if (i==2 | i==9 |i==3 | i==4 |i==6 | i==11 |i==12 | i==13 |i==19 | i== 20| i==17 |i==10 | i== 21)
            {
                MObjectSetBackgroundRGB(PBUTT.KeyB[i], 150, 150, 150);
            }
        /***************************************/

//  }



    switch (pe->button)
    {

    case (Button1):
            {
            //MObjectSetBackgroundRGB(PBUTT.KeyB[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
            MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
    for (i=0; i<(sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]); i++)
        if(i != c)
        {
            MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            MObjectSetForegroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
        }
        /***************************************/
        /*    SHAREWARE */
//      if (c==2 | c==9 |c==3 | c==4 |c==6 | c==11 |c==12 | c==13 |c==19 | c== 20| c==17 |c==10 | c== 21)
//          {
//              MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[c], 150, 150, 150);
//          }
        /***************************************/
            
            
            break;
            }
    }
    switch (pe->type)
    {

    case (E_MOTION):
        {
            MObjectSetBackgroundRGB(obj, DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
            MSelectObject(obj);
            for (i=0; i<(sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]); i++)
            {
                if(i != c)
                {
                    MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
                    MObjectSetForegroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
                }
            }
            MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.pblamps[1], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            MObjectSetForegroundRGB(DAS.Gui.ContrPanel.pblamps[1], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);

            MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.pblamps[0], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            MObjectSetForegroundRGB(DAS.Gui.ContrPanel.pblamps[0], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
            if(DAS.DOption.aaopmode == 0)
            {
                MObjectSetUnsensitive(DAS.Gui.PushButt.KeyB[4]);
                MObjectSetUnsensitive(DAS.Gui.PushButt.KeyB[5]);
                //MObjectSetBackgroundRGB(optedit, 192, 192, 192);
            }

        break;
        }
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_LampSelButtMouse_CB()

void DB_LampSelButtMouse_CB	(	MOBJECT	obj,
		MMouseEvent *	pe,
		void *	a_data
	)

callback for selsct a specified push button with the keyboard

Definition at line 5041 of file CreateForms.c.

References gui::ContrPanel, palette::DB_Sel, palette::DB_UnSel, E_MOTION, das::Gui, pushbutt::KeyB, MObjectSetBackgroundRGB(), MSelectObject(), controlpanel::pblamps, gui::PushButt, and MMouseEvent::type.

Referenced by MDCreate_CP().

{
    int c = (int) a_data, i;

    
    switch (pe->type)
    {
        case (E_MOTION):
            {

                MObjectSetBackgroundRGB(obj, DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                MSelectObject(obj);
                switch (c)
                {
                    case 0:
                        MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.pblamps[1], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
                        break;
                    case 1:
                        MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.pblamps[0], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
                        break;
                }
                for (i=0; i<(sizeof DAS.Gui.PushButt.KeyB / sizeof DAS.Gui.PushButt.KeyB[0]); i++)
                    MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            }
            break;
    }
            
}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_Mir_CB()

void DB_Mir_CB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

callback for input mirror positioning in Mirror shell

Parameters

p	calling push button MObject
*ad	calling push button number

Definition at line 5692 of file CreateForms.c.

References paramini::EqType, GASCODNG4, Mir_Code, Mir_CodeTropo, MirBuff, MirFlg, MirSet, das::Paramini, SPATRAM3, and TROPOGAS.

Referenced by MDCreateSh_Mir().

{
    int     c = (int) ad;
    

    if (DAS.Paramini.EqType == TROPOGAS || DAS.Paramini.EqType == SPATRAM3 || DAS.Paramini.EqType == GASCODNG4 )
        MirBuff = Mir_CodeTropo[c];
    else
        MirBuff = Mir_Code[c];

    
    MirSet = c;
    MirFlg = 1;
}

Here is the caller graph for this function:

DB_MirSelButtKB_CB()

void DB_MirSelButtKB_CB	(	MOBJECT	obj,
		MKeyEvent *	pe,
		void *	a_data
	)

callback for selsct a specified mirror push button with the keyboard

Definition at line 5748 of file CreateForms.c.

References D_A, palette::DB_Sel, palette::DB_UnSel, das::Gui, MKeyEvent::keycode, L_A, pushbutt::Mir, MObjectSetBackgroundRGB(), gui::PushButt, R_A, and U_A.

Referenced by MDCreateSh_Mir().

{

    int c = (int) a_data;

    switch (pe->keycode)
    {
    case R_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        if (c == (sizeof DAS.Gui.PushButt.Mir / sizeof DAS.Gui.PushButt.Mir[0])-1)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[0], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
            break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[c+1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
    case D_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        if (c == (sizeof DAS.Gui.PushButt.Mir / sizeof DAS.Gui.PushButt.Mir[0])-1)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[0], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[c+1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }

    case L_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        if (c == 0)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[(sizeof DAS.Gui.PushButt.Mir / sizeof DAS.Gui.PushButt.Mir[0])-1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[c-1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
    case U_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        if (c == 0)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[(sizeof DAS.Gui.PushButt.Mir / sizeof DAS.Gui.PushButt.Mir[0])-1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[c-1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_MirSelButtMouse_CB()

void DB_MirSelButtMouse_CB	(	MOBJECT	obj,
		MMouseEvent *	pe,
		void *	a_data
	)

callback changing the bakground color of the push button passing the mouse over it

Definition at line 5708 of file CreateForms.c.

References MMouseEvent::button, palette::DB_Sel, palette::DB_UnSel, palette::DB_UnSelFG, E_MOTION, das::Gui, pushbutt::Mir, MObjectSetBackgroundRGB(), MObjectSetForegroundRGB(), MSelectObject(), gui::PushButt, and MMouseEvent::type.

{

        int c = (int) a_data, i;

    for (i=0; i<(sizeof DAS.Gui.PushButt.Mir / sizeof DAS.Gui.PushButt.Mir[0]); i++)
    {
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        MObjectSetForegroundRGB(DAS.Gui.PushButt.Mir[c], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
    }

    switch (pe->button)
    {
        case (Button1):
        {
            MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
//          MObjectSetForegroundRGB(DAS.Gui.PushButt.Mir[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
            break;
        }
    }
    switch (pe->type)
    {

    case (E_MOTION):
        {
            MObjectSetBackgroundRGB(obj, DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
            MSelectObject(obj);
            for (i=0; i<(sizeof DAS.Gui.PushButt.Mir / sizeof DAS.Gui.PushButt.Mir[0]); i++)
            {
                if(i != c)
                    MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        
            }

        break;
        }
    }
}

Here is the call graph for this function:

DB_NDFil_CB()

void DB_NDFil_CB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

callback for filter wheel positioning in Filter shell

Parameters

p	calling push button MObject
*ad	calling push button number

Definition at line 6360 of file CreateForms.c.

References paramini::EqType, Fil_Code8H, Fil_CodeNG, Fil_CodeTropo, FilBuff, GASCODNG1, GASCODNG2, GASCODNG3, GASCODNG4, LIS_, NDFil_Code, NDFilBuff, NDFilFlg, NDFilSet, das::Paramini, and TROPOGAS.

Referenced by MDCreateSh_NDFil().

{
    int     c = (int) ad;
    
    if(DAS.Paramini.EqType == LIS_)
        FilBuff = Fil_Code8H[c];
    else
    {
        if(DAS.Paramini.EqType == TROPOGAS)
            FilBuff = Fil_CodeTropo[c];
        else if (DAS.Paramini.EqType == GASCODNG1 || DAS.Paramini.EqType == GASCODNG2 || DAS.Paramini.EqType == GASCODNG3 || DAS.Paramini.EqType == GASCODNG4)
            FilBuff = Fil_CodeNG[c];
        else
            NDFilBuff = NDFil_Code[c];
    }

    NDFilSet = c;
    NDFilFlg = 1;
}

Here is the caller graph for this function:

DB_NDFilSelButtKB_CB()

void DB_NDFilSelButtKB_CB	(	MOBJECT	obj,
		MKeyEvent *	pe,
		void *	a_data
	)

callback for select a specified filter push button with the keyboard

Definition at line 6404 of file CreateForms.c.

References D_A, palette::DB_Sel, palette::DB_UnSel, das::Gui, MKeyEvent::keycode, L_A, MObjectSetBackgroundRGB(), pushbutt::NDFil, gui::PushButt, R_A, and U_A.

Referenced by MDCreateSh_NDFil().

{

    int c = (int) a_data;

    switch (pe->keycode)
    {
    case R_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.NDFil[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        if (c == (sizeof DAS.Gui.PushButt.NDFil / sizeof DAS.Gui.PushButt.NDFil[0]) - 1)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.NDFil[0], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
            break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.NDFil[c+1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
    case D_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.NDFil[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        if (c == (sizeof DAS.Gui.PushButt.NDFil / sizeof DAS.Gui.PushButt.NDFil[0]) - 1)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.NDFil[0], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.NDFil[c+1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }

    case L_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.NDFil[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        if (c == 0)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.NDFil[(sizeof DAS.Gui.PushButt.NDFil / sizeof DAS.Gui.PushButt.NDFil[0]) - 1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.NDFil[c-1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
    case U_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.NDFil[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        if (c == 0)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.NDFil[(sizeof DAS.Gui.PushButt.NDFil / sizeof DAS.Gui.PushButt.NDFil[0]) - 1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.NDFil[c-1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_NDFilSelButtMouse_CB()

void DB_NDFilSelButtMouse_CB	(	MOBJECT	obj,
		MMouseEvent *	pe,
		void *	a_data
	)

callback changing the bakground color of the push button passing the mouse over it

Definition at line 6382 of file CreateForms.c.

References MMouseEvent::button, palette::DB_Sel, palette::DB_UnSel, das::Gui, MObjectSetBackgroundRGB(), pushbutt::NDFil, and gui::PushButt.

{

        int c = (int) a_data, i;

    for (i=0; i<(sizeof DAS.Gui.PushButt.NDFil / sizeof DAS.Gui.PushButt.NDFil[0]); i++)
    {
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.NDFil[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    }

    switch (pe->button)
    {

    case (Button1):
            {
            MObjectSetBackgroundRGB(DAS.Gui.PushButt.NDFil[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
            break;
            }
    }
}

Here is the call graph for this function:

DB_PasWd()

void DB_PasWd

(

void

)

Definition at line 2600 of file CreateForms.c.

References ChkWinInstance(), gui::ConfigPanel, dpwd::FlgSh_PWD, das::Gui, MDCreateDASConfig(), and configpanel::ShellConfig.

Referenced by DB_KeyB_CB().

{
    char    DefPwdSys[10]="nefertari";
    char    ttest[32]; 
    int er;

    sprintf(ttest,"%s","DAS Config");

/*  MSetMessageDialogRGB(DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MSetMessageDialogFgRGB(DPAL.DB_FG_Albl[0],DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MSetMessageDialogFonts(FIXED_SMALL, FIXED_SMALL);
    MSetInputPromptRGB(DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MSetInputPromptFgRGB(DPAL.DB_FG_Albl[0],DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MSetInputPromptFonts(FIXED_SMALL, FIXED_SMALL, FIXED_SMALL);

    er = MDCreateSh_PWD();
        if(er == 0)
        {
*/
            //er = ChkConfigInstance();
            er = ChkWinInstance(ttest, DAS.Gui.ConfigPanel.ShellConfig);
            if (er==0)
            {
                MDCreateDASConfig();
                DPWD.FlgSh_PWD = 1;
            }
/*
        }
        else
        {
            MMessageDialog("INF PWD", "You insert a wrong PWD! Retry or Contact DanBo", "Ok", NULL);
            DPWD.FlgSh_PWD = 1;

        }
*/
}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_Pause()

void DB_Pause

(

void

)

Definition at line 3766 of file CreateForms.c.

References D_FixSZA(), DB_KB_ButtonActive(), flag::DeltaSZA, flag::exec, flag::ExeDSZA, das::Flag, das::Gui, pushbutt::KeyB, dsza::LastMSZA, MObjectSetSensitive(), MObjectSetText(), gui::PushButt, S_zenetr, Status(), and SZADelta.

Referenced by DB_KeyB_CB(), InitTempAD(), and SetWindowsReset().

{

    if(FLAG.exec)
    {
        FLAG.exec = 0;
        Status("Waiting for the end of current instruction");
        MObjectSetText(DAS.Gui.PushButt.KeyB[25],"Resume");
        DB_KB_ButtonActive(1);

        if(DAS.Flag.DeltaSZA == 1)
        {
            DAS.Flag.ExeDSZA = 0; //Stop PRG Execution 

//          SZADelta.LastMSZA = S_zenetr; 
//          D_FixSZA();
        }
        

    }
    else if(FLAG.exec == 0)
    {
        FLAG.exec = 1;
        Status("Execution Resumed");
        MObjectSetText(DAS.Gui.PushButt.KeyB[25],"Pause");
        DB_KB_ButtonActive(0);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[25]);
        MObjectSetSensitive(DAS.Gui.PushButt.KeyB[27]);
        // If a SZAPRG or a *.PRG file is in execution with the DeltaSZA Mode activated
        // the next SZA has to be recalculated
        
        
        if(DAS.Flag.DeltaSZA == 1)
        {
            DAS.Flag.ExeDSZA = 1; //PRG Execution 

            SZADelta.LastMSZA = S_zenetr; 
            D_FixSZA();
    
        }
    }

}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_PushButtonMouse()

void DB_PushButtonMouse	(	int	mod,
		int	event,
		MOBJECT	obj,
		struct pbutt *	ppbutt
	)

Definition at line 882 of file CreateForms.c.

References palette::DB_Sel, palette::DB_UnSel, palette::DB_UnSelFG, das::Gui, pushbutt::Mir, MIS, MObjectSetBackgroundRGB(), MObjectSetForegroundRGB(), MSelectObject(), MirrorSt::Pos, gui::PushButt, pushbutt::Wl, and GratingSt::Wl.

{

    int  i, count;
    switch (mod)
    {
        case (1): //Input Mirror Buttons
        {
            count = (sizeof DAS.Gui.PushButt.Mir / sizeof DAS.Gui.PushButt.Mir[0]);
            for (i=0; i<count; i++)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
                MObjectSetForegroundRGB(DAS.Gui.PushButt.Mir[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
                if (i==MIS.Pos)
                    MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[i], 0, 0, 255);
            }
            switch (event)
            {
                case (0):
                {
                    MObjectSetBackgroundRGB(obj, DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                    break;
                }
                case (1):
                {
                    for (i=0; i<count; i++)
                        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
                    MObjectSetBackgroundRGB(obj, DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                    MSelectObject(obj);
                break;
                }
            }
        break;
        }
        case (2): //Grating Buttons
        {
            count = (sizeof DAS.Gui.PushButt.Wl / sizeof DAS.Gui.PushButt.Wl[0]);
            for (i=0; i<count; i++)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
                MObjectSetForegroundRGB(DAS.Gui.PushButt.Wl[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
                if (i==GRS.Wl)
                    MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[i], 0, 0, 255);
            }
            switch (event)
            {
                case (0):
                {
                    MObjectSetBackgroundRGB(obj, DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                    break;
                }
                case (1):
                {
                    for (i=0; i<count; i++)
                        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
                    MObjectSetBackgroundRGB(obj, DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                    MSelectObject(obj);
                break;
                }
            }
        break;
        }

    }



}

Here is the call graph for this function:

DB_PushButtonMouse_CB()

void DB_PushButtonMouse_CB	(	MOBJECT	obj,
		MMouseEvent *	pe,
		void *	a_data
	)

Definition at line 950 of file CreateForms.c.

References MMouseEvent::button, palette::DB_Sel, palette::DB_UnSel, palette::DB_UnSelFG, E_MOTION, pushbutt::Fil, FWS, das::Gui, pushbutt::Mir, MIS, MObjectSetBackgroundRGB(), MObjectSetForegroundRGB(), MSelectObject(), pushbutt::NDFil, NDFWS, FilterWheelSt::Pos, NDFilterWheelSt::Pos, MirrorSt::Pos, gui::PushButt, MMouseEvent::type, pushbutt::Wl, and GratingSt::Wl.

Referenced by MDCreateSh_Fil(), MDCreateSh_Mir(), MDCreateSh_NDFil(), and MDCreateSh_Wl().

{

    
        int c = (int) a_data, i, count;
    switch (c)
    {
        case (1): // Input Mirror
        {
            count = (sizeof DAS.Gui.PushButt.Mir / sizeof DAS.Gui.PushButt.Mir[0]);
            for (i=0; i<count; i++)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
                MObjectSetForegroundRGB(DAS.Gui.PushButt.Mir[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
                if (i==MIS.Pos)
                    MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[i], 0, 0, 255);
            }
            switch (pe->button)
            {
                case (Button1):
                {
                    MObjectSetBackgroundRGB(obj, DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                    break;          
                }
            }

            switch (pe->type)
            {
                case (E_MOTION):
                {

                    for (i=0; i<count; i++)
                    {   MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
                        if (i==MIS.Pos)
                            MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[i], 0, 0, 255);
                    }
                    MObjectSetBackgroundRGB(obj, DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                    MSelectObject(obj);
                    break;
                }
            }
            break;
        }
        case (2): // Grating
        {
            count = (sizeof DAS.Gui.PushButt.Wl / sizeof DAS.Gui.PushButt.Wl[0]);
            for (i=0; i<count; i++)
            {
//              MObjectSetBackgroundRGB(PBUTT.Wl[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
//              MObjectSetForegroundRGB(PBUTT.Wl[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
                if (i==GRS.Wl)
                    MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[i], 0, 0, 255);
            }
            switch (pe->button)
            {
                case (Button1):
                {
                    MObjectSetBackgroundRGB(obj, DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                    break;          
                }
            }

            switch (pe->type)
            {
                case (E_MOTION):
                {

                    for (i=0; i<count; i++)
                    {
                        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
                        if (i==GRS.Wl)
                            MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[i], 0, 0, 255);
                    }
                    MObjectSetBackgroundRGB(obj, DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                    MSelectObject(obj);
                    break;
                }
            }
            break;
        }
        case (3): // Filter
        {
            count = (sizeof DAS.Gui.PushButt.Fil / sizeof DAS.Gui.PushButt.Fil[0]);
            for (i=0; i<count; i++)
            {
//              MObjectSetBackgroundRGB(PBUTT.Wl[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
//              MObjectSetForegroundRGB(PBUTT.Wl[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
                if (i==FWS.Pos)
                    MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[i], 0, 0, 255);
            }
            switch (pe->button)
            {
                case (Button1):
                {
                    MObjectSetBackgroundRGB(obj, DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                    break;          
                }
            }

            switch (pe->type)
            {
                case (E_MOTION):
                {

                    for (i=0; i<count; i++)
                    {
                        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
                        if (i==FWS.Pos)
                            MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[i], 0, 0, 255);
                    }
                    MObjectSetBackgroundRGB(obj, DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                    MSelectObject(obj);
                    break;
                }
            }
            break;
        }
        case (4): // NDFilter
        {
            count = (sizeof DAS.Gui.PushButt.NDFil / sizeof DAS.Gui.PushButt.NDFil[0]);
            for (i=0; i<count; i++)
            {
//              MObjectSetBackgroundRGB(PBUTT.Wl[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
//              MObjectSetForegroundRGB(PBUTT.Wl[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
                if (i==NDFWS.Pos)
                    MObjectSetBackgroundRGB(DAS.Gui.PushButt.NDFil[i], 0, 0, 255);
            }
            switch (pe->button)
            {
                case (Button1):
                {
                    MObjectSetBackgroundRGB(obj, DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                    break;          
                }
            }

            switch (pe->type)
            {
                case (E_MOTION):
                {

                    for (i=0; i<count; i++)
                    {
                        MObjectSetBackgroundRGB(DAS.Gui.PushButt.NDFil[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
                        if (i==NDFWS.Pos)
                            MObjectSetBackgroundRGB(DAS.Gui.PushButt.NDFil[i], 0, 0, 255);
                    }
                    MObjectSetBackgroundRGB(obj, DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                    MSelectObject(obj);
                    break;
                }
            }
            break;

        }   
    }


}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_RecGio_CB()

void DB_RecGio_CB	(	MOBJECT	o,
		void *	a,
		void *	v
	)

Definition at line 2835 of file CreateForms.c.

References flag::backlashrec, das::Flag, and MRButtonGetActivationStatus().

Referenced by MDCreateMoveGrat().

{

    int er = 0;
    int c = (int) v;
    er = MRButtonGetActivationStatus(o);

    if(er)
    {
        switch (c)
        {
        case 0:
            DAS.Flag.backlashrec = 0; 
            break;
        case 1:
            DAS.Flag.backlashrec = 1; 
            break;
        }
    }


}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_Redraw_CB()

void DB_Redraw_CB	(	MOBJECT	obj,
		MMouseEvent *	pe,
		void *	a_data
	)

Definition at line 102 of file CreateForms.c.

References palette::DB_BG, palette::DB_BG_Albl, palette::DB_BG_lblUP, palette::DB_BG_Plbl, palette::DB_FG_Albl, palette::DB_FG_lblUP, palette::DB_FG_Plbl, E_MOTION, MObjectSetBackgroundRGB(), MObjectSetForegroundRGB(), and MMouseEvent::type.

Referenced by MDCreate_CP().

{

        int c = (int) a_data;

    switch (pe->type)
    {
        case (E_MOTION)://E_WINDOW_ENTER
        //case (E_WINDOW_ENTER)://E_WINDOW_ENTER
        {
            switch (c)
            {
                case 0:
                    MObjectSetBackgroundRGB(obj, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
                    MObjectSetForegroundRGB(obj, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                    break;
                case 1:
                    MObjectSetBackgroundRGB(obj, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                    MObjectSetForegroundRGB(obj, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                    break;
                case 2:
                    MObjectSetForegroundRGB(obj, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                    MObjectSetBackgroundRGB(obj, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                    break;
                case 3:
                    MObjectSetForegroundRGB(obj, DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
                    MObjectSetBackgroundRGB(obj, DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
                    break;
                case 4:
                    MObjectSetForegroundRGB(obj, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                    MObjectSetBackgroundRGB(obj, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                    break;
                case 5:
                    MObjectSetForegroundRGB(obj, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                    MObjectSetBackgroundRGB(obj, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                    break;
                case 6:
                    MObjectSetForegroundRGB(obj, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                    MObjectSetBackgroundRGB(obj, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                    break;
            }
            break;
        }
    }

}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_SheelESC()

void DB_SheelESC	(	MOBJECT	obj,
		MKeyEvent *	pe,
		void *	a_data
	)

Definition at line 5569 of file CreateForms.c.

References ESC, FilBuff, FilFlg, MKeyEvent::keycode, MirBuff, MirFlg, NDFilBuff, NDFilFlg, GratingSt::Pos, WlBuff, WlFlg, and WlSet.

Referenced by MDCreateSh_Fil(), MDCreateSh_Mir(), MDCreateSh_NDFil(), and MDCreateSh_Wl().

{
    int     c = (int) a_data;
    switch(c)
    {
    case 0:
        switch (pe->keycode)
        {
            case ESC:
            MirBuff = "0";
            MirFlg = 1;
            break;
        }
    case 1:
        switch (pe->keycode)
        {
            case ESC:
            WlSet = GRS.Pos;
            WlBuff = "0";
            WlFlg = 1;
            break;
        }
    case 2:
        switch (pe->keycode)
        {
            case ESC:
            FilBuff = "0";
            FilFlg = 1;
            break;
        }
    case 3:
        switch (pe->keycode)
        {
            case ESC:
            NDFilBuff = "0";
            NDFilFlg = 1;
            break;
        }
    }
}

Here is the caller graph for this function:

DB_StepGratEnc_CB()

void DB_StepGratEnc_CB	(	MOBJECT	o,
		void *	a,
		void *	v
	)

Definition at line 2811 of file CreateForms.c.

References das::Flag, MRButtonGetActivationStatus(), and flag::stepgratenc.

Referenced by MDCreateMoveGrat().

{

    int er = 0;
    int c = (int) v;
    er = MRButtonGetActivationStatus(o);

    if(er)
    {
        switch (c)
        {
        case 0:
            DAS.Flag.stepgratenc = 0; 
            break;
        case 1:
            DAS.Flag.stepgratenc = 1; 
            break;
        }
    }


}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_Tools()

void DB_Tools

(

)

Definition at line 4158 of file CreateForms.c.

References CENTER_ALIGN, palette::DB_BG_Albl, palette::DB_BG_lblUP, palette::DB_FG_Albl, DB_ToolsKeyB_CB(), palette::DB_UnSel, palette::DB_UnSelFG, DT_ShutterCB(), False, HELV_MEDIUM, HELV_SMALL, tools::KeyB, lbl, LEFT_ALIGN, MButtonSetOnMouseOverForegroundRGB(), MCreateColForm(), MCreateLabel(), MCreatePButton(), MCreatePixmapFromFile(), MCreateRowForm(), MCreateShell(), MCreateTableForm(), MFormSetSpacing(), MLabelSetAlignment(), MLabelSetMargin(), MObjectAlign(), MObjectSetBackgroundRGB(), MObjectSetCompositeWidth(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetShadow(), MObjectSetTransparency(), MObjectSetUnsensitive(), MPButtonSetCallback(), MShellRealize(), MTableFormSetColAlign(), SF_NO_MAXIMIZE, tools::Sh_Tools, TOP_ALIGN, True, UNDEF_ALIGN, WS_ETCHED_IN, and WS_NONE.

Referenced by DB_KeyB_CB().

{


    MOBJECT tb, rowf, lbl,rowf1;
    int i;
//  char buf[80];

    MOBJECT colform;//, rowform1;
    MOBJECT pixmap,pixbut;


const char *KeyCom_Code[] = {{"Shutter Closed"},//0
                            {"Column Format"},  //1
                            {"Link Spectra "},  //2
                            {"DOAS Analisys"},  //3
                            {"Calc Flx Indx"},  //4
                            {"Reload timer task "},//{"Correct H "},        //5
                            {"Clear timer task "}, //{"CorrFileEvora"}, //6 
                            {"READ Grat. Steps"},       //7
                            {"ZERO Grat. Steps"},       //8
                            {"Compile PRG"},    //9
                            {"Load PRG"},       //10
                            {"Temp. History"},      //11
                            {"Close"}};         //12


    
    TOOLS.Sh_Tools = MCreateShell("DAS TOOLS", SF_NO_MAXIMIZE);
    MObjectSetBackgroundRGB(TOOLS.Sh_Tools, 91, 74, 74);


    rowf = MCreateRowForm(TOOLS.Sh_Tools);
    MObjectSetResize(rowf, True, True);
    MObjectSetBackgroundRGB(rowf, 91, 74, 74);

    lbl = MCreateLabel(rowf, "TOOLS", HELV_MEDIUM);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetResize(lbl, False, True);


    rowf1 = MCreateRowForm(rowf);
    MObjectSetResize(rowf1, True, True);
    MObjectSetBackgroundRGB(rowf1, 74, 60, 0);

        lbl = MCreateLabel(rowf1, "Shutter Control", HELV_SMALL);
        MObjectSetForegroundRGB(lbl, 255, 255, 255);
        MObjectSetBackgroundRGB(lbl, 96, 132, 152);
        MObjectSetTransparency(lbl, 0);
        MObjectSetShadow(lbl, WS_ETCHED_IN, 1, 1);
        MObjectSetCompositeWidth(lbl, 150);


        colform = MCreateColForm(rowf1);
        MObjectSetForegroundRGB(colform, 255, 255, 255);
        MObjectSetBackgroundRGB(colform, 74, 60, 0);
        MObjectSetShadow(colform, WS_NONE, 0, 0);
        MObjectSetResize(colform, False, False);


            pixbut = MCreatePixmapFromFile(colform, "SYS\\ledoff.bmp");
            MObjectAlign(pixbut, CENTER_ALIGN, CENTER_ALIGN);

            TOOLS.KeyB[0] = MCreatePButton(colform, KeyCom_Code[0], HELV_SMALL); 
            MObjectSetBackgroundRGB(TOOLS.KeyB[0], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            MObjectSetForegroundRGB(TOOLS.KeyB[0], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
            MPButtonSetCallback(TOOLS.KeyB[0], DT_ShutterCB, (void *) pixbut);
            MButtonSetOnMouseOverForegroundRGB(TOOLS.KeyB[0], 255, 255, 255);
            MObjectAlign(TOOLS.KeyB[0], CENTER_ALIGN, CENTER_ALIGN);

            tb = MCreateTableForm(colform, 2);
            MFormSetSpacing(tb, 1);
            MTableFormSetColAlign(tb, 1, CENTER_ALIGN);
            MObjectAlign(tb, UNDEF_ALIGN, TOP_ALIGN);
            MObjectSetBackgroundRGB(tb, 112, 128, 112);
            MObjectSetResize(tb, False, False);

                pixmap = MCreatePixmapFromFile(tb, "sys\\LEDOFFsmall.BMP");

                lbl = MCreateLabel(tb, "Close", HELV_SMALL);
                MLabelSetMargin(lbl, 3, 1);
                MObjectSetBackgroundRGB(lbl, 74, 60, 0);
                MObjectSetTransparency(lbl, 0);
                MObjectSetResize(lbl, False, False);

                pixmap = MCreatePixmapFromFile(tb, "sys\\LEDONsmall.BMP");

                lbl = MCreateLabel(tb, "Open", HELV_SMALL);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
                MLabelSetMargin(lbl, 3, 1);
                MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
                MObjectSetBackgroundRGB(lbl, 74, 60, 0);
                MObjectSetTransparency(lbl, 0);



    tb = MCreateTableForm(rowf, 2);
    MObjectSetBackgroundRGB(tb, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetShadow(tb, WS_NONE, 0, 0);
    MObjectSetResize(tb, True, True);

    


    for (i=1; i < (sizeof TOOLS.KeyB / sizeof TOOLS.KeyB[0]); i++)
    {
        TOOLS.KeyB[i] = MCreatePButton(tb, KeyCom_Code[i], HELV_SMALL);
        MObjectSetBackgroundRGB(TOOLS.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        MObjectSetCompositeWidth(TOOLS.KeyB[i], 120);
        MPButtonSetCallback(TOOLS.KeyB[i], DB_ToolsKeyB_CB, (void *) i);
        MButtonSetOnMouseOverForegroundRGB(TOOLS.KeyB[i], 0, 0, 255);
        /***************************************/
        /*    DeActivated Buttons */
//      if ((i==0) || (i==1) || (i==2) || (i==3) || (i==4) || (i==5) || (i==6))
        if ((i==0) || (i==2) || (i==3) || (i==4) || (i==5) || (i==6))
            {
                MObjectSetUnsensitive(TOOLS.KeyB[i]);
            }
        /***************************************/

    }


    MShellRealize(TOOLS.Sh_Tools);
    



}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_ToolsKeyB_CB()

void DB_ToolsKeyB_CB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Definition at line 3973 of file CreateForms.c.

References _MAX_PATH, controlpanel::Albl_Script, FB_PREFS::allow_dir_create, FB_PREFS::allow_dir_delete, FB_PREFS::allow_dir_rename, AMS1, AMS_AzzeraCoord(), AMS_ReadStep(), FB_PREFS::bg_image_file, BrowseLog(), BuildLogRatio(), FB_PREFS::button_font, FB_PREFS::change_cwd, gui::ContrPanel, DBDEMO, bil::DFILEM, DI_SplitName(), DT_FluxIndex(), DT_LinkSpectra(), flag::exemode, False, das::Flag, FB_PREFS::font, das::Gui, HELV_SMALL, d_fileman::HOMEDIRECTORY, IDS, LoadExec(), MANUAL, Message(), MFileBrowseExt(), MGetCurrentDirectory(), MMessageDialog(), MObjectSetText(), MRefreshTimeout(), MRemoveTimeout(), MShellDestroy(), MShellUnrealize(), on, PRG_Check(), PrgFile, PRGFILE, SetWorkDirMGUIenv(), tools::Sh_Tools, Status(), Task_Timer(), ids::TIMER, TIMER_TASK_TIME, FB_PREFS::transparent_tree, True, and UPS_Status().

Referenced by DB_Tools().

{

    int     c = (int) ad;
    int er = 0;
    char    buf[_MAX_PATH];
    char fname[128], dirname[128];
    unsigned long ns;


  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(buf, "%s\\%s", BIL.DFILEM.HOMEDIRECTORY, "sys\\Tile2.bmp" );
    fbp.bg_image_file =buf;
    
    switch(c)
    {
        
        case 0 :
            
            break;
        //Column Format 
        case 1:
            UPS_Status();
            //DT_ColFormat();
            break;
        //Link Spectra
        case 2:
            DT_LinkSpectra();
            break;
        //Doas Analisys
        case 3:
            BuildLogRatio();
            break;
        //Flux Index
        case 4:
            DT_FluxIndex();
            break;
        //spare
        case 5:
            MRefreshTimeout(&IDS.TIMER, TIMER_TASK_TIME, Task_Timer, NULL);
            //DT_CorrHeader();
            break;
        //Spare
        case 6:
            //DT_CorrFileEvora();
            //MClearTimeout(&IDS.TIMER);
            MRemoveTimeout(IDS.TIMER);
            break;
        //Read Grating Steps
        case 7:
            ns = AMS_ReadStep(AMS1, 1);
            sprintf(buf, "Steps Grating: %ld", ns);
            Status(buf);
            break;
        //ZERO Grating Steps
        case 8:         
            er = AMS_AzzeraCoord(AMS1, 1);
            if(er)
            {
                Message("No Zero Coord Grating", er);
            }
            else
            {

            }
            break;
        //Compile PRG File
        case 9:         
                er = MFileBrowseExt ("Select PRG File", "*.PRG", fname, dirname, &fbp);
                sprintf(buf, "%s%s", dirname, fname);
                er = PRG_Check(1, buf);
                if (er == 0)
                {
                    sprintf(buf, "The PRG File: %s was correctly compiled.", fname);
                    MMessageDialog("DAS Inf.", buf, "OK", NULL);
                }

            
            break;
        //Load PRG File
        case 10:
            if (DAS.Flag.exemode == MANUAL ) 
            {
                er = MFileBrowseExt ("Select PRG File", "*.PRG", fname, dirname, &fbp);
                DAS.Flag.exemode = PRGFILE;
                sprintf(PrgFile, "%s%s", dirname, fname);
                //Compile PRG File
                er = PRG_Check(1, PrgFile);
                if (er == 0)
                {
                    sprintf(buf, "The PRG File: %s was correctly compiled.", fname);
                    MMessageDialog("DAS Inf.", buf, "OK", NULL);
                }

                on = LoadExec(PrgFile);
                DI_SplitName(PrgFile, dirname, buf);
                MObjectSetText(DAS.Gui.ContrPanel.Albl_Script, buf);
                // DAS Working directory and MGUI Environment
                sprintf(buf, "%s\\%s", BIL.DFILEM.HOMEDIRECTORY, "DAS.exe");
                er = SetWorkDirMGUIenv(buf);
                if (er == -1) 
                {
                //Unable to set the enviromental variable
                }

                MShellUnrealize(TOOLS.Sh_Tools);
                MShellDestroy(TOOLS.Sh_Tools);
            }
            else if (DAS.Flag.exemode == DBDEMO ) 
            {
                
                er = MFileBrowseExt ("Select PRG File", "*.PRG", fname, dirname, &fbp);
                DAS.Flag.exemode = PRGFILE;
                sprintf(PrgFile, "%s%s", dirname, fname);
                //Compile PRG File
                er = PRG_Check(1, PrgFile);
                if (er == 0)
                {
                    sprintf(buf, "The PRG File: %s was correctly compiled.", fname);
                    MMessageDialog("DAS Inf.", buf, "OK", NULL);
                    on = LoadExec(PrgFile);
                    DI_SplitName(PrgFile, dirname, buf);
                    MObjectSetText(DAS.Gui.ContrPanel.Albl_Script, buf);
                    // DAS Working directory and MGUI Environment
                    sprintf(buf, "%s\\%s", BIL.DFILEM.HOMEDIRECTORY, "DAS.exe");
                    er = SetWorkDirMGUIenv(buf);
                    if (er == -1) 
                    {
                    //Unable to set the enviromental variable
                    }

                    MShellUnrealize(TOOLS.Sh_Tools);
                    MShellDestroy(TOOLS.Sh_Tools);
                }

            }

            
            else if (DAS.Flag.exemode == PRGFILE)
            {
                
                er = MFileBrowseExt ("Replace PRG File in Execution with:", "*.PRG", fname, dirname, &fbp);
                //Put something to verify that this is a good PRG file
                sprintf(PrgFile, "%s%s", dirname, fname);
                on = LoadExec(PrgFile);
                DI_SplitName(PrgFile, dirname, buf);
                MObjectSetText(DAS.Gui.ContrPanel.Albl_Script, buf);
                MShellUnrealize(TOOLS.Sh_Tools);
                MShellDestroy(TOOLS.Sh_Tools);
            }
            else
            {
                MMessageDialog("DAS Inf.","In this Execution Mode the requested oparation can not be executed." , "OK", NULL);

            }

            
            break;
        //temp history
        case 11:            
            er = BrowseLog();
            break;
        //Close
        case 12:            
            MShellUnrealize(TOOLS.Sh_Tools);
            MShellDestroy(TOOLS.Sh_Tools);
            break;
    }


}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_Wl_CB()

void DB_Wl_CB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

callback for grating positioning in Wavelength shell

Parameters

p	calling push button MObject
*ad	calling push button number

Definition at line 5891 of file CreateForms.c.

References WlFlg, and WlSet.

Referenced by MDCreateSh_Wl().

{
    int     c = (int) ad ;
    
    //WlBuff = Wl_Code[c];
    //itoa(wl[c], WlBuff, 10);
    WlSet = c;
    WlFlg = 1;

}

Here is the caller graph for this function:

DB_WlSelButtKB_CB()

void DB_WlSelButtKB_CB	(	MOBJECT	obj,
		MKeyEvent *	pe,
		void *	a_data
	)

callback for selsct a specified wavelength push button with the keyboard

Definition at line 5927 of file CreateForms.c.

References D_A, palette::DB_Sel, palette::DB_UnSel, das::Gui, MKeyEvent::keycode, L_A, MObjectSetBackgroundRGB(), gui::PushButt, R_A, U_A, and pushbutt::Wl.

Referenced by MDCreateSh_Wl().

{

    int c = (int) a_data;

    switch (pe->keycode)
    {
    case R_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        if (c == (sizeof DAS.Gui.PushButt.Wl / sizeof DAS.Gui.PushButt.Wl[0])-1)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[0], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
            break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[c+1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
    case D_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        if (c == (sizeof DAS.Gui.PushButt.Wl / sizeof DAS.Gui.PushButt.Wl[0])-1)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[0], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[c+1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }

    case L_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        if (c == 0)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[(sizeof DAS.Gui.PushButt.Wl / sizeof DAS.Gui.PushButt.Wl[0])-1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[c-1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
    case U_A:
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        if (c == 0)
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[(sizeof DAS.Gui.PushButt.Wl / sizeof DAS.Gui.PushButt.Wl[0])-1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
        else
            {
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[c-1], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                break;
            }
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

DB_WlSelButtMouse_CB()

void DB_WlSelButtMouse_CB	(	MOBJECT	obj,
		MMouseEvent *	pe,
		void *	a_data
	)

callback changing the bakground color of the push button passing the mouse over it

Definition at line 5905 of file CreateForms.c.

References MMouseEvent::button, palette::DB_Sel, palette::DB_UnSel, das::Gui, MObjectSetBackgroundRGB(), gui::PushButt, and pushbutt::Wl.

{

        int c = (int) a_data, i;

    for (i=0; i<(sizeof DAS.Gui.PushButt.Wl / sizeof DAS.Gui.PushButt.Wl[0]); i++)
    {
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[c], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    }

    switch (pe->button)
    {

    case (Button1):
            {
            MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[c], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
            break;
            }
    }
}

Here is the call graph for this function:

DB_WriteMode()

void DB_WriteMode

(

int

mod

)

Definition at line 6722 of file CreateForms.c.

Referenced by ShutCB(), and WinRes().

{
    FILE    *fs;
    
    fs = fopen("LOG\\Paramini.LOG", "w");

        fprintf(fs, "%d   %s", mod, "0 = reinizializza CCD, 1 = mantiene lo stato " );

    fclose(fs);

}

Here is the caller graph for this function:

DT_ShutterCB()

void DT_ShutterCB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Definition at line 3946 of file CreateForms.c.

References CLEARCCD, DC_SetMode(), DC_ShutterControl(), tools::FlagShutter, MObjectSetText(), MPixmapSetImageFile(), NOSHUTTER, and das::Tools.

Referenced by DB_Tools().

{

    MOBJECT c = ad;

    if (DAS.Tools.FlagShutter == 0)
    {
        DAS.Tools.FlagShutter = 1;
        MObjectSetText(p, "Shutter Open");
        MPixmapSetImageFile(c, "SYS\\ledon.bmp");
        DC_SetMode(CLEARCCD, 0, 0);
        DC_SetMode(NOSHUTTER, 1, 0);
        DC_ShutterControl(1, 0);
    }
    else if (DAS.Tools.FlagShutter == 1)
    {
        DAS.Tools.FlagShutter = 0;
        MObjectSetText(p, "Shutter Closed");

        MPixmapSetImageFile(c, "SYS\\ledoff.bmp");
        DC_SetMode(CLEARCCD, 1, 0);
        DC_SetMode(NOSHUTTER, 0, 0);
        DC_ShutterControl(0, 0);
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

ExecSimPosCB()

void ExecSimPosCB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Definition at line 4362 of file CreateForms.c.

References FWS, MIS, SD_Position(), FilterWheelSt::target, GratingSt::target, MirrorSt::target, ZenithSt::target, and AzimuthSt::target.

Referenced by MDCreateSh_SimPos().

{


    SD_Position(MIS.target, GRS.target, FWS.target, ZST.target, AST.target);

}

Here is the call graph for this function:

Here is the caller graph for this function:

FrmBuildTemperature()

void FrmBuildTemperature

(

MOBJECT

pf

)

Definition at line 151 of file CreateForms.c.

References controlpanel::Albl_LT, CENTER_ALIGN, gui::ContrPanel, palette::DB_BG, palette::DB_BG_Albl, palette::DB_BG_Plbl, palette::DB_FG_Albl, palette::DB_FG_Plbl, False, FIXED_SMALL, das::Gui, HELV_SMALL, lbl, LEFT_ALIGN, MCreateLabel(), MCreateTableForm(), MLabelSetAlignment(), MObjectAlign(), MObjectSetBackgroundRGB(), MObjectSetBGColorFromParent(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetShadow(), MObjectSetText(), MObjectSetTransparency(), MPagedFormSetActivePage(), RIGHT_ALIGN, TOP_ALIGN, True, and WS_SHADOW_IN.

Referenced by MDCreate_CP().

{

    int i;
    char buf[32];
    MOBJECT tb, lbl;

    const char *channel[] ={{"Optic "}, //0
                            {"Out DX"}, //1
                            {"Out SX"}, //2
                            {"In DX "}, //3
                            {"In SX "}, //4
                            {"Grat. "}, //5
                            {"Elect."}, //6
                            {"MIGE  "},//7
                            {"SPARE "},//8
                            {"SPARE "},//9
                            {"SPARE "},//10
                            {"SPARE "},//11
                            {"SPARE "},//12
                            {"SPARE "},//13
                            {"SPARE "},//14
                            {"SPARE "}};//15

    MPagedFormSetActivePage(pf, 0);
    sprintf(buf,"Page 1");
    MObjectSetText(pf, buf);
    MObjectSetForegroundRGB(pf, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);


    tb = MCreateTableForm(pf, 2);
    MObjectSetForegroundRGB(tb, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetShadow(tb, WS_SHADOW_IN, 2, 0);
    MObjectAlign(tb, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetResize(tb, True, False);
    MObjectSetBGColorFromParent(tb, True, 100);

    
    for(i=0;i<8;i++)
    {   
    
/*
        DAS.Gui.ContrPanel.Plbl_LT[i] = MCreateLabel(tb, channel[i], FIXED_SMALL);
        MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_LT[i], LEFT_ALIGN);
        MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_LT[i], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
        MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Plbl_LT[i], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
        MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_LT[i], 0);
*/

        lbl = MCreateLabel(tb, channel[i], FIXED_SMALL);
        MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
        MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
        MObjectSetTransparency(lbl, 0);
        MLabelSetAlignment(lbl, LEFT_ALIGN);
//      MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);

        DAS.Gui.ContrPanel.Albl_LT[i] = MCreateLabel(tb, "+10.0C", HELV_SMALL);
        MLabelSetAlignment(DAS.Gui.ContrPanel.Albl_LT[i], RIGHT_ALIGN);
        MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_LT[i], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
        MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_LT[i], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
        MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_LT[i], 0);
//      MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_LT[i], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
    }

    MPagedFormSetActivePage(pf, 1);
    sprintf(buf,"Page 2");
    MObjectSetText(pf, buf);
    MObjectSetForegroundRGB(pf, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);

    tb = MCreateTableForm(pf, 2);
    MObjectSetForegroundRGB(tb, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetShadow(tb, WS_SHADOW_IN, 2, 0);
    MObjectAlign(tb, CENTER_ALIGN, TOP_ALIGN);
    MObjectSetResize(tb, True, False);
    MObjectSetBGColorFromParent(tb, True, 100);

    for(i=8;i<16;i++)
    {   
    
/*
        DAS.Gui.ContrPanel.Plbl_LT[i] = MCreateLabel(tb, channel[i], FIXED_SMALL);
        MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_LT[i], LEFT_ALIGN);
        MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_LT[i], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
        MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Plbl_LT[i], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
        MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_LT[i], 0);
*/
        lbl = MCreateLabel(tb, channel[i], FIXED_SMALL);
        MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
        MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
        MObjectSetTransparency(lbl, 0);
        MLabelSetAlignment(lbl, LEFT_ALIGN);
//      MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);

        DAS.Gui.ContrPanel.Albl_LT[i] = MCreateLabel(tb, "+10.0C", HELV_SMALL);
        MLabelSetAlignment(DAS.Gui.ContrPanel.Albl_LT[i], RIGHT_ALIGN);
        MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_LT[i], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
        MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_LT[i], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
        MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_LT[i], 0);
//      MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_LT[i], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
    }
    
        MPagedFormSetActivePage(pf, 0);


}

Here is the call graph for this function:

Here is the caller graph for this function:

ListTargetCB()

void ListTargetCB	(	MOBJECT	p,
		LIST_ACT *	la,
		void *	ad
	)

Definition at line 4371 of file CreateForms.c.

References FWS, LIST_ACT::item, MIS, LIST_ACT::pos, FilterWheelSt::target, GratingSt::target, MirrorSt::target, ZenithSt::target, and AzimuthSt::target.

Referenced by MDCreateSh_SimPos().

{

    int c = (int) ad;
    int er = 0;
    char buf[16];
    
    switch (c)
    {
    case 0:
            MIS.target = la->pos;
            break;
    case 1:
            GRS.target = la->pos;

            break;
    case 2:
            FWS.target = la->pos;
            
            break;
    case 4:
        sprintf(buf,"%s", la->item);    
        ZST.target = atof(buf);

            break;
    case 5:
        sprintf(buf,"%s", la->item);    
        AST.target = atof(buf);

            break;

    }



}

Here is the caller graph for this function:

MDCreate_CP()

MOBJECT MDCreate_CP

(

void

)

Create Spectrometer Control Panel. Procedure that build the Control Panel for checking the spectrometer operations such as temperature monitoring, stepper motor positioning, data acquisition ...

Returns

void

Definition at line 1143 of file CreateForms.c.

References controlpanel::Albl_Azim, controlpanel::Albl_CS, controlpanel::Albl_Elev, controlpanel::Albl_IE, controlpanel::Albl_LS, controlpanel::Albl_Script, controlpanel::Albl_Status, controlpanel::Albl_sunr, controlpanel::Albl_suns, CENTER_ALIGN, gui::ContrPanel, CP_Sh, palette::DB_BG, palette::DB_BG_Albl, palette::DB_BG_lblUP, palette::DB_BG_Plbl, palette::DB_FG_Albl, palette::DB_FG_lblUP, palette::DB_FG_Plbl, DB_HelpCB(), DB_InfCB(), DB_KB_ButtonActive(), DB_KeyB_CB(), DB_KeyComSelButtKB_CB(), DB_KeyComSelButtMouse_CB(), DB_LampSelButtMouse_CB(), DB_Redraw_CB(), palette::DB_Sel, palette::DB_UnSel, palette::DB_UnSelFG, das::DOption, EM_BUTTON_PRESS, EM_KEY_PRESS, EM_MOTION, EM_WINDOW_ENTER, F_ATT_NONE, False, FDOUBLE, optionini::filtertype, FIXED_SMALL, FPLUS, FrmBuildTemperature(), FSIMPLE, das::Gui, HELV_MEDIUM, HELV_SMALL, item_advc, pushbutt::KeyB, lbl, controlpanel::lbl_Par, controlpanel::lbl_Time, controlpanel::lblK, controlpanel::LedHG, controlpanel::ledpelt, controlpanel::LedQJ, controlpanel::LedSM, LEFT_ALIGN, MBottomAttach(), MButtonSetOnMouseOverForegroundRGB(), MCreateColForm(), MCreateLabel(), MCreatePButton(), MCreatePixmapFromFile(), MCreatePopupMenu(), MCreateRowForm(), MCreateShell(), MCreateTabbedRowForm(), MCreateTableForm(), MLabelSetAlignment(), MMenuAddItemObsolete(), MObjectAddEventNotifyCallback(), MObjectAlign(), MObjectSetBackgroundRGB(), MObjectSetBGColorFromParent(), MObjectSetCompositeWidth(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetShadow(), MObjectSetTransparency(), MPagedFormSetActivePage(), MPButtonSetCallback(), MSetInputPromptFgRGB(), MSetInputPromptFonts(), MSetInputPromptRGB(), MSetMessageDialogFgRGB(), MSetMessageDialogFonts(), MSetMessageDialogRGB(), stepm::NAMS, controlpanel::Pagedfrm_SM, controlpanel::pblamps, popup_advcalib, PopUpAdvCal_CB(), PupAdvCal_CB(), gui::PushButt, RIGHT_ALIGN, SF_NO_CLOSE, SF_NO_MAXIMIZE, SF_NO_RESIZE, das::StepM, StepperPagForm(), TOP_ALIGN, True, UNDEF_ALIGN, WS_ETCHED_IN, WS_NONE, WS_SHADOW_IN, and WS_SHADOW_OUT.

Referenced by BuildMainShell().

{

    MOBJECT colfrm; //main Container
    
    MOBJECT rowfrm; //left buttons container (first column)

    MOBJECT tb, pb;
    MOBJECT lbl; //
    
    MOBJECT Pagedfrm_Temp;

    int i, k, c = 0;
    int d_events = 0;
    char buff[128];
const char *KeyCom_Code[] = {{"&Mirror"}, //0   0
                            {"&Grating"}, //1   1
                            {"&Filter "}, //2   2
                            
                            {"&NDFilter"}, //5  4
                            {"&MIGE Pos"}, //4  3

                            {"&Ref. Pos."}, //6 5
                            {"F ECU Off "}, //7 6
                            {"SPARE   "}, //8   7
                            
                            {"SPARE   "}, //10  8
                            {"SPARE   "}, //11  9
                            {"Sim.Pos."},  //9  10
                            {"&Horiz M"}, //3   11

                            {"M&vGrat."}, //12  12
                            {"&Config"},//13    13

                            {" Ca&lib "}, //14
                            {"ARan&ge "}, //15
                            {"Ge&tCCD "}, //16
                            {"Average"}, //17 
                            {"Dark  "},  //18
                            {"Save  "},  //19
                            {" PLOT "},  //20
                            {" ZOOM "},//21
                            {"P &X Off"},//22
                            {"P &Y Off"},//23
                            {"A&bout "},//24
                            {"&Pause "},//25
                            {"&Tools "},//26
                            {"&Quit  "}};//27

const char *KeyCom_CodePopUpHelp[]= {{"Set Input Mirror position"}, //0
                            {"Set Grating Position"}, //1
                            {"Set Filter wheel Position"}, //2
                            {"Set Zenith and Azimuth Position"}, //4
                            {"Set zimuth Position"}, //5
                            {"Look for Input Mirror Ref. Pos."}, //6
                            {"Look for Grating Ref. Pos."}, //7
                            {"Look for Filter Wheel Ref. Pos."}, //8
                            {"Look for Zenith Ref. Pos. "}, //10
                            {"Look for Azimuth Ref. Pos."}, //11
                            {"Create shell for Simultaneous Positioning"},  //9
                            {"Create Shell for Horizontal Measurements"}, //3
                            {"Create Shell for free Grating movements"}, //12
                            {"Open DAS Configuration tool"},//13

                            {"Automatic Calibration "}, //14
                            {"Computation Optimum Exposure time "}, //15
                            {"Carry out Light Measurement"}, //16
                            {"Perform Averaged Measurement"}, //17 
                            {"Carry out Dark Measurement "},  //18
                            {"Save current measurements "},  //19
                            {"2D Plot of image"},  //20
                            {"Image Zoom "},//21
                            {"X Profile On/Off"},//22
                            {"Y Profile On/Off"},//23
                            {"Info & Help "},//24
                            {"Pause/Resume Script Execution "},//25
                            {"Open tools Shell "},//26
                            {"Exit Program "}};//27


    /**********************************************************************************/
    // Set the message dialog color and font format
    MSetMessageDialogRGB(DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MSetMessageDialogFgRGB(DPAL.DB_FG_Albl[0],DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MSetMessageDialogFonts(FIXED_SMALL, FIXED_SMALL);
    MSetInputPromptRGB(DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MSetInputPromptFgRGB(DPAL.DB_FG_Albl[0],DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MSetInputPromptFonts(FIXED_SMALL, FIXED_SMALL, FIXED_SMALL);
    /**********************************************************************************/
    
    CP_Sh = MCreateShell(buff, SF_NO_RESIZE|SF_NO_MAXIMIZE|SF_NO_CLOSE);
    MObjectSetBackgroundRGB(CP_Sh, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    //MObjectAddEventNotifyCallback(CP_Sh, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);
    MObjectSetTransparency(CP_Sh, 0);
    
    // Come si mette un'icona nella shell?
    //pix = MCreatePixmapFromFile(CP_Sh, "SYS\\ledoff.bmp");
    
    colfrm = MCreateColForm(CP_Sh);
    MObjectSetShadow(colfrm, WS_NONE, 0, 0);
    //MObjectAddEventNotifyCallback(colfrm, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);
    MObjectSetBGColorFromParent(colfrm, True, 100);
        // Row form for the command buttons
        rowfrm = MCreateRowForm(colfrm);
        MObjectSetShadow(rowfrm, WS_SHADOW_IN, 2, 0);
        MObjectAlign(rowfrm, UNDEF_ALIGN, TOP_ALIGN);
        //MObjectAddEventNotifyCallback(rowfrm, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);
        MObjectSetBGColorFromParent(rowfrm, True, 100);
        c = EM_MOTION | EM_BUTTON_PRESS;
        for (i=0; i < 14; i++)
        {
            //PBUTT.KeyB[i] = MCreatePButton(tb, KeyCom_Code[i], HELV_SMALL);
            DAS.Gui.PushButt.KeyB[i] = MCreatePButton(rowfrm, KeyCom_Code[i], HELV_SMALL);
            MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            MObjectSetForegroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
            //MObjectSetPopupHelp(DAS.Gui.PushButt.KeyB[i] ,KeyCom_CodePopUpHelp[i] , 200, 5000);
            if (i==0) 
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
            MObjectSetCompositeWidth(DAS.Gui.PushButt.KeyB[i], 90);
            MPButtonSetCallback(DAS.Gui.PushButt.KeyB[i], DB_KeyB_CB, (void *) i);
                
            MObjectAddEventNotifyCallback(DAS.Gui.PushButt.KeyB[i], (OBJ_EVENT_CB) DB_KeyComSelButtKB_CB, EM_KEY_PRESS, (void *) i);
            MObjectAddEventNotifyCallback(DAS.Gui.PushButt.KeyB[i], (OBJ_EVENT_CB) DB_KeyComSelButtMouse_CB, c , (void *) i);
            MButtonSetOnMouseOverForegroundRGB(DAS.Gui.PushButt.KeyB[i], 255, 0, 0);
/*
                        
            This code is for activation\deacivation of some pushbuttons depending on 
            instrument type\esecution mode\option flags

            these functions are collected in the
            "DB_KB_ButtonActive" procedure placed after the creation of the second column of buttons 

            if (DAS.Paramini.EqType == TROPOGAS ||
                DAS.Paramini.EqType == SPATRAMPLUS ||
                DAS.Paramini.EqType == GASCODNG1 ||
                DAS.Paramini.EqType == GASCODNG2 ||
                DAS.Paramini.EqType == GASCODNG3 ||
                DAS.Paramini.EqType == SPATRAM2)
            {
                if(i==11)
                    MObjectSetUnsensitive(DAS.Gui.PushButt.KeyB[i]);


                if(i==3 || i==4 || i==8 || i==9)
                {
                    if(DAS.MIGE.linked == 0)
                    {
                        MObjectSetUnsensitive(DAS.Gui.PushButt.KeyB[i]);
                    //MObjectSetBackgroundRGB(optedit, 192, 192, 192);
                
                    }
                }
            }
            if (DAS.Paramini.EqType == SPATRAM || DAS.Paramini.EqType == LIS_)
                if(i==3 || i==4 || i==8 || i==9 || i==10 || i== 11)
                    MObjectSetUnsensitive(DAS.Gui.PushButt.KeyB[i]);                
//          if (DAS.Paramini.EqType == GASCODNG)
//              if(i==4 || i==5 || i==9 || i==10 || i== 11)
//                  MObjectSetUnsensitive(DAS.Gui.PushButt.KeyB[i]);                
*/  
         }



/*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/

    //Second column of labels and controls
    /*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
        rowfrm = MCreateRowForm(colfrm);
        MBottomAttach(rowfrm, F_ATT_NONE, 3, NULL);
        MObjectAlign(rowfrm, UNDEF_ALIGN, TOP_ALIGN);
//      MObjectSetBackgroundRGB(rowfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
        MObjectSetShadow(rowfrm, WS_NONE, 0, 0);
        MObjectSetResize(rowfrm, True, True);
//      MObjectAddEventNotifyCallback(rowfrm, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);
        MObjectSetBGColorFromParent(rowfrm, True, 100);

        DAS.Gui.ContrPanel.lblK[0] = MCreateLabel(rowfrm, "CONTROL PARAMETERS", HELV_SMALL);
        MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lblK[0], DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
        MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lblK[0], DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
        MObjectSetTransparency(DAS.Gui.ContrPanel.lblK[0], 0);
        MObjectSetShadow(DAS.Gui.ContrPanel.lblK[0], WS_SHADOW_OUT, 1, 0);
//      MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lblK[0], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 3);

            tb = MCreateTableForm(rowfrm, 2);
            MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
            MObjectSetResize(tb, True, False);
            MObjectSetShadow(tb, WS_SHADOW_IN, 2, 0);
//          MObjectAddEventNotifyCallback(tb, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);
            MObjectSetBGColorFromParent(tb, True, 100);
/*
                DAS.Gui.ContrPanel.lbl_NP[0] = MCreateLabel(tb, "CCD Target Temp.:", FIXED_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_NP[0], LEFT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_NP[0], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_NP[0], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_NP[0], 0);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_NP[0], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
*/
            d_events = EM_WINDOW_ENTER | EM_MOTION;

                lbl = MCreateLabel(tb, "CCD Target Temp.:", FIXED_SMALL);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, d_events , (void *) 1);

                
                DAS.Gui.ContrPanel.lbl_Par[0] = MCreateLabel(tb, "+10.0C", HELV_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_Par[0], RIGHT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_Par[0], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_Par[0], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_Par[0], 0);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_Par[0], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
                
/*              DAS.Gui.ContrPanel.lbl_NP[1] = MCreateLabel(tb, "CCD Pelt. Init Pwr:", FIXED_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_NP[1], LEFT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_NP[1], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_NP[1], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_NP[1], 0);
                MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_NP[1], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
*/              
                lbl = MCreateLabel(tb, "CCD Pelt. Init Pwr:", FIXED_SMALL);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
                
                DAS.Gui.ContrPanel.lbl_Par[1] = MCreateLabel(tb, "100%", HELV_SMALL);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_Par[1], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_Par[1], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_Par[1], 0);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_Par[1], RIGHT_ALIGN);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_Par[1], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);              
/*              
                DAS.Gui.ContrPanel.lbl_NP[2] = MCreateLabel(tb, "OMU Target Temp.:", FIXED_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_NP[2], LEFT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_NP[2], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_NP[2], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_NP[2], 0);
                MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_NP[2], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
*/
                
                lbl = MCreateLabel(tb, "OMU Target Temp.:", FIXED_SMALL);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);

                DAS.Gui.ContrPanel.lbl_Par[2] = MCreateLabel(tb, "+10.0C", HELV_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_Par[2], RIGHT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_Par[2], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_Par[2], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_Par[2], 0);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_Par[2], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
/*              
                DAS.Gui.ContrPanel.lbl_NP[10] = MCreateLabel(tb, "OMU Pelt. Init Pwr:", FIXED_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_NP[10], LEFT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_NP[10], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_NP[10], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_NP[10], 0);
                MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_NP[10], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
*/
                lbl = MCreateLabel(tb, "OMU Pelt. Init Pwr:", FIXED_SMALL);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
                
                DAS.Gui.ContrPanel.lbl_Par[10] = MCreateLabel(tb, "100%", HELV_SMALL);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_Par[10], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_Par[10], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_Par[10], 0);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_Par[10], RIGHT_ALIGN);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_Par[10], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);

/*******************************************************************************************************/
        DAS.Gui.ContrPanel.lblK[1] = MCreateLabel(rowfrm, "CCD PARAMETERS", HELV_SMALL);
        MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lblK[1], DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
        MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lblK[1], DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
        MObjectSetShadow(DAS.Gui.ContrPanel.lblK[1], WS_SHADOW_OUT, 1, 0);
        MObjectSetTransparency(DAS.Gui.ContrPanel.lblK[1], 0);
//      MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lblK[1], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 3);

            tb = MCreateTableForm(rowfrm, 4);
            MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
            MObjectSetResize(tb, True, False);
            MObjectSetShadow(tb, WS_SHADOW_IN, 2, 0);
//          MObjectAddEventNotifyCallback(tb, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);
            MObjectSetBGColorFromParent(tb, True, 100);
/*
                DAS.Gui.ContrPanel.lbl_NP[3] = MCreateLabel(tb, "H. Pix.:", FIXED_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_NP[3], LEFT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_NP[3], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_NP[3], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_NP[3], 0);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_NP[3], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
*/
                lbl = MCreateLabel(tb, "H. Pix:", FIXED_SMALL);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);

                DAS.Gui.ContrPanel.lbl_Par[3] = MCreateLabel(tb, "0000", HELV_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_Par[3], RIGHT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_Par[3], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_Par[3], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_Par[3], 0);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_Par[3], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
/*          
                DAS.Gui.ContrPanel.lbl_NP[4] = MCreateLabel(tb, "V. Pix:", FIXED_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_NP[4], LEFT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_NP[4], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_NP[4], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    //          MObjectSetShadow(DAS.Gui.ContrPanel.lbl_NP[4], WS_SHADOW_IN, 2, 1);
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_NP[4], 0);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_NP[4], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
 */         
                lbl = MCreateLabel(tb, "V. Pix:", FIXED_SMALL);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);

                DAS.Gui.ContrPanel.lbl_Par[4] = MCreateLabel(tb, " 0000", HELV_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_Par[4], RIGHT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_Par[4], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_Par[4], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_Par[4], 0);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_Par[4], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
    
/*******************************************************************************************************/

        DAS.Gui.ContrPanel.lblK[2] = MCreateLabel(rowfrm, "CCD WINDOW", HELV_SMALL);
        MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lblK[2], DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
        MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lblK[2], DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
        MObjectSetShadow(DAS.Gui.ContrPanel.lblK[2], WS_SHADOW_OUT, 1, 0);
        MObjectSetTransparency(DAS.Gui.ContrPanel.lblK[2], 0);
//      MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lblK[2], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 3);

            tb = MCreateTableForm(rowfrm, 4);
            MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
            MObjectSetResize(tb, True, False);
            MObjectSetShadow(tb, WS_SHADOW_IN, 2, 0);
//          MObjectAddEventNotifyCallback(tb, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);
            MObjectSetBGColorFromParent(tb, True, 100);
/*

                DAS.Gui.ContrPanel.lbl_NP[5] = MCreateLabel(tb , "X Start:", FIXED_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_NP[5], LEFT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_NP[5], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_NP[5], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
            //  MObjectSetShadow(DAS.Gui.ContrPanel.lbl_NP[5], WS_SHADOW_IN, 2, 1);
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_NP[5], 0);
                MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_NP[5], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
*/
                lbl = MCreateLabel(tb, "X Start:", FIXED_SMALL);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
                
                DAS.Gui.ContrPanel.lbl_Par[5] = MCreateLabel(tb, "    ", HELV_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_Par[5], RIGHT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_Par[5], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_Par[5], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_Par[5], 0);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_Par[5], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
/*          
                DAS.Gui.ContrPanel.lbl_NP[6] = MCreateLabel(tb, "Y Start:", FIXED_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_NP[6], LEFT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_NP[6], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_NP[6], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
            //  MObjectSetShadow(DAS.Gui.ContrPanel.lbl_NP[6], WS_SHADOW_IN, 2, 1);
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_NP[6], 0);
                MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_NP[6], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
*/          
                lbl = MCreateLabel(tb, "Y Start:", FIXED_SMALL);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);

                DAS.Gui.ContrPanel.lbl_Par[6] = MCreateLabel(tb, "    ", HELV_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_Par[6], RIGHT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_Par[6], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_Par[6], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_Par[6], 0);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_Par[6], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
/*          
                DAS.Gui.ContrPanel.lbl_NP[7] = MCreateLabel(tb, "X End:", FIXED_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_NP[7], LEFT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_NP[7], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_NP[7], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
            //  MObjectSetShadow(DAS.Gui.ContrPanel.lbl_NP[7], WS_SHADOW_IN, 2, 1);
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_NP[7], 0);
                MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_NP[7], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
*/          
                lbl = MCreateLabel(tb, "X End:", FIXED_SMALL);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);

                DAS.Gui.ContrPanel.lbl_Par[7] = MCreateLabel(tb, "    ", HELV_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_Par[5], RIGHT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_Par[7], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_Par[7], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_Par[7], 0);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_Par[7], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
/*          
                DAS.Gui.ContrPanel.lbl_NP[8] = MCreateLabel(tb, "Y End:", FIXED_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_NP[8], LEFT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_NP[8], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_NP[8], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
            //  MObjectSetShadow(DAS.Gui.ContrPanel.lbl_NP[8], WS_SHADOW_IN, 2, 1);
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_NP[8], 0);
                MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_NP[8], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
*/
                lbl = MCreateLabel(tb, "Y End:", FIXED_SMALL);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
                
                DAS.Gui.ContrPanel.lbl_Par[8] = MCreateLabel(tb, "    ", HELV_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_Par[8], RIGHT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_Par[8], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_Par[8], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_Par[8], 0);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_Par[8], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);

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

            tb = MCreateTableForm(rowfrm, 2);
            MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
            MObjectSetResize(tb, True, False);
            MObjectSetShadow(tb, WS_SHADOW_IN, 2, 0);
//          MObjectAddEventNotifyCallback(tb, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);
            MObjectSetBGColorFromParent(tb, True, 100);

/*
                DAS.Gui.ContrPanel.lbl_NP[9] = MCreateLabel(tb, "Vert.Bin.", FIXED_SMALL);                                                  
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_NP[9], LEFT_ALIGN);                                                               
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_NP[9], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);          
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_NP[9], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);          
            //  MObjectSetShadow(DAS.Gui.ContrPanel.lbl_NP[9], WS_SHADOW_IN, 2, 1);                                                         
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_NP[9], 0);                                                                    
                MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_NP[9], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
*/
                lbl = MCreateLabel(tb, "Vert.Bin:", FIXED_SMALL);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);

                DAS.Gui.ContrPanel.lbl_Par[9] = MCreateLabel(tb, "00", HELV_SMALL);                                                         
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_Par[9], RIGHT_ALIGN);                                                             
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_Par[9], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);         
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_Par[9], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);         
                MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_Par[9], 0);                                                                   
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_Par[9], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);

    /***********************  STEPPERS  *************************/

        DAS.Gui.ContrPanel.lblK[3] = MCreateLabel(rowfrm, "STEPPER MOTORS", HELV_SMALL);
        MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lblK[3], DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
        MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lblK[3], DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
        MObjectSetShadow(DAS.Gui.ContrPanel.lblK[3], WS_SHADOW_OUT, 1, 0);
        MObjectSetTransparency(DAS.Gui.ContrPanel.lblK[3], 0);
//      MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lblK[3], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 3);


                DAS.Gui.ContrPanel.Pagedfrm_SM = MCreateTabbedRowForm(rowfrm, DAS.StepM.NAMS*2, FIXED_SMALL);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Pagedfrm_SM, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Pagedfrm_SM, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Pagedfrm_SM, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);
                MObjectSetBGColorFromParent(DAS.Gui.ContrPanel.Pagedfrm_SM, True, 100);

                for (i=0;i<DAS.StepM.NAMS;i++)
                {
                    for(k=0;k<2;k++)
                    {
                        StepperPagForm(i, k);
                    }
                }
                MPagedFormSetActivePage(DAS.Gui.ContrPanel.Pagedfrm_SM, 0);

    /***********************  STEPPERS END *************************/

/*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/


    //Seconda colonna di labels e controlli
        rowfrm = MCreateRowForm(colfrm);
        MBottomAttach(rowfrm, F_ATT_NONE, 3, NULL);
        MObjectAlign(rowfrm, UNDEF_ALIGN, TOP_ALIGN);
        MObjectSetBackgroundRGB(rowfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
        MObjectSetShadow(rowfrm, WS_NONE, 0, 0);
        MObjectSetResize(rowfrm, True, True);
//      MObjectAddEventNotifyCallback(rowfrm, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);
        MObjectSetBGColorFromParent(rowfrm, True, 100);

        DAS.Gui.ContrPanel.lblK[4] = MCreateLabel(rowfrm, "CCD-OMU STATUS", HELV_SMALL);
        MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lblK[4], DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
        MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lblK[4], DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
        MObjectSetShadow(DAS.Gui.ContrPanel.lblK[4], WS_SHADOW_OUT, 1, 0);
        MObjectSetTransparency(DAS.Gui.ContrPanel.lblK[4], 0);
//      MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lblK[4], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 3);

            tb = MCreateTableForm(rowfrm, 2);
            MObjectSetForegroundRGB(tb, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
            MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
            MObjectSetShadow(tb, WS_SHADOW_IN, 2, 0);
            MObjectSetResize(tb, True, False);
//          MObjectAddEventNotifyCallback(tb, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);
            MObjectSetBGColorFromParent(tb, True, 100);

/*              DAS.Gui.ContrPanel.Plbl_CS[0] = MCreateLabel(tb, "CCD Actual Temp.:", FIXED_SMALL);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_CS[0], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Plbl_CS[0], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_CS[0], 0);
                MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_CS[0], LEFT_ALIGN);
*/
                lbl = MCreateLabel(tb, "CCD Actual Temp.:", FIXED_SMALL);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
                
            
                DAS.Gui.ContrPanel.Albl_CS[0] = MCreateLabel(tb, "+10.0C", HELV_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.Albl_CS[0], RIGHT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_CS[0], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_CS[0], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_CS[0], 0);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_CS[0], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
/*              
                DAS.Gui.ContrPanel.Plbl_CS[1] = MCreateLabel(tb, "CCD Pelt. Act. Pwr.:", FIXED_SMALL);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_CS[1], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Plbl_CS[1], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_CS[1], 0);
                MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_CS[1], LEFT_ALIGN);
*/
                lbl = MCreateLabel(tb, "CCD Pelt Act Pwr:", FIXED_SMALL);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
                
                DAS.Gui.ContrPanel.Albl_CS[1] = MCreateLabel(tb, "100%", HELV_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.Albl_CS[1], RIGHT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_CS[1], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_CS[1], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_CS[1], 0);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_CS[1], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
 /*             
                DAS.Gui.ContrPanel.Plbl_LS[6] = MCreateLabel(tb, "Delta Temp.", FIXED_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_LS[6], LEFT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_LS[6], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Plbl_LS[6], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_LS[6], 0);
*/              
                lbl = MCreateLabel(tb, "Delta Temp.:", FIXED_SMALL);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);

                DAS.Gui.ContrPanel.Albl_LS[6] = MCreateLabel(tb, "+10.0C", HELV_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.Albl_LS[6], RIGHT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_LS[6], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_LS[6], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_LS[6], 0);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_LS[6], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
/*              
                DAS.Gui.ContrPanel.Plbl_LS[7] = MCreateLabel(tb, "OMU Pelt.Act.Pwr:", FIXED_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_LS[7], LEFT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_LS[7], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Plbl_LS[7], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_LS[7], 0);
*/
                lbl = MCreateLabel(tb, "OMU Pelt.Act.Pwr:", FIXED_SMALL);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
                
                DAS.Gui.ContrPanel.Albl_LS[7] = MCreateLabel(tb, "100%", HELV_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.Albl_LS[7], RIGHT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_LS[7], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_LS[7], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_LS[7], 0);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_LS[7], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
                
                DAS.Gui.ContrPanel.ledpelt[0] = MCreatePixmapFromFile(tb, "SYS\\pltoff.bmp");
                MObjectSetShadow(DAS.Gui.ContrPanel.ledpelt[0], WS_NONE, 0, 0);
                MObjectAlign(DAS.Gui.ContrPanel.ledpelt[0], CENTER_ALIGN, TOP_ALIGN);
                
                DAS.Gui.ContrPanel.ledpelt[1] = MCreatePixmapFromFile(tb, "SYS\\pltoff.bmp");
                MObjectSetShadow(DAS.Gui.ContrPanel.ledpelt[1], WS_NONE, 0, 0);
                MObjectAlign(DAS.Gui.ContrPanel.ledpelt[1], CENTER_ALIGN, TOP_ALIGN);

/*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/


        DAS.Gui.ContrPanel.lblK[5] = MCreateLabel(rowfrm, "STEPPERS STATUS", HELV_SMALL);
        MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lblK[5], DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
        MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lblK[5], DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
        MObjectSetShadow(DAS.Gui.ContrPanel.lblK[5], WS_SHADOW_OUT, 1, 0);
        MObjectSetTransparency(DAS.Gui.ContrPanel.lblK[5], 0);
//      MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lblK[5], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 3);

                tb = MCreateTableForm(rowfrm, DAS.StepM.NAMS*2);
                MObjectSetForegroundRGB(tb, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
                MObjectSetResize(tb, True, False);
                MObjectSetShadow(tb, WS_SHADOW_IN, 2, 0);
//              MObjectAddEventNotifyCallback(tb, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);
                MObjectSetBGColorFromParent(tb, True, 100);

                for (i=0;i<DAS.StepM.NAMS;i++)
                {
                    for(k=0;k<2;k++)
                    {
                        sprintf(buff,"SM%d", (2*i+k+1));
/*
                        DAS.Gui.ContrPanel.Plbl_SM[i][k] = MCreateLabel(tb, buff, FIXED_SMALL);
                        MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_SM[i][k], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                        MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Plbl_SM[i][k], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                        MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_SM[i][k], 0);
                        MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_SM[i][k], CENTER_ALIGN);
*/
                        lbl = MCreateLabel(tb, buff, FIXED_SMALL);
                        MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                        MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                        MObjectSetTransparency(lbl, 0);
                        MLabelSetAlignment(lbl, LEFT_ALIGN);
//                      MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
                
                        
                        DAS.Gui.ContrPanel.LedSM[i][k] = MCreatePixmapFromFile(tb, "SYS\\ledoff.bmp");
                        MObjectSetShadow(DAS.Gui.ContrPanel.LedSM[i][k], WS_NONE, 0, 0);
                    }
                }

/*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/

        DAS.Gui.ContrPanel.lblK[6] = MCreateLabel(rowfrm, "ACTIVITY ", HELV_SMALL);
        MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lblK[6], DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
        MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lblK[6], DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
        MObjectSetShadow(DAS.Gui.ContrPanel.lblK[6], WS_SHADOW_OUT, 1, 0);
        MObjectSetTransparency(DAS.Gui.ContrPanel.lblK[6], 0);
//      MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lblK[6], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 3);

            tb = MCreateTableForm(rowfrm, 2);
            MObjectSetForegroundRGB(tb, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
            MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
            MObjectSetResize(tb, True, True);
            MObjectSetShadow(tb, WS_SHADOW_IN, 2, 0);
            MObjectSetBGColorFromParent(tb, True, 100);
/*
                DAS.Gui.ContrPanel.Plbl_Script = MCreateLabel(tb, "Script-Use:", FIXED_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_Script, LEFT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_Script, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Plbl_Script, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_Script, 0);
*/
                lbl = MCreateLabel(tb, "Script-Use:", FIXED_SMALL);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
            
                DAS.Gui.ContrPanel.Albl_Script = MCreateLabel(tb, "XXXXXXXX.PRG", HELV_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.Albl_Script, RIGHT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_Script, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_Script, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_Script, 0);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_Script, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);

/*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
/*
    DAS.Gui.ContrPanel.lblK[9] = MCreateLabel(_rowform002, "ACTIVITY ", HELV_SMALL);
    MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lblK[9], DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
    MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lblK[9], DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
    MObjectSetShadow(DAS.Gui.ContrPanel.lblK[9], WS_SHADOW_OUT, 1, 0);
    MObjectSetTransparency(DAS.Gui.ContrPanel.lblK[9], 0);
*/
            tb = MCreateTableForm(rowfrm, 2);
            MObjectSetForegroundRGB(tb, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
            MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
            MObjectSetResize(tb, True, True);
            MObjectSetShadow(tb, WS_SHADOW_IN, 2, 0);
//          MObjectAddEventNotifyCallback(tb, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);
            MObjectSetBGColorFromParent(tb, True, 100);
/*
                DAS.Gui.ContrPanel.Plbl_CS[2] = MCreateLabel(tb, "Acq.#:", FIXED_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_CS[2], LEFT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_CS[2], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Plbl_CS[2], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_CS[2], 0);
*/
            
                lbl = MCreateLabel(tb, "Acq.#:", FIXED_SMALL);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
                
                DAS.Gui.ContrPanel.Albl_CS[2] = MCreateLabel(tb, "                   0", HELV_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.Albl_CS[2], RIGHT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_CS[2], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_CS[2], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_CS[2], 0);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_CS[2], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
/*          
                DAS.Gui.ContrPanel.Plbl_CS[3] = MCreateLabel(tb, "File:", FIXED_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_CS[3], LEFT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_CS[3], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Plbl_CS[3], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_CS[3], 0);
*/          

                lbl = MCreateLabel(tb, "File:", FIXED_SMALL);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
                
                
                DAS.Gui.ContrPanel.Albl_CS[3] = MCreateLabel(tb, "                      ", HELV_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.Albl_CS[3], RIGHT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_CS[3], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_CS[3], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_CS[3], 0);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_CS[3], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
            
/*          
                DAS.Gui.ContrPanel.Plbl_IE[0] = MCreateLabel(tb, "AutoR:", FIXED_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_IE[0], LEFT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_IE[0], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Plbl_IE[0], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_IE[0], 0);
*/
                lbl = MCreateLabel(tb, "AutoR:", FIXED_SMALL);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
                
                
                DAS.Gui.ContrPanel.Albl_IE[0] = MCreateLabel(tb, "0.002", HELV_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.Albl_IE[0], RIGHT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_IE[0], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_IE[0], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_IE[0], 0);
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_IE[0], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
            /*
                DAS.Gui.ContrPanel.Plbl_IE[1] = MCreateLabel(tb, "Dwnld:", FIXED_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_IE[1], LEFT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_IE[1], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Plbl_IE[1], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_IE[1], 0);
            
                DAS.Gui.ContrPanel.Albl_IE[1] = MCreateLabel(tb, "xxxxx", HELV_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.Albl_IE[1], RIGHT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_IE[1], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_IE[1], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_IE[1], 0);
            */
/*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
        DAS.Gui.ContrPanel.lblK[7] = MCreateLabel(rowfrm, "LAMPS STATUS", HELV_SMALL);
        MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lblK[7], DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
        MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lblK[7], DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
        MObjectSetShadow(DAS.Gui.ContrPanel.lblK[7], WS_SHADOW_OUT, 1, 0);
        MObjectSetTransparency(DAS.Gui.ContrPanel.lblK[7], 0);
//      MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lblK[7], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 3);


            tb = MCreateTableForm(rowfrm, 4);
            MObjectAlign(tb, LEFT_ALIGN, TOP_ALIGN);
            MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
            MObjectSetResize(tb, True, True);
            MObjectSetShadow(tb, WS_SHADOW_IN, 2, 0);
//          MObjectAddEventNotifyCallback(tb, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);
            MObjectSetBGColorFromParent(tb, True, 100);

                DAS.Gui.ContrPanel.LedHG = MCreatePixmapFromFile(tb, "SYS\\ledoff.bmp");
                MObjectAlign(DAS.Gui.ContrPanel.LedHG, LEFT_ALIGN, TOP_ALIGN);

                DAS.Gui.ContrPanel.pblamps[0] = MCreatePButton(tb, "Hg Off", HELV_SMALL);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.pblamps[0], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.pblamps[0], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
                MPButtonSetCallback(DAS.Gui.ContrPanel.pblamps[0], DB_KeyB_CB, (void *) 100);
                MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.pblamps[0], (OBJ_EVENT_CB) DB_LampSelButtMouse_CB, c , (void *) 0);
                MButtonSetOnMouseOverForegroundRGB(DAS.Gui.ContrPanel.pblamps[0], 255, 0, 0);
                MObjectSetResize(DAS.Gui.ContrPanel.pblamps[0], True, True);
                MObjectAlign(DAS.Gui.ContrPanel.pblamps[0], LEFT_ALIGN, TOP_ALIGN);


                DAS.Gui.ContrPanel.LedQJ = MCreatePixmapFromFile(tb, "SYS\\ledoff.bmp");
                MObjectAlign(DAS.Gui.ContrPanel.LedQJ, RIGHT_ALIGN, TOP_ALIGN);

                DAS.Gui.ContrPanel.pblamps[1] = MCreatePButton(tb, "Qj Off", HELV_SMALL);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.pblamps[1], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.pblamps[1], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
                MPButtonSetCallback(DAS.Gui.ContrPanel.pblamps[1], DB_KeyB_CB,  (void *) 111);
                MButtonSetOnMouseOverForegroundRGB(DAS.Gui.ContrPanel.pblamps[1], 255, 0, 0);
                MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.pblamps[1], (OBJ_EVENT_CB) DB_LampSelButtMouse_CB, c , (void *) 1);
                MObjectSetResize(DAS.Gui.ContrPanel.pblamps[1], True, True);
                MObjectAlign(DAS.Gui.ContrPanel.pblamps[1], LEFT_ALIGN, TOP_ALIGN);
    
/*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
    
    /*******************************************************************/
/*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
        rowfrm = MCreateRowForm(colfrm);
        MObjectSetBackgroundRGB(rowfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
        MObjectSetShadow(rowfrm, WS_NONE, 0, 0);
        MObjectSetResize(rowfrm, True, False);
        MObjectAlign(rowfrm, RIGHT_ALIGN, TOP_ALIGN);
//      MObjectAddEventNotifyCallback(rowfrm, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);
        MObjectSetBGColorFromParent(rowfrm, True, 100);

        DAS.Gui.ContrPanel.lblK[8] = MCreateLabel(rowfrm, "DEVICES STATUS", HELV_SMALL);
        MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lblK[8], DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
        MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lblK[8], DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
        MObjectSetShadow(DAS.Gui.ContrPanel.lblK[8], WS_SHADOW_OUT, 1, 0);
        MObjectAlign(DAS.Gui.ContrPanel.lblK[8], RIGHT_ALIGN, TOP_ALIGN);
        MObjectSetTransparency(DAS.Gui.ContrPanel.lblK[8], 0);
//      MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lblK[8], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 3);

            tb = MCreateTableForm(rowfrm, 2);
            MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
            MObjectSetResize(tb, True, False);
            MObjectSetShadow(tb, WS_SHADOW_IN, 2, 0);
            MObjectAlign(tb, CENTER_ALIGN, TOP_ALIGN);
//          MObjectAddEventNotifyCallback(tb, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);
            MObjectSetBGColorFromParent(tb, True, 100);
/*
                DAS.Gui.ContrPanel.Plbl_LS[0] = MCreateLabel(tb, "Source Mirror:", FIXED_SMALL);                                   
                MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_LS[0], LEFT_ALIGN);                                                     
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_LS[0], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Plbl_LS[0], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_LS[0], 0);                                                          
                MObjectAlign(DAS.Gui.ContrPanel.Plbl_LS[0], CENTER_ALIGN, TOP_ALIGN);                                              
*/                                                                                                                  
                lbl = MCreateLabel(tb, "Source Mirror", FIXED_SMALL);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
                MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
                
                DAS.Gui.ContrPanel.Albl_LS[0] = MCreateLabel(tb, "         ", HELV_SMALL);                                         
                MObjectSetCompositeWidth(DAS.Gui.ContrPanel.Albl_LS[0], 120);                                                       
                MLabelSetAlignment(DAS.Gui.ContrPanel.Albl_LS[0], RIGHT_ALIGN);                                                    
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_LS[0], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_LS[0], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_LS[0], 0);                                                          
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_LS[0], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
                                                                                                                    
/*              DAS.Gui.ContrPanel.Plbl_LS[1] = MCreateLabel(tb, "Grating:", FIXED_SMALL);                                         
                MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_LS[1], LEFT_ALIGN);                                                     
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_LS[1], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Plbl_LS[1], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_LS[1], 0);                                                          
*/                                                                                                                  
                lbl = MCreateLabel(tb, "Grating:", FIXED_SMALL);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
                
                DAS.Gui.ContrPanel.Albl_LS[1] = MCreateLabel(tb, "", HELV_SMALL);                                                  
                MLabelSetAlignment(DAS.Gui.ContrPanel.Albl_LS[1], RIGHT_ALIGN);                                                    
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_LS[1], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_LS[1], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_LS[1], 0);                                                          
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_LS[1], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
                                                                                                                    
/*              DAS.Gui.ContrPanel.Plbl_LS[2] = MCreateLabel(tb, "Filter Wheel:", FIXED_SMALL);                                    
                MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_LS[2], LEFT_ALIGN);                                                     
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_LS[2], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Plbl_LS[2], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_LS[2], 0);                                                          
*/  
                lbl = MCreateLabel(tb, "Filter Wheel:", FIXED_SMALL);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
                
                                                                                                                    
                DAS.Gui.ContrPanel.Albl_LS[2] = MCreateLabel(tb, " ", HELV_SMALL);                                                 
                MLabelSetAlignment(DAS.Gui.ContrPanel.Albl_LS[2], RIGHT_ALIGN);                                                    
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_LS[2], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_LS[2], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_LS[2], 0);                                                          
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_LS[2], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
/*                                                                                                                  
                DAS.Gui.ContrPanel.Plbl_LS[3] = MCreateLabel(tb, "Unused", FIXED_SMALL);                                           
                MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_LS[3], LEFT_ALIGN);                                                     
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_LS[3], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Plbl_LS[3], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_LS[3], 0);                                                          
                MObjectAlign(DAS.Gui.ContrPanel.Plbl_LS[3], CENTER_ALIGN, TOP_ALIGN);                                              
*/

                
                if((DAS.DOption.filtertype == FPLUS) | (DAS.DOption.filtertype == FDOUBLE) )
                    lbl = MCreateLabel(tb, "NDFiter", FIXED_SMALL);
                if(DAS.DOption.filtertype == FSIMPLE)
                    lbl = MCreateLabel(tb, "Not Used", FIXED_SMALL);            
                
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);

                if((DAS.DOption.filtertype == FPLUS) | (DAS.DOption.filtertype == FDOUBLE) )
                    DAS.Gui.ContrPanel.Albl_LS[3] = MCreateLabel(tb, "      OFF", HELV_SMALL);                                         
                if(DAS.DOption.filtertype == FSIMPLE)
                    DAS.Gui.ContrPanel.Albl_LS[3] = MCreateLabel(tb, "         ", HELV_SMALL);                                         
                
                MObjectSetCompositeWidth(DAS.Gui.ContrPanel.Albl_LS[3], 120);                                                       
                MLabelSetAlignment(DAS.Gui.ContrPanel.Albl_LS[3], RIGHT_ALIGN);                                                    
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_LS[3], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_LS[3], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_LS[3], 0);                                                          
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_LS[3], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
                                                                                                                    
/*              DAS.Gui.ContrPanel.Plbl_LS[4] = MCreateLabel(tb, "Zenith:", FIXED_SMALL);                                          
                MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_LS[4], LEFT_ALIGN);                                                     
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_LS[4], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Plbl_LS[4], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_LS[4], 0);                                                          
*/
                lbl = MCreateLabel(tb, "Zenith:", FIXED_SMALL);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
                
                
                DAS.Gui.ContrPanel.Albl_LS[4] = MCreateLabel(tb, "", HELV_SMALL);                                                  
                MLabelSetAlignment(DAS.Gui.ContrPanel.Albl_LS[4], RIGHT_ALIGN);                                                    
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_LS[4], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_LS[4], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_LS[4], 0);                                                          
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_LS[4], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
                                                                                                                    
/*              DAS.Gui.ContrPanel.Plbl_LS[5] = MCreateLabel(tb, "Azimuth:", FIXED_SMALL);                                         
                MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_LS[5], LEFT_ALIGN);                                                     
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_LS[5], DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Plbl_LS[5], DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_LS[5], 0);                                                          
*/
                lbl = MCreateLabel(tb, "Azimuth:", FIXED_SMALL);
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
                MLabelSetAlignment(lbl, LEFT_ALIGN);
//              MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);
                
                
                DAS.Gui.ContrPanel.Albl_LS[5] = MCreateLabel(tb, " ", HELV_SMALL);                                                 
                MLabelSetAlignment(DAS.Gui.ContrPanel.Albl_LS[5], RIGHT_ALIGN);                                                    
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_LS[5], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_LS[5], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_LS[5], 0);                                                          
//              MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_LS[5], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);
    
/*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
    
        DAS.Gui.ContrPanel.lblK[9] = MCreateLabel(rowfrm, "TEMPERATURES", HELV_SMALL);
        MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lblK[9], DPAL.DB_FG_lblUP[0], DPAL.DB_FG_lblUP[1], DPAL.DB_FG_lblUP[2]);
        MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lblK[9], DPAL.DB_BG_lblUP[0], DPAL.DB_BG_lblUP[1], DPAL.DB_BG_lblUP[2]);
        MObjectSetShadow(DAS.Gui.ContrPanel.lblK[9], WS_SHADOW_OUT, 1, 0);
        MObjectAlign(DAS.Gui.ContrPanel.lblK[9], CENTER_ALIGN, TOP_ALIGN);
        MObjectSetTransparency(DAS.Gui.ContrPanel.lblK[9], 0);
//      MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lblK[9], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 3);

    
        Pagedfrm_Temp = MCreateTabbedRowForm(rowfrm, 2, FIXED_SMALL);
        MObjectSetForegroundRGB(Pagedfrm_Temp, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
        MObjectSetBackgroundRGB(Pagedfrm_Temp, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
        MObjectSetBGColorFromParent(Pagedfrm_Temp, True, 100);

            FrmBuildTemperature(Pagedfrm_Temp); 

/***************************   COMMANDS   *********************************************/

    popup_advcalib = MCreatePopupMenu (HELV_SMALL);
    item_advc = MMenuAddItemObsolete(popup_advcalib, "Adv. Calib", PopUpAdvCal_CB, (void *) 0);
    MObjectSetBackgroundRGB(popup_advcalib, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetForegroundRGB(popup_advcalib, DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
            
            
            
        rowfrm = MCreateRowForm(colfrm);
        MObjectSetBackgroundRGB(rowfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
        MObjectSetShadow(rowfrm, WS_SHADOW_IN, 2, 0);
        MObjectAlign(rowfrm, UNDEF_ALIGN, TOP_ALIGN);
        MObjectSetResize(rowfrm, True, False);
//      MObjectAddEventNotifyCallback(rowfrm, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);
        MObjectSetBGColorFromParent(rowfrm, True, 100);

            for (i=14; i < 28; i++)
            {
                DAS.Gui.PushButt.KeyB[i] = MCreatePButton(rowfrm, KeyCom_Code[i], HELV_SMALL);
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
                MObjectSetForegroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
                //MObjectSetPopupHelp(DAS.Gui.PushButt.KeyB[i] ,KeyCom_CodePopUpHelp[i] , 200, 5000);
                if (i==0) 
                    MObjectSetBackgroundRGB(DAS.Gui.PushButt.KeyB[i], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                MObjectSetCompositeWidth(DAS.Gui.PushButt.KeyB[i], 90);
                MPButtonSetCallback(DAS.Gui.PushButt.KeyB[i], DB_KeyB_CB, (void *) i);
                MObjectAddEventNotifyCallback(DAS.Gui.PushButt.KeyB[i], (OBJ_EVENT_CB) DB_KeyComSelButtKB_CB, EM_KEY_PRESS, (void *) i);
                MObjectAddEventNotifyCallback(DAS.Gui.PushButt.KeyB[i], (OBJ_EVENT_CB) DB_KeyComSelButtMouse_CB, c , (void *) i);
                MButtonSetOnMouseOverForegroundRGB(DAS.Gui.PushButt.KeyB[i], 255, 0, 0);
                MObjectAlign(DAS.Gui.PushButt.KeyB[i], UNDEF_ALIGN, TOP_ALIGN);
                if (i==14) 
                    MObjectAddEventNotifyCallback (DAS.Gui.PushButt.KeyB[i], PupAdvCal_CB, EM_BUTTON_PRESS, popup_advcalib);

            }


        DB_KB_ButtonActive(1);


/**************************************************************************************/
        rowfrm = MCreateRowForm(CP_Sh);
        MObjectSetBackgroundRGB(rowfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
        MObjectSetShadow(rowfrm, WS_SHADOW_OUT, 2, 2);
//      MObjectAddEventNotifyCallback(rowfrm, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);
        MObjectSetBGColorFromParent(rowfrm, True, 100);

            tb = MCreateTableForm(rowfrm, 3);
            MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
            MObjectSetResize(tb, False, False);
            //MObjectSetShadow(tb, WS_SHADOW_IN, 2, 0);
            MObjectAlign(tb, CENTER_ALIGN, TOP_ALIGN);
            //MObjectAddEventNotifyCallback(tb, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);
            MObjectSetBGColorFromParent(tb, True, 100);

            pb = MCreatePButton(tb, "Help ", HELV_MEDIUM);
            MPButtonSetCallback(pb, DB_HelpCB, (void *) 0);
            MObjectAlign(pb, CENTER_ALIGN, TOP_ALIGN);
            MObjectSetShadow(pb, WS_SHADOW_OUT, 3, 0);
        
            DAS.Gui.ContrPanel.lbl_Time = MCreateLabel(tb, "Station: XXX, Date: YYYY/MM/DD, Time: HH:MM:SS, SolarZenithAngle: xxx.xx", HELV_MEDIUM);
            MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_Time, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
            MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_Time, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
            MObjectSetResize(DAS.Gui.ContrPanel.lbl_Time, False, False);
            MObjectSetShadow(DAS.Gui.ContrPanel.lbl_Time, WS_SHADOW_IN, 1, 0);
            MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_Time, 0);
//          MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.lbl_Time, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);

            pb = MCreatePButton(tb, " Inf. ", HELV_MEDIUM);
            MPButtonSetCallback(pb, DB_InfCB, (void *) 0);
            MObjectAlign(pb, CENTER_ALIGN, TOP_ALIGN);
            MObjectSetShadow(pb, WS_SHADOW_OUT, 3, 0);


    colfrm = MCreateColForm(CP_Sh);
    MObjectSetBackgroundRGB(colfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetShadow(colfrm, WS_SHADOW_IN, 2, 2);
    MObjectSetBGColorFromParent(colfrm, True, 100);
//  MObjectAddEventNotifyCallback(colfrm, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);

/*      DAS.Gui.ContrPanel.Plbl_Elev = MCreateLabel(colfrm, "Sun Elev:", HELV_MEDIUM);
        MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_Elev, LEFT_ALIGN);
        MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Plbl_Elev, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
        MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_Elev, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
        MObjectSetResize(DAS.Gui.ContrPanel.Plbl_Elev, False, True);
        MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_Elev, 0);
*/
            lbl = MCreateLabel(colfrm, "Sun Elev:", HELV_MEDIUM);
            MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
            MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
            MObjectSetTransparency(lbl, 0);
            MLabelSetAlignment(lbl, LEFT_ALIGN);
            MObjectSetResize(lbl, False, True);
//          MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);

            DAS.Gui.ContrPanel.Albl_Elev = MCreateLabel(colfrm, "XX.X", HELV_MEDIUM);
            MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_Elev, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
            MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_Elev, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
            MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_Elev, 0);    
            MObjectSetShadow(DAS.Gui.ContrPanel.Albl_Elev, WS_ETCHED_IN, 1, 1);
            MObjectSetResize(DAS.Gui.ContrPanel.Albl_Elev, False, True);
//          MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_Elev, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);

/*      DAS.Gui.ContrPanel.Plbl_Azim = MCreateLabel(colfrm, "Sun Az.:", HELV_MEDIUM);
        MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_Azim, LEFT_ALIGN);
        MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_Azim, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
        MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Plbl_Azim, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
        MObjectSetResize(DAS.Gui.ContrPanel.Plbl_Azim, False, True);
        MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_Azim, 0);    
*/
            lbl = MCreateLabel(colfrm, "Sun Az.:", HELV_MEDIUM);
            MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
            MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
            MObjectSetTransparency(lbl, 0);
            MLabelSetAlignment(lbl, LEFT_ALIGN);
            MObjectSetResize(lbl, False, True);
//          MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);

            DAS.Gui.ContrPanel.Albl_Azim = MCreateLabel(colfrm, "XXX.XX", HELV_MEDIUM);
            MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_Azim, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
            MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_Azim, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
            MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_Azim, 0);    
            MObjectSetShadow(DAS.Gui.ContrPanel.Albl_Azim, WS_ETCHED_IN, 1, 1);
            MObjectSetResize(DAS.Gui.ContrPanel.Albl_Azim, False, True);
//          MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_Azim, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);

            lbl = MCreateLabel(colfrm, "SunR:", HELV_MEDIUM);
            MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
            MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
            MObjectSetTransparency(lbl, 0);
            MLabelSetAlignment(lbl, LEFT_ALIGN);
            MObjectSetResize(lbl, False, True);
//          MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);

            DAS.Gui.ContrPanel.Albl_sunr = MCreateLabel(colfrm, "XXXX.XX", HELV_MEDIUM);
            MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_sunr, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
            MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_sunr, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
            MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_sunr, 0);    
            MObjectSetShadow(DAS.Gui.ContrPanel.Albl_sunr, WS_ETCHED_IN, 1, 1);
            MObjectSetResize(DAS.Gui.ContrPanel.Albl_sunr, False, True);
//          MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_sunr, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);

            lbl = MCreateLabel(colfrm, "SunS:", HELV_MEDIUM);
            MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
            MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
            MObjectSetTransparency(lbl, 0);
            MLabelSetAlignment(lbl, LEFT_ALIGN);
            MObjectSetResize(lbl, False, True);
//          MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);

            DAS.Gui.ContrPanel.Albl_suns = MCreateLabel(colfrm, "XXXX.XX", HELV_MEDIUM);
            MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_suns, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
            MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_suns, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
            MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_suns, 0);    
            MObjectSetShadow(DAS.Gui.ContrPanel.Albl_suns, WS_ETCHED_IN, 1, 1);
            MObjectSetResize(DAS.Gui.ContrPanel.Albl_suns, False, True);
//          MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_suns, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);

/*
    DAS.Gui.ContrPanel.Plbl_Status = MCreateLabel(colfrm, "Status:", HELV_MEDIUM);
    MLabelSetAlignment(DAS.Gui.ContrPanel.Plbl_Status, LEFT_ALIGN);
    MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Plbl_Status, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetResize(DAS.Gui.ContrPanel.Plbl_Status, False, True);
    MObjectSetTransparency(DAS.Gui.ContrPanel.Plbl_Status, 0);  
*/
    lbl = MCreateLabel(colfrm, "Status:", HELV_MEDIUM);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    MObjectSetTransparency(lbl, 0);
    MLabelSetAlignment(lbl, LEFT_ALIGN);
    MObjectSetResize(lbl, False, True);
//  MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);

    DAS.Gui.ContrPanel.Albl_Status = MCreateLabel(colfrm, "                                        ", HELV_MEDIUM);
    MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Albl_Status, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.Albl_Status, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetTransparency(DAS.Gui.ContrPanel.Albl_Status, 0);  
    MObjectSetShadow(DAS.Gui.ContrPanel.Albl_Status, WS_ETCHED_IN, 1, 1);
//  MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.Albl_Status, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);

/*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/

    return CP_Sh;
}

Here is the caller graph for this function:

MDCreateHorMeas()

MOBJECT MDCreateHorMeas

(

void

)

Definition at line 681 of file CreateForms.c.

References controlpanel::Albl_LS, gui::ContrPanel, palette::DB_BG, palette::DB_BG_Albl, palette::DB_FG_Albl, DB_HorComm_CB(), DB_KB_ButtonActive(), DB_KeyB_CB(), palette::DB_UnSel, palette::DB_UnSelFG, flag::extlamp, flag::extshutter, F_ATT_NONE, False, das::Gui, HELV_SMALL, gui::HorizMeas, horizmeas::lbl, horizmeas::led, flag::manhormeas, MBottomAttach(), MButtonSetOnMouseOverForegroundRGB(), MCreateColForm(), MCreateLabel(), MCreatePButton(), MCreatePixmapFromFile(), MCreateRowForm(), MCreateShell(), MCreateTableForm(), MLabelSetAlignment(), MObjectAlign(), MObjectGetText(), MObjectSetBackgroundRGB(), MObjectSetCompositeWidth(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetShadow(), MObjectSetTransparency(), MObjectSetUnsensitive(), MPButtonSetCallback(), MShellRealize(), horizmeas::pbutt, RIGHT_ALIGN, SF_NO_CLOSE, SF_NO_MAXIMIZE, SF_NO_RESIZE, horizmeas::shell, TOP_ALIGN, True, UNDEF_ALIGN, WS_NONE, and WS_SHADOW_IN.

Referenced by DB_KeyB_CB().

{

    char buff[128];

    MOBJECT rowfrm,rowfrm1,rowfrm2, tb;

    MOBJECT _colform000;
//  MOBJECT _colform001;
//  MOBJECT _colform005;
//  MOBJECT _rowform001;
//  MOBJECT _rowform002;
//  MOBJECT _tablefrm002;
//  MOBJECT _tablefrm004;
//  MOBJECT _tablefrm005;
//  MOBJECT _tablefrm006;
    
    int i;
const char *KeyCom_Code[] = {{"Mirror  "}, //0
                            {"Grating "}, //1
                            {"Filter  "}, //2
                            {"Ext Lamp"}, //3
                            {"Ext Shut"}, //4
                            {"Calib   "}, //5
                            {"ARange  "}, //6
                            {"GetCCD  "}, //7
                            {"Average "}, //8 
                            {"Dark    "},  //9
                            {"Save    "},  //10
                            {"PLOT    "},  //11
                            {"ZOOM    "},//12
                            {"Close   "}};//13

    
    DB_KB_ButtonActive(4);
    FLAG.manhormeas = 1;


    DAS.Gui.HorizMeas.shell = MCreateShell("Horizontal Measurements", SF_NO_RESIZE|SF_NO_MAXIMIZE|SF_NO_CLOSE);
    MObjectSetBackgroundRGB(DAS.Gui.HorizMeas.shell, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetTransparency(DAS.Gui.HorizMeas.shell, 0);
    
    _colform000 = MCreateColForm(DAS.Gui.HorizMeas.shell);
    MObjectSetBackgroundRGB(_colform000, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetShadow(_colform000, WS_NONE, 0, 0);

            rowfrm = MCreateRowForm(_colform000);
            MObjectSetBackgroundRGB(rowfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
            MObjectSetShadow(rowfrm, WS_NONE, 0, 0);
            MObjectAlign(rowfrm, UNDEF_ALIGN, TOP_ALIGN);
            
                tb = MCreateTableForm(rowfrm, 2);
                MBottomAttach(tb, F_ATT_NONE, 3, NULL);
                MObjectAlign(tb, UNDEF_ALIGN, TOP_ALIGN);
                MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
                MObjectSetResize(tb, True, False);
                MObjectSetShadow(tb, WS_SHADOW_IN, 2, 0);
//              MObjectAlign(tb, UNDEF_ALIGN, TOP_ALIGN);

                for (i=0; i < 3; i++)
                {
                    DAS.Gui.HorizMeas.pbutt[i] = MCreatePButton(tb, KeyCom_Code[i], HELV_SMALL);
                    MObjectSetBackgroundRGB(DAS.Gui.HorizMeas.pbutt[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
                    MObjectSetForegroundRGB(DAS.Gui.HorizMeas.pbutt[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
                    MObjectSetCompositeWidth(DAS.Gui.HorizMeas.pbutt[i], 90);
                    MPButtonSetCallback(DAS.Gui.HorizMeas.pbutt[i], DB_KeyB_CB, (void *) i);
                    MButtonSetOnMouseOverForegroundRGB(DAS.Gui.HorizMeas.pbutt[i], ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);

                //  if (i==0)
                        MObjectGetText(DAS.Gui.ContrPanel.Albl_LS[i], buff);
                /*  if (i==1)
                        MObjectGetText(CPL.Albl_LS[1], buff);
                    if (i==2)
                        MObjectGetText(CPL.Albl_LS[2], buff);
                */  
                    DAS.Gui.HorizMeas.lbl[i] = MCreateLabel(tb, buff, HELV_SMALL);
                    MLabelSetAlignment(DAS.Gui.HorizMeas.lbl[i], RIGHT_ALIGN);
                    MObjectSetForegroundRGB(DAS.Gui.HorizMeas.lbl[i], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                    MObjectSetBackgroundRGB(DAS.Gui.HorizMeas.lbl[i], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                    MObjectSetTransparency(DAS.Gui.HorizMeas.lbl[i], 0);
                }


            rowfrm1 = MCreateRowForm(_colform000);
            MObjectSetBackgroundRGB(rowfrm1, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
            MObjectSetShadow(rowfrm1, WS_NONE, 0, 0);
            MObjectAlign(rowfrm1, UNDEF_ALIGN, TOP_ALIGN);
            
                tb = MCreateTableForm(rowfrm1, 3);
                MBottomAttach(tb, F_ATT_NONE, 3, NULL);
                MObjectAlign(tb, UNDEF_ALIGN, TOP_ALIGN);
                MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
                MObjectSetResize(tb, True, False);
                MObjectSetShadow(tb, WS_SHADOW_IN, 2, 0);
//              MObjectAlign(tb, UNDEF_ALIGN, TOP_ALIGN);

                for (i=3; i < 5; i++)
                {
                    DAS.Gui.HorizMeas.pbutt[i] = MCreatePButton(tb, KeyCom_Code[i], HELV_SMALL);
                    MObjectSetBackgroundRGB(DAS.Gui.HorizMeas.pbutt[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
                    MObjectSetForegroundRGB(DAS.Gui.HorizMeas.pbutt[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
                    //if (i==0) 
                    //  MObjectSetBackgroundRGB(DAS.Gui.HorizMeas.pbutt[i], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                    MObjectSetCompositeWidth(DAS.Gui.HorizMeas.pbutt[i], 90);
                    MPButtonSetCallback(DAS.Gui.HorizMeas.pbutt[i], DB_HorComm_CB, (void *) i);
                    //MObjectAddEventNotifyCallback(DAS.Gui.HorizMeas.pbutt[i], (OBJ_EVENT_CB) DB_KeyComSelButtKB_CB, EM_KEY_PRESS, (void *) i);
                    //MObjectAddEventNotifyCallback(DAS.Gui.HorizMeas.pbutt[i], (OBJ_EVENT_CB) DB_KeyComSelButtMouse_CB, EM_BUTTON_PRESS, (void *) i);
                    MButtonSetOnMouseOverForegroundRGB(DAS.Gui.HorizMeas.pbutt[i], ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);
                    
                    if (i == 4)
                    {
                        if(FLAG.extshutter == 0)
                        {
                            sprintf (buff,"Open   ");
                            DAS.Gui.HorizMeas.led[i - 3] = MCreatePixmapFromFile(tb, "SYS\\ledonQJ.bmp");
                            MObjectSetShadow(DAS.Gui.HorizMeas.led[i - 3], WS_NONE, 0, 0);
                        }
                        else
                        {

                            sprintf (buff,"Close  ");
                            DAS.Gui.HorizMeas.led[i - 3] = MCreatePixmapFromFile(tb, "SYS\\ledoff.bmp");
                            MObjectSetShadow(DAS.Gui.HorizMeas.led[i - 3], WS_NONE, 0, 0);
                        }
                        DAS.Gui.HorizMeas.lbl[i] = MCreateLabel(tb, buff, HELV_SMALL);
                        MLabelSetAlignment(DAS.Gui.HorizMeas.lbl[i], RIGHT_ALIGN);
                        MObjectSetForegroundRGB(DAS.Gui.HorizMeas.lbl[i], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                        MObjectSetBackgroundRGB(DAS.Gui.HorizMeas.lbl[i], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                        MObjectSetTransparency(DAS.Gui.HorizMeas.lbl[i], 0);
                    }
                    if (i == 3)
                    {
                        if(FLAG.extlamp == 0)
                        {
                            sprintf (buff,"On   ");
                            DAS.Gui.HorizMeas.led[i - 3] = MCreatePixmapFromFile(tb, "SYS\\ledonQJ.bmp");
                            MObjectSetShadow(DAS.Gui.HorizMeas.led[i - 3], WS_NONE, 0, 0);
                        }
                        else
                        {
                            sprintf (buff,"OFF  ");
                            DAS.Gui.HorizMeas.led[i - 3] = MCreatePixmapFromFile(tb, "SYS\\ledoff.bmp"); 
                            MObjectSetShadow(DAS.Gui.HorizMeas.led[i - 3], WS_NONE, 0, 0);
                        }

                        MObjectSetUnsensitive(DAS.Gui.HorizMeas.pbutt[i]);
                        DAS.Gui.HorizMeas.lbl[i] = MCreateLabel(tb, buff, HELV_SMALL);
                        MLabelSetAlignment(DAS.Gui.HorizMeas.lbl[i], RIGHT_ALIGN);
                        MObjectSetForegroundRGB(DAS.Gui.HorizMeas.lbl[i], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                        MObjectSetBackgroundRGB(DAS.Gui.HorizMeas.lbl[i], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                        MObjectSetTransparency(DAS.Gui.HorizMeas.lbl[i], 0);

                    }
/*                  DAS.Gui.HorizMeas.lbl[i] = MCreateLabel(tb, buff, HELV_SMALL);
                    MLabelSetAlignment(DAS.Gui.HorizMeas.lbl[i], RIGHT_ALIGN);
                    MObjectSetForegroundRGB(DAS.Gui.HorizMeas.lbl[i], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                    MObjectSetBackgroundRGB(DAS.Gui.HorizMeas.lbl[i], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
                    MObjectSetTransparency(DAS.Gui.HorizMeas.lbl[i], 0);

*/
//                  DAS.Gui.HorizMeas.led[i - 3] = MCreatePixmapFromFile(tb, "SYS\\ledonQJ.bmp");
//                  MObjectSetShadow(DAS.Gui.HorizMeas.led[i - 3], WS_NONE, 0, 0);

                }

            rowfrm2 = MCreateRowForm(_colform000);
            MObjectSetBackgroundRGB(rowfrm2, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
            MObjectSetShadow(rowfrm2, WS_NONE, 0, 0);
            MObjectAlign(rowfrm2, UNDEF_ALIGN, TOP_ALIGN);
            
                tb = MCreateTableForm(rowfrm2, 3);
                MBottomAttach(tb, F_ATT_NONE, 3, NULL);
                MObjectAlign(tb, UNDEF_ALIGN, TOP_ALIGN);
                MObjectSetBackgroundRGB(tb, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
                MObjectSetResize(tb, True, False);
                MObjectSetShadow(tb, WS_SHADOW_IN, 2, 0);
//              MObjectAlign(tb, UNDEF_ALIGN, TOP_ALIGN);

                for (i=5; i < 14; i++)
                {
                    DAS.Gui.HorizMeas.pbutt[i] = MCreatePButton(tb, KeyCom_Code[i], HELV_SMALL);
                    MObjectSetBackgroundRGB(DAS.Gui.HorizMeas.pbutt[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
                    MObjectSetForegroundRGB(DAS.Gui.HorizMeas.pbutt[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
                    //if (i==0) 
                    //  MObjectSetBackgroundRGB(DAS.Gui.HorizMeas.pbutt[i], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
                    MObjectSetCompositeWidth(DAS.Gui.HorizMeas.pbutt[i], 90);
                    MPButtonSetCallback(DAS.Gui.HorizMeas.pbutt[i], DB_HorComm_CB, (void *) i);
                    //MObjectAddEventNotifyCallback(DAS.Gui.HorizMeas.pbutt[i], (OBJ_EVENT_CB) DB_KeyComSelButtKB_CB, EM_KEY_PRESS, (void *) i);
                    //MObjectAddEventNotifyCallback(DAS.Gui.HorizMeas.pbutt[i], (OBJ_EVENT_CB) DB_KeyComSelButtMouse_CB, EM_BUTTON_PRESS, (void *) i);
                    MButtonSetOnMouseOverForegroundRGB(DAS.Gui.HorizMeas.pbutt[i], ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);
                }

    MShellRealize(DAS.Gui.HorizMeas.shell);

    return 0;

}

Here is the call graph for this function:

Here is the caller graph for this function:

MDCreateMoveAzim()

void MDCreateMoveAzim

(

void

)

Definition at line 3340 of file CreateForms.c.

References ActMvAzimCB(), DB_dirCB(), FIXED_MEDIUM, FIXED_SMALL, GratFlg, GrDIR, das::Gui, lbl, MCreateEdit(), MCreateLabel(), MCreateRButton(), MCreateRowForm(), MCreateShell(), MCreateTableForm(), MEditSetActCallback(), MLoopWhileFlag(), MObjectSetBackgroundRGB(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetShadow(), MPButtonSetCallback(), MRButtonActivate(), MShellDestroy(), MShellRealizeXY(), MShellUnrealize(), shells::Sh_mg, gui::Shells, TIMES_SMALL, True, WS_ETCHED_OUT, and WS_SHADOW_IN.

{

    
    MOBJECT lbl;
    MOBJECT rbut;
    MOBJECT rbutt;
    MOBJECT lbl1;
    MOBJECT edt;
//  MOBJECT pbut;
    MOBJECT _rowform000;
    MOBJECT _tablefrm000;
    char buff[255]; 
    DAS.Gui.Shells.Sh_mg = MCreateShell("MOVE Azimuth Axes", 0);
    MObjectSetBackgroundRGB(DAS.Gui.Shells.Sh_mg, 96, 133, 149);

    _rowform000 = MCreateRowForm(DAS.Gui.Shells.Sh_mg);
    MObjectSetBackgroundRGB(_rowform000, 96, 133, 149);
    MObjectSetResize(_rowform000, True, True);
    
    sprintf(buff,"This tool allows for the positioning of the Azimuth\n \
Axis of a free number of steps\n ");

    lbl = MCreateLabel(_rowform000, buff, TIMES_SMALL);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 53, 112, 112);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);

    sprintf(buff," NOTE:\n");       

    lbl = MCreateLabel(_rowform000, buff, TIMES_SMALL);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 53, 112, 112);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);


    lbl = MCreateLabel(_rowform000, "Select dir.", TIMES_SMALL);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 53, 112, 112);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);

    _tablefrm000 = MCreateTableForm(DAS.Gui.Shells.Sh_mg, 2);
    MObjectSetBackgroundRGB(_tablefrm000, 96, 133, 149);
    MObjectSetResize(_tablefrm000, True, True);

    rbut = MCreateRButton(_tablefrm000, "CCW", FIXED_SMALL);
    MObjectSetForegroundRGB(rbut, 255, 255, 255);
    MPButtonSetCallback(rbut, DB_dirCB, (void *) 0);
    MRButtonActivate(rbut);
    GrDIR = 0;

    rbutt = MCreateRButton(_tablefrm000, "CW", FIXED_SMALL);
    MObjectSetForegroundRGB(rbutt, 255, 255, 255);
    MPButtonSetCallback(rbut, DB_dirCB, (void *) 1);

    lbl1 = MCreateLabel(_tablefrm000, "Step:", FIXED_SMALL);
    MObjectSetForegroundRGB(lbl1, 255, 255, 255);

    edt = MCreateEdit(_tablefrm000, "0", 12, FIXED_MEDIUM);
    //MEditSetFilter(edt, 4, "");
    MObjectSetForegroundRGB(edt, 255, 255, 255);
    MObjectSetBackgroundRGB(edt, 0, 0, 0);
    MObjectSetShadow(edt, WS_ETCHED_OUT, 2, 1);
    MEditSetActCallback(edt, ActMvAzimCB, edt);



    MShellRealizeXY(DAS.Gui.Shells.Sh_mg, 0, 0);

    GratFlg = 0;
    MLoopWhileFlag(&GratFlg, 0);

    MShellUnrealize(DAS.Gui.Shells.Sh_mg);
    MShellDestroy(DAS.Gui.Shells.Sh_mg);
    

}

Here is the call graph for this function:

MDCreateMoveAzimDeg()

void MDCreateMoveAzimDeg

(

void

)

Definition at line 3673 of file CreateForms.c.

References ActMvAzimDegCB(), FIXED_MEDIUM, FIXED_SMALL, GratFlg, das::Gui, lbl, MCreateEdit(), MCreateLabel(), MCreateRowForm(), MCreateShell(), MCreateTableForm(), MEditSetActCallback(), MLoopWhileFlag(), MObjectSetBackgroundRGB(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetShadow(), MShellDestroy(), MShellRealizeXY(), MShellUnrealize(), AzimuthSt::realazpos, shells::Sh_mg, gui::Shells, TIMES_SMALL, True, WS_ETCHED_OUT, and WS_SHADOW_IN.

{

    
    MOBJECT lbl;
//  MOBJECT rbut;
//  MOBJECT rbutt;
    MOBJECT lbl1;
    MOBJECT edt;
//  MOBJECT pbut;
    MOBJECT _rowform000;
    MOBJECT _tablefrm000;
    char buff[255]; 
    DAS.Gui.Shells.Sh_mg = MCreateShell("MOVE Azimuth Axes", 0);
    MObjectSetBackgroundRGB(DAS.Gui.Shells.Sh_mg, 96, 133, 149);

    _rowform000 = MCreateRowForm(DAS.Gui.Shells.Sh_mg);
    MObjectSetBackgroundRGB(_rowform000, 96, 133, 149);
    MObjectSetResize(_rowform000, True, True);
    
    sprintf(buff,"This tool allows for the positioning of the Azimuth\n \
Axis at the typed angle. \n ");

    lbl = MCreateLabel(_rowform000, buff, TIMES_SMALL);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 53, 112, 112);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
//      if(DAS.MIGE.type)
//      {
//          sprintf(buff," NOTE: Allowed values: -130 < angle < 80\n since the Home position has been set to 0°N");         
//      }
//      else
//      {
//          sprintf(buff," NOTE: Allowed values: 20 < angle < 305\n since the Home position has been set to 55°N");         
//      }
//sprintf(buff," NOTE: Allowed values: -150 < angle < 30");
    sprintf(buff," Allowed Azimuth angles: [0,  360]");
    lbl = MCreateLabel(_rowform000, buff, TIMES_SMALL);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 53, 112, 112);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);


    sprintf(buff," NOTE:  If Azimuth is  [0, 120] or [300, 360] --> Zenith [-90, 0]");
    lbl = MCreateLabel(_rowform000, buff, TIMES_SMALL);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 53, 112, 112);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);

    sprintf(buff," NOTE 1: If Azimuth is  [120, 300] --> Zenith [0, 90]");
    lbl = MCreateLabel(_rowform000, buff, TIMES_SMALL);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 53, 112, 112);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);







    _tablefrm000 = MCreateTableForm(DAS.Gui.Shells.Sh_mg, 2);
    MObjectSetBackgroundRGB(_tablefrm000, 96, 133, 149);
    MObjectSetResize(_tablefrm000, True, True);


    lbl1 = MCreateLabel(_tablefrm000, "angle:", FIXED_SMALL);
    MObjectSetForegroundRGB(lbl1, 255, 255, 255);

    
    //sprintf(buff, "%.1lf", AST.Pos);
    sprintf(buff, "%.1lf", AST.realazpos);
    edt = MCreateEdit(_tablefrm000, buff, 12, FIXED_MEDIUM);
    //MEditSetFilter(edt, 4, "");
    MObjectSetForegroundRGB(edt, 255, 255, 255);
    MObjectSetBackgroundRGB(edt, 0, 0, 0);
    MObjectSetShadow(edt, WS_ETCHED_OUT, 2, 1);
    MEditSetActCallback(edt, ActMvAzimDegCB, edt);



    MShellRealizeXY(DAS.Gui.Shells.Sh_mg, 0, 0);

    GratFlg = 0;
    MLoopWhileFlag(&GratFlg, 0);

    MShellUnrealize(DAS.Gui.Shells.Sh_mg);
    MShellDestroy(DAS.Gui.Shells.Sh_mg);
    

}

Here is the call graph for this function:

MDCreateMoveGrat()

int MDCreateMoveGrat

(

void

)

Free Grating positioning. Procedure that build the shell for Free Grating positioning.

Returns

void

Definition at line 2859 of file CreateForms.c.

References ActMvGratCB(), gui::ContrPanel, palette::DB_BG, palette::DB_BG_lblUP, palette::DB_BG_Plbl, DB_dirCB(), palette::DB_FG_lblUP, palette::DB_FG_Plbl, DB_GratPosMode_CB(), DB_RecGio_CB(), DB_StepGratEnc_CB(), False, FIXED_MEDIUM, FIXED_SMALL, das::Flag, GratFlg, flag::gratposmode, GrDIR, das::Gui, HELV_MEDIUM, HELV_SMALL, lbl, controlpanel::lbl_mvgratmode, LEFT_ALIGN, MCreateColForm(), MCreateEdit(), MCreateLabel(), MCreateRButton(), MCreateRowForm(), MCreateShell(), MCreateTableForm(), MEditSetActCallback(), MLoopWhileFlag(), MObjectAlign(), MObjectSetBackgroundRGB(), MObjectSetCompositeWidth(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetShadow(), MObjectSetTransparency(), MPButtonSetCallback(), MRButtonActivate(), MShellDestroy(), MShellRealizeXY(), MShellUnrealize(), controlpanel::rbStepGratEnc, shells::Sh_mg, gui::Shells, TIMES_SMALL, TOP_ALIGN, True, WS_ETCHED_OUT, and WS_SHADOW_IN.

Referenced by DB_KeyB_CB().

{

    
    MOBJECT lbl;
    MOBJECT rb;
    
//  MOBJECT lbl1;
    MOBJECT edt;
//  MOBJECT pbut;
    MOBJECT rowfrm, rowfrm1, colfrm;
    MOBJECT tb;
    char buff[255]; 
    DAS.Gui.Shells.Sh_mg = MCreateShell("MOVE GRATING", 0);
    MObjectSetBackgroundRGB(DAS.Gui.Shells.Sh_mg, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
//  MObjectAddEventNotifyCallback(DAS.Gui.Shells.Sh_mg, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 0);
    MObjectSetTransparency(DAS.Gui.Shells.Sh_mg, 0);

    rowfrm = MCreateRowForm(DAS.Gui.Shells.Sh_mg);
    MObjectSetBackgroundRGB(rowfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

//  MObjectSetBackgroundRGB(rowfrm, 96, 133, 149);
    MObjectSetResize(rowfrm, False, False);

/*
                MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
                MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
                MObjectSetTransparency(lbl, 0);
                MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, d_events , (void *) 1);

                
                DAS.Gui.ContrPanel.lbl_Par[0] = MCreateLabel(tb, "+10.0C", HELV_SMALL);
                MLabelSetAlignment(DAS.Gui.ContrPanel.lbl_Par[0], RIGHT_ALIGN);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_Par[0], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
                MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_Par[0], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);


*/  
    sprintf(buff,"FREE GRATING POSITIONING");
    lbl = MCreateLabel(rowfrm, buff, HELV_MEDIUM);
    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);

    //  MObjectSetForegroundRGB(lbl, 255, 255, 255);
//  MObjectSetBackgroundRGB(lbl, 53, 112, 112);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);

    sprintf(buff," NOTE:\nThe Grating is moving, so if you want to shift\n \
a spectral line towards the visible,\nyou have to move the grating in the UV direction.");          

    lbl = MCreateLabel(rowfrm, buff, HELV_MEDIUM);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    MObjectSetResize(lbl, False, False);

//  MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
    MObjectSetTransparency(lbl, 0);
    

    rowfrm1 = MCreateRowForm(rowfrm);
    MObjectSetBackgroundRGB(rowfrm1, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(rowfrm1, True, True);
    MObjectSetTransparency(rowfrm1, 0);

/********************/
    tb = MCreateTableForm(rowfrm1, 2);
    MObjectSetBackgroundRGB(tb, 95, 3, 3);
    MObjectSetResize(tb, False, False);

        if(DAS.Flag.gratposmode  == 0)
            sprintf(buff, "_   Steps:");
        if(DAS.Flag.gratposmode  == 1)
            sprintf(buff, "Amstrongs:");
        DAS.Gui.ContrPanel.lbl_mvgratmode = MCreateLabel(tb, buff, FIXED_MEDIUM);   
        MObjectSetTransparency(DAS.Gui.ContrPanel.lbl_mvgratmode, 0);
        MObjectSetForegroundRGB(DAS.Gui.ContrPanel.lbl_mvgratmode, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
        MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.lbl_mvgratmode, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    
        edt = MCreateEdit(tb, "0", 12, FIXED_MEDIUM);
        //MEditSetFilter(edt, 4, "");
        MObjectSetForegroundRGB(edt, 255, 255, 255);
        MObjectSetBackgroundRGB(edt, 0, 0, 90);
        MObjectSetShadow(edt, WS_ETCHED_OUT, 2, 1);
        MEditSetActCallback(edt, ActMvGratCB, edt);

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


        lbl = MCreateLabel(rowfrm1, "The typed steps have to be directly sent to the Grating stepper? ", HELV_SMALL);
        MObjectSetTransparency(lbl, 0);
        MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
        MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
        MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);

            tb = MCreateTableForm(rowfrm1, 2);
            //  MObjectSetBackgroundRGB(tb, 96, 133, 149);
            MObjectSetBackgroundRGB(tb, 129, 77, 77);
            MObjectSetResize(tb, True, False);

                DAS.Gui.ContrPanel.rbStepGratEnc[0]   = MCreateRButton(tb, "Yes - Send direct", FIXED_SMALL);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.rbStepGratEnc[0], 255, 255, 255);
                MPButtonSetCallback(DAS.Gui.ContrPanel.rbStepGratEnc[0], DB_StepGratEnc_CB, (void *) 0);
                MRButtonActivate(DAS.Gui.ContrPanel.rbStepGratEnc[0]);  

                DAS.Gui.ContrPanel.rbStepGratEnc[1] = MCreateRButton(tb, "No - Use the DAS encoding", FIXED_SMALL);
                MObjectSetForegroundRGB(DAS.Gui.ContrPanel.rbStepGratEnc[1], 255, 255, 255);
                MPButtonSetCallback(DAS.Gui.ContrPanel.rbStepGratEnc[1], DB_StepGratEnc_CB, (void *) 1);



        lbl = MCreateLabel(rowfrm1, "Do you want to perform the backlash recovery? ", HELV_SMALL);
        MObjectSetTransparency(lbl, 0);
        MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
        MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
        MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);

            tb = MCreateTableForm(rowfrm1, 2);
            //  MObjectSetBackgroundRGB(tb, 96, 133, 149);
            MObjectSetBackgroundRGB(tb, 129, 77, 77);
            MObjectSetResize(tb, True, False);

                rb   = MCreateRButton(tb, "Yes ", FIXED_SMALL);
                MObjectSetForegroundRGB(rb, 255, 255, 255);
                MPButtonSetCallback(rb, DB_RecGio_CB, (void *) 0);
                MRButtonActivate(rb);   

                rb = MCreateRButton(tb, "No", FIXED_SMALL);
                MObjectSetForegroundRGB(rb, 255, 255, 255);
                MPButtonSetCallback(rb, DB_RecGio_CB, (void *) 1);



    colfrm = MCreateColForm(rowfrm1);
    MObjectSetBackgroundRGB(colfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(colfrm, False, True);
    MObjectSetTransparency(colfrm, 0);


        lbl = MCreateLabel(colfrm, "Select dir.", TIMES_SMALL);
        MObjectSetTransparency(lbl, 0);
        MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
        MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
        MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);

            tb = MCreateTableForm(colfrm, 1);
            //  MObjectSetBackgroundRGB(tb, 96, 133, 149);
            //MObjectSetBackgroundRGB(tb, 112, 128, 112);
            MObjectSetBackgroundRGB(tb, 129, 77, 77);
            MObjectSetResize(tb, False, True);

                rb = MCreateRButton(tb, "CW - UV", FIXED_SMALL);
                MObjectSetForegroundRGB(rb, 255, 255, 255);
                MPButtonSetCallback(rb, DB_dirCB, (void *) 0);
                MRButtonActivate(rb);
                GrDIR = 0;

                rb = MCreateRButton(tb, "CCW - Vis", FIXED_SMALL);
                MObjectSetForegroundRGB(rb, 255, 255, 255);
                MPButtonSetCallback(rb, DB_dirCB, (void *) 1);

/*  colfrm = MCreateColForm(rowfrm1);
    MObjectSetBackgroundRGB(colfrm, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetResize(colfrm, True, True);
    MObjectSetTransparency(colfrm, 0);  
*/
    lbl = MCreateLabel(colfrm, "Positioning with:", TIMES_SMALL);
        MObjectSetTransparency(lbl, 0);
        MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
        MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);

                tb = MCreateTableForm(colfrm, 1);
                //MObjectSetBackgroundRGB(tb, 112, 128, 112);
                MObjectSetBackgroundRGB(tb, 129, 77, 77);
                MObjectSetResize(tb, False, True);

                    rb = MCreateRButton(tb, "Step", FIXED_SMALL);
                    MPButtonSetCallback(rb, DB_GratPosMode_CB, (void *) 0);
                    MObjectAlign(rb, LEFT_ALIGN, TOP_ALIGN);
                    MObjectSetForegroundRGB(rb, 255, 255, 255);
                    MObjectSetCompositeWidth(rb, 100);
                    if(DAS.Flag.gratposmode  == 0)
                        MRButtonActivate(rb);
                            
                    rb = MCreateRButton(tb, "Wavelength", FIXED_SMALL);
                    MPButtonSetCallback(rb, DB_GratPosMode_CB, (void *) 1);
                    MObjectAlign(rb, LEFT_ALIGN, TOP_ALIGN);
                    MObjectSetForegroundRGB(rb, 255, 255, 255);
                    MObjectSetCompositeWidth(rb, 100);
                    if(DAS.Flag.gratposmode  == 1)
                        MRButtonActivate(rb);




    MShellRealizeXY(DAS.Gui.Shells.Sh_mg, 0, 0);

    GratFlg = 0;
    MLoopWhileFlag(&GratFlg, 0);

    MShellUnrealize(DAS.Gui.Shells.Sh_mg);
    MShellDestroy(DAS.Gui.Shells.Sh_mg);
    

}

Here is the call graph for this function:

Here is the caller graph for this function:

MDCreateMoveZen()

void MDCreateMoveZen

(

void

)

Definition at line 3261 of file CreateForms.c.

References ActMvZenCB(), DB_dirCB(), FIXED_MEDIUM, FIXED_SMALL, GratFlg, GrDIR, das::Gui, lbl, MCreateEdit(), MCreateLabel(), MCreateRButton(), MCreateRowForm(), MCreateShell(), MCreateTableForm(), MEditSetActCallback(), MLoopWhileFlag(), MObjectSetBackgroundRGB(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetShadow(), MPButtonSetCallback(), MRButtonActivate(), MShellDestroy(), MShellRealizeXY(), MShellUnrealize(), shells::Sh_mg, gui::Shells, TIMES_SMALL, True, WS_ETCHED_OUT, and WS_SHADOW_IN.

{

    
    MOBJECT lbl;
    MOBJECT rbut;
    MOBJECT rbutt;
    MOBJECT lbl1;
    MOBJECT edt;
//  MOBJECT pbut;
    MOBJECT _rowform000;
    MOBJECT _tablefrm000;
    char buff[255]; 
    DAS.Gui.Shells.Sh_mg = MCreateShell("MOVE Zenith Axes", 0);
    MObjectSetBackgroundRGB(DAS.Gui.Shells.Sh_mg, 96, 133, 149);

    _rowform000 = MCreateRowForm(DAS.Gui.Shells.Sh_mg);
    MObjectSetBackgroundRGB(_rowform000, 96, 133, 149);
    MObjectSetResize(_rowform000, True, True);
    
    sprintf(buff,"This tool allows for the positioning of the Zenith\n \
Axis of a free number of steps\n ");

    lbl = MCreateLabel(_rowform000, buff, TIMES_SMALL);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 53, 112, 112);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);

    sprintf(buff," NOTE:\n");       

    lbl = MCreateLabel(_rowform000, buff, TIMES_SMALL);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 53, 112, 112);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);


    lbl = MCreateLabel(_rowform000, "Select dir.", TIMES_SMALL);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 53, 112, 112);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);

    _tablefrm000 = MCreateTableForm(DAS.Gui.Shells.Sh_mg, 2);
    MObjectSetBackgroundRGB(_tablefrm000, 96, 133, 149);
    MObjectSetResize(_tablefrm000, True, True);

    rbut = MCreateRButton(_tablefrm000, "CCW", FIXED_SMALL);
    MObjectSetForegroundRGB(rbut, 255, 255, 255);
    MPButtonSetCallback(rbut, DB_dirCB, (void *) 0);
    MRButtonActivate(rbut);
    GrDIR = 0;

    rbutt = MCreateRButton(_tablefrm000, "CW", FIXED_SMALL);
    MObjectSetForegroundRGB(rbutt, 255, 255, 255);
    MPButtonSetCallback(rbut, DB_dirCB, (void *) 1);

    lbl1 = MCreateLabel(_tablefrm000, "Step:", FIXED_SMALL);
    MObjectSetForegroundRGB(lbl1, 255, 255, 255);

    edt = MCreateEdit(_tablefrm000, "0", 12, FIXED_MEDIUM);
    //MEditSetFilter(edt, 4, "");
    MObjectSetForegroundRGB(edt, 255, 255, 255);
    MObjectSetBackgroundRGB(edt, 0, 0, 0);
    MObjectSetShadow(edt, WS_ETCHED_OUT, 2, 1);
    MEditSetActCallback(edt, ActMvZenCB, edt);



    MShellRealizeXY(DAS.Gui.Shells.Sh_mg, 0, 0);

    GratFlg = 0;
    MLoopWhileFlag(&GratFlg, 0);

    MShellUnrealize(DAS.Gui.Shells.Sh_mg);
    MShellDestroy(DAS.Gui.Shells.Sh_mg);
    

}

Here is the call graph for this function:

MDCreateMoveZenAzimDeg()

void MDCreateMoveZenAzimDeg

(

void

)

Definition at line 3573 of file CreateForms.c.

References palette::DB_UnSel, palette::DB_UnSelFG, mige::edtaz, mige::edtzen, FIXED_MEDIUM, FIXED_SMALL, GratFlg, das::Gui, lbl, MCreateEdit(), MCreateLabel(), MCreatePButton(), MCreateRowForm(), MCreateShell(), MCreateTableForm(), das::MIGE, MIGEZenAzPos_CB(), MLoopWhileFlag(), MObjectSetBackgroundRGB(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetShadow(), MPButtonSetCallback(), MShellDestroy(), MShellRealizeXY(), MShellUnrealize(), AzimuthSt::realazpos, ZenithSt::realzenpos, shells::Sh_mg, gui::Shells, TIMES_SMALL, True, WS_ETCHED_OUT, and WS_SHADOW_IN.

Referenced by DB_KeyB_CB().

{

    MOBJECT lbl;
    MOBJECT pbut;
//  MOBJECT rbutt;
    MOBJECT lbl1;
//  MOBJECT edt;
//  MOBJECT pbut;
    MOBJECT _rowform000;
    MOBJECT _tablefrm000;
    char buff[255]; 
    DAS.Gui.Shells.Sh_mg = MCreateShell("MOVE Zenith and Azimuth Axis", 0);
    MObjectSetBackgroundRGB(DAS.Gui.Shells.Sh_mg, 96, 133, 149);

    _rowform000 = MCreateRowForm(DAS.Gui.Shells.Sh_mg);
    MObjectSetBackgroundRGB(_rowform000, 96, 133, 149);
    MObjectSetResize(_rowform000, True, True);

    sprintf(buff,"This tool allows for the positioning of the Zenith and Azimuth\n \
Axes at the typed angles.");

    lbl = MCreateLabel(_rowform000, buff, TIMES_SMALL);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 53, 112, 112);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);



    _tablefrm000 = MCreateTableForm(DAS.Gui.Shells.Sh_mg, 3);
    MObjectSetBackgroundRGB(_tablefrm000, 96, 133, 149);
    MObjectSetResize(_tablefrm000, True, True);

    lbl1 = MCreateLabel(_tablefrm000, "Zenith (xxx.x):", FIXED_SMALL);
    MObjectSetForegroundRGB(lbl1, 255, 255, 255);
    MObjectSetShadow(lbl1, WS_SHADOW_IN, 1, 0);

    sprintf(buff, "%.1lf", ZST.realzenpos);
    DAS.MIGE.edtzen = MCreateEdit(_tablefrm000, buff, 6, FIXED_MEDIUM);
    //MEditSetFilter(edt, 4, "");
    MObjectSetForegroundRGB(DAS.MIGE.edtzen, 255, 255, 255);
    MObjectSetBackgroundRGB(DAS.MIGE.edtzen, 0, 0, 0);
    MObjectSetShadow(DAS.MIGE.edtzen, WS_ETCHED_OUT, 2, 1);
    //MEditSetActCallback(edt, ActMvZenDegCB, edt);

    sprintf(buff," Allowed values: 0 <= x <= 180.");        
    lbl = MCreateLabel(_tablefrm000, buff, TIMES_SMALL);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 53, 112, 112);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);



    lbl1 = MCreateLabel(_tablefrm000, "Azimuth (xxx.x):", FIXED_SMALL);
    MObjectSetForegroundRGB(lbl1, 255, 255, 255);
    MObjectSetShadow(lbl1, WS_SHADOW_IN, 1, 0);

    //sprintf(buff, "%.1lf", AST.Pos);
    sprintf(buff, "%.1lf", AST.realazpos);
    DAS.MIGE.edtaz = MCreateEdit(_tablefrm000, buff, 6, FIXED_MEDIUM);
    //MEditSetFilter(edt, 4, "");
    MObjectSetForegroundRGB(DAS.MIGE.edtaz, 255, 255, 255);
    MObjectSetBackgroundRGB(DAS.MIGE.edtaz, 0, 0, 0);
    MObjectSetShadow(DAS.MIGE.edtaz, WS_ETCHED_OUT, 2, 1);
    //MEditSetActCallback(edt, ActMvAzimDegCB, edt);


    sprintf(buff," Allowed values: 0 <= x <= 360.");        
    lbl = MCreateLabel(_tablefrm000, buff, TIMES_SMALL);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 53, 112, 112);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);



    _rowform000 = MCreateRowForm(DAS.Gui.Shells.Sh_mg);
    MObjectSetBackgroundRGB(_rowform000, 96, 133, 149);
    MObjectSetResize(_rowform000, True, True);


    pbut = MCreatePButton(_rowform000, "DO POSIT.", FIXED_SMALL);
    MObjectSetBackgroundRGB(pbut, DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
    MObjectSetForegroundRGB(pbut, DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
    //MObjectSetForegroundRGB(pbut, 255, 255, 255);
    MPButtonSetCallback(pbut, MIGEZenAzPos_CB, (void *) 0);


    MShellRealizeXY(DAS.Gui.Shells.Sh_mg, 0, 0);

    GratFlg = 0;
    MLoopWhileFlag(&GratFlg, 0);

    MShellUnrealize(DAS.Gui.Shells.Sh_mg);
    MShellDestroy(DAS.Gui.Shells.Sh_mg);



}

Here is the call graph for this function:

Here is the caller graph for this function:

MDCreateMoveZenDeg()

void MDCreateMoveZenDeg

(

void

)

Definition at line 3192 of file CreateForms.c.

References ActMvZenDegCB(), FIXED_MEDIUM, FIXED_SMALL, GratFlg, das::Gui, lbl, MCreateEdit(), MCreateLabel(), MCreateRowForm(), MCreateShell(), MCreateTableForm(), MEditSetActCallback(), MLoopWhileFlag(), MObjectSetBackgroundRGB(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetShadow(), MShellDestroy(), MShellRealizeXY(), MShellUnrealize(), shells::Sh_mg, gui::Shells, TIMES_SMALL, True, WS_ETCHED_OUT, and WS_SHADOW_IN.

{

    
    MOBJECT lbl;
//  MOBJECT rbut;
//  MOBJECT rbutt;
    MOBJECT lbl1;
    MOBJECT edt;
//  MOBJECT pbut;
    MOBJECT _rowform000;
    MOBJECT _tablefrm000;
    char buff[255]; 
    DAS.Gui.Shells.Sh_mg = MCreateShell("MOVE Zenith Axes", 0);
    MObjectSetBackgroundRGB(DAS.Gui.Shells.Sh_mg, 96, 133, 149);

    _rowform000 = MCreateRowForm(DAS.Gui.Shells.Sh_mg);
    MObjectSetBackgroundRGB(_rowform000, 96, 133, 149);
    MObjectSetResize(_rowform000, True, True);
    
    sprintf(buff,"This tool allows for the positioning of the Zenith\n \
Axis at the typed angle. \n ");

    lbl = MCreateLabel(_rowform000, buff, TIMES_SMALL);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 53, 112, 112);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);
//  if(DAS.MIGE.type)
//  {
        sprintf(buff," NOTE: Allowed values: -90 < angle < 90.\n");         
//  }
//  else
//  {
//      sprintf(buff," NOTE: Allowed values: -91 < angle < 45.\n");         
//  }
    lbl = MCreateLabel(_rowform000, buff, TIMES_SMALL);
    MObjectSetForegroundRGB(lbl, 255, 255, 255);
    MObjectSetBackgroundRGB(lbl, 53, 112, 112);
    MObjectSetShadow(lbl, WS_SHADOW_IN, 1, 0);


    _tablefrm000 = MCreateTableForm(DAS.Gui.Shells.Sh_mg, 2);
    MObjectSetBackgroundRGB(_tablefrm000, 96, 133, 149);
    MObjectSetResize(_tablefrm000, True, True);

    lbl1 = MCreateLabel(_tablefrm000, "Degrees (xx.x):", FIXED_SMALL);
    MObjectSetForegroundRGB(lbl1, 255, 255, 255);

    edt = MCreateEdit(_tablefrm000, "0", 12, FIXED_MEDIUM);
    //MEditSetFilter(edt, 4, "");
    MObjectSetForegroundRGB(edt, 255, 255, 255);
    MObjectSetBackgroundRGB(edt, 0, 0, 0);
    MObjectSetShadow(edt, WS_ETCHED_OUT, 2, 1);
    MEditSetActCallback(edt, ActMvZenDegCB, edt);



    MShellRealizeXY(DAS.Gui.Shells.Sh_mg, 0, 0);

    GratFlg = 0;
    MLoopWhileFlag(&GratFlg, 0);

    MShellUnrealize(DAS.Gui.Shells.Sh_mg);
    MShellDestroy(DAS.Gui.Shells.Sh_mg);
    

}

Here is the call graph for this function:

MDCreateSh_Fil()

int MDCreateSh_Fil

(

void

)

Create the shell for the available Filters. Procedure that build the shell for the positioning of the filter wheel. They are installed during the instrument setup.

Returns

0

Definition at line 5994 of file CreateForms.c.

References DB_Close_Sh(), DB_Fil_CB(), DB_FilSelButtKB_CB(), DB_PushButtonMouse_CB(), DB_SheelESC(), palette::DB_UnSel, palette::DB_UnSelFG, EM_BUTTON_PRESS, EM_KEY_PRESS, EM_MOTION, paramini::EqType, pushbutt::Fil, Fil_Code, Fil_Code8H, Fil_CodeNG, Fil_CodeNG1, Fil_CodeTropo, FilBuff, FilFlg, FWS, GASCODNG1, GASCODNG2, GASCODNG3, GASCODNG4, das::Gui, HELV_SMALL, LIS_, MButtonSetOnMouseOverForegroundRGB(), MCreatePButton(), MCreateShell(), MCreateTableForm(), MLoopWhileFlag(), MObjectAddEventNotifyCallback(), MObjectSetBackgroundRGB(), MObjectSetCompositeWidth(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetShadow(), MPButtonSetCallback(), MShellDestroy(), MShellRealizeXY(), MShellSetWMCloseCallback(), MShellUnrealize(), das::Paramini, FilterWheelSt::Pos, gui::PushButt, SF_MODAL, shells::Sh_Fil, gui::Shells, TROPOGAS, True, and WS_SHADOW_OUT.

Referenced by DB_KeyB_CB().

{
    int i, er = 0;
    int bas = 0; //button array size 
    MOBJECT _tablefrm000;
//  MOBJECT _tablefrm001;
//  MOBJECT Esc_But;

    DAS.Gui.Shells.Sh_Fil = MCreateShell("SET FILTER", SF_MODAL);
    MObjectSetForegroundRGB(DAS.Gui.Shells.Sh_Fil, 255, 255, 255);

/*
    _tablefrm001 = MCreateTableForm(DAS.Gui.Shells.Sh_Fil, 1);
    MObjectSetBackgroundRGB(_tablefrm001, 91, 74, 74);
    MObjectSetResize(_tablefrm001, True, True);

        Esc_But = MCreatePButton(_tablefrm001, "ESC-Return", HELV_SMALL);
        MObjectSetBackgroundRGB(Esc_But, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
        MObjectSetShadow(Esc_But, WS_SHADOW_OUT, 3, 0);
        MObjectSetCompositeWidth(Esc_But, 180);
        MButtonSetAccelerator(Esc_But, ESC);
        MButtonSetOnMouseOverForegroundRGB(Esc_But, 255, 255, 255);
        MPButtonSetCallback(Esc_But, DB_Esc_CB, (void *) 2);
*/  
    _tablefrm000 = MCreateTableForm(DAS.Gui.Shells.Sh_Fil, 1);
    MObjectSetBackgroundRGB(_tablefrm000, 91, 74, 74);
    MObjectSetResize(_tablefrm000, True, True);



    if(DAS.Paramini.EqType == LIS_)
    {
        bas = 8;
        for (i=0; i<bas; i++)
        {
            DAS.Gui.PushButt.Fil[i] = MCreatePButton(_tablefrm000, Fil_Code8H[i], HELV_SMALL);
            MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            MObjectSetForegroundRGB(DAS.Gui.PushButt.Fil[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
            if (i==FWS.Pos) 
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[i], 0, 0, 255);

            MObjectAddEventNotifyCallback(DAS.Gui.PushButt.Fil[i], (OBJ_EVENT_CB) DB_FilSelButtKB_CB, EM_KEY_PRESS, (void *) i);
    //      MObjectAddEventNotifyCallback(DAS.Gui.PushButt.Fil[i], (OBJ_EVENT_CB) DB_FilSelButtMouse_CB, EM_BUTTON_PRESS, (void *) i);
            MObjectAddEventNotifyCallback(DAS.Gui.PushButt.Fil[i], (OBJ_EVENT_CB) DB_PushButtonMouse_CB, EM_BUTTON_PRESS | EM_MOTION, (void *) 3);
            MObjectSetShadow(DAS.Gui.PushButt.Fil[i], WS_SHADOW_OUT, 4, 0);
            MObjectSetCompositeWidth(DAS.Gui.PushButt.Fil[i], 150);
            MPButtonSetCallback(DAS.Gui.PushButt.Fil[i], DB_Fil_CB, (void *) i);
    //      MButtonSetOnMouseOverForegroundRGB(DAS.Gui.PushButt.Fil[i], ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);
            MButtonSetOnMouseOverForegroundRGB(DAS.Gui.PushButt.Fil[i], 255, 0, 0);
        }

    }
    else
    {
        bas = 6;
        for (i=0; i<bas; i++)
        {
            if(DAS.Paramini.EqType == TROPOGAS)
                DAS.Gui.PushButt.Fil[i] = MCreatePButton(_tablefrm000, Fil_CodeTropo[i], HELV_SMALL);
            else if (DAS.Paramini.EqType == GASCODNG2 || DAS.Paramini.EqType == GASCODNG3 || DAS.Paramini.EqType == GASCODNG4)
                DAS.Gui.PushButt.Fil[i] = MCreatePButton(_tablefrm000, Fil_CodeNG[i], HELV_SMALL);
            else if (DAS.Paramini.EqType == GASCODNG1) 
                DAS.Gui.PushButt.Fil[i] = MCreatePButton(_tablefrm000, Fil_CodeNG1[i], HELV_SMALL);
            else
                DAS.Gui.PushButt.Fil[i] = MCreatePButton(_tablefrm000, Fil_Code[i], HELV_SMALL);

            MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            MObjectSetForegroundRGB(DAS.Gui.PushButt.Fil[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
            if (i==FWS.Pos) 
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[i], 0, 0, 255);

            MObjectAddEventNotifyCallback(DAS.Gui.PushButt.Fil[i], (OBJ_EVENT_CB) DB_FilSelButtKB_CB, EM_KEY_PRESS, (void *) i);
    //      MObjectAddEventNotifyCallback(DAS.Gui.PushButt.Fil[i], (OBJ_EVENT_CB) DB_FilSelButtMouse_CB, EM_BUTTON_PRESS, (void *) i);
            MObjectAddEventNotifyCallback(DAS.Gui.PushButt.Fil[i], (OBJ_EVENT_CB) DB_PushButtonMouse_CB, EM_BUTTON_PRESS | EM_MOTION, (void *) 3);
            MObjectSetShadow(DAS.Gui.PushButt.Fil[i], WS_SHADOW_OUT, 4, 0);
            MObjectSetCompositeWidth(DAS.Gui.PushButt.Fil[i], 150);
            MPButtonSetCallback(DAS.Gui.PushButt.Fil[i], DB_Fil_CB, (void *) i);
    //      MButtonSetOnMouseOverForegroundRGB(DAS.Gui.PushButt.Fil[i], ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);
            MButtonSetOnMouseOverForegroundRGB(DAS.Gui.PushButt.Fil[i], 255, 0, 0);
        }

    }
/*  
    for (i=0; i<(sizeof DAS.Gui.PushButt.Fil / sizeof DAS.Gui.PushButt.Fil[0]); i++)
    {
        DAS.Gui.PushButt.Fil[i] = MCreatePButton(_tablefrm000, Fil_Code[i], HELV_SMALL);
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        MObjectSetForegroundRGB(DAS.Gui.PushButt.Fil[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
        if (i==0) 
            MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[i], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);

        MObjectAddEventNotifyCallback(DAS.Gui.PushButt.Fil[i], (OBJ_EVENT_CB) DB_FilSelButtKB_CB, EM_KEY_PRESS, (void *) i);
        MObjectAddEventNotifyCallback(DAS.Gui.PushButt.Fil[i], (OBJ_EVENT_CB) DB_FilSelButtMouse_CB, EM_BUTTON_PRESS, (void *) i);
        MObjectSetShadow(DAS.Gui.PushButt.Fil[i], WS_SHADOW_OUT, 4, 0);
        MObjectSetCompositeWidth(DAS.Gui.PushButt.Fil[i], 150);
        MPButtonSetCallback(DAS.Gui.PushButt.Fil[i], DB_Fil_CB, (void *) i);
        MButtonSetOnMouseOverForegroundRGB(DAS.Gui.PushButt.Fil[i], ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);
    }

*/
    
    MShellSetWMCloseCallback(DAS.Gui.Shells.Sh_Fil, DB_Close_Sh, (void *) 2);
    MObjectAddEventNotifyCallback(DAS.Gui.Shells.Sh_Fil, (OBJ_EVENT_CB) DB_SheelESC, EM_KEY_PRESS, (void *) 2);

    MShellRealizeXY(DAS.Gui.Shells.Sh_Fil, 0, 0);

    FilFlg = 0;
    MLoopWhileFlag(&FilFlg, 0);
    if(FilBuff == "0")
        {
            FilFlg = 1;
            MShellUnrealize(DAS.Gui.Shells.Sh_Fil);
            MShellDestroy(DAS.Gui.Shells.Sh_Fil);
//          MShellRaise(DAS.Gui.Shells.Sh_KeyB);
            return er;
        }
    else  
        {
            MShellUnrealize(DAS.Gui.Shells.Sh_Fil);
            MShellDestroy(DAS.Gui.Shells.Sh_Fil);
//          MShellRaise(DAS.Gui.Shells.Sh_KeyB);
            return er;
        }
    
}

Here is the call graph for this function:

Here is the caller graph for this function:

MDCreateSh_Home()

int MDCreateSh_Home

(

void

)

Definition at line 6662 of file CreateForms.c.

References DB_Home_CB(), palette::DB_UnSel, palette::DB_UnSelFG, das::Gui, HELV_SMALL, pushbutt::HomePos, HomePosition, MCreatePButton(), MCreateShell(), MCreateTableForm(), MObjectSetBackgroundRGB(), MObjectSetCompositeWidth(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetShadow(), MPButtonSetCallback(), MShellRealizeXY(), gui::PushButt, SF_NO_MAXIMIZE, shells::Sh_Home, gui::Shells, True, wl, and WS_SHADOW_OUT.

Referenced by DB_KeyB_CB().

{
    int i, er = 0;
    MOBJECT _tablefrm000;
    char buff[16];
 
    DAS.Gui.Shells.Sh_Home = MCreateShell("SET HOME POSITION",SF_NO_MAXIMIZE);
    MObjectSetForegroundRGB(DAS.Gui.Shells.Sh_Home, 255, 255, 255);

    _tablefrm000 = MCreateTableForm(DAS.Gui.Shells.Sh_Home, 3);
    MObjectSetBackgroundRGB(_tablefrm000, 91, 74, 74);
    MObjectSetResize(_tablefrm000, True, True);
    
    for (i=0; i<(sizeof DAS.Gui.PushButt.HomePos / sizeof DAS.Gui.PushButt.HomePos[0]); i++)
    {
        itoa(wl[i],buff,10);
        DAS.Gui.PushButt.HomePos[i] = MCreatePButton(_tablefrm000, HomePosition[i], HELV_SMALL);
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.HomePos[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        MObjectSetForegroundRGB(DAS.Gui.PushButt.HomePos[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
        //MObjectAddEventNotifyCallback(DAS.Gui.PushButt.HomePos[i], (OBJ_EVENT_CB) DB_HomeSelButtKB_CB, EM_KEY_PRESS, (void *) i);
        //MObjectAddEventNotifyCallback(DAS.Gui.PushButt.HomePos[i], (OBJ_EVENT_CB) DB_PushButtonMouse_CB, EM_BUTTON_PRESS | EM_MOTION, (void *) 2);

        MObjectSetShadow(DAS.Gui.PushButt.HomePos[i], WS_SHADOW_OUT, 3, 0);
        MObjectSetCompositeWidth(DAS.Gui.PushButt.HomePos[i], 90);
        MPButtonSetCallback(DAS.Gui.PushButt.HomePos[i], DB_Home_CB, (void *) i);
        //MButtonSetOnMouseOverForegroundRGB(DAS.Gui.PushButt.HomePos[i], 255, 0, 0);
    }
    
    //MShellSetWMCloseCallback(DAS.Gui.Shells.Sh_Home, DB_Close_Sh, (void *) 1);
    //MObjectAddEventNotifyCallback(DAS.Gui.Shells.Sh_Home, (OBJ_EVENT_CB) DB_SheelESC, EM_KEY_PRESS, (void *) 1);

    MShellRealizeXY(DAS.Gui.Shells.Sh_Home, 0, 0);
/*
    HomeFlg = 0;
    MLoopWhileFlag(&HomeFlg, 0);
    if(WlBuff == "0")
        {
            WlFlg = 1;
            MShellUnrealize(DAS.Gui.Shells.Sh_Wl);
            MShellDestroy(DAS.Gui.Shells.Sh_Wl);
            return er;
        }
    else  
        {
            MShellUnrealize(DAS.Gui.Shells.Sh_Wl);
            MShellDestroy(DAS.Gui.Shells.Sh_Wl);
            return er;
        }
*/  
}

Here is the call graph for this function:

Here is the caller graph for this function:

MDCreateSh_Mir()

MDCreateSh_Mir

(

void

)

Create the shell for the available Mirror Positions. Procedure that build the shell for the positioning of the Input Mirror.
They are: 1) Zenith 2) Horizontal Right 3) Calibra (Down for the calibration sphere) 4) Horizontal Left.

Returns

0

Definition at line 5614 of file CreateForms.c.

References DB_Close_Sh(), DB_Mir_CB(), DB_MirSelButtKB_CB(), DB_PushButtonMouse_CB(), DB_SheelESC(), palette::DB_UnSel, palette::DB_UnSelFG, EM_BUTTON_PRESS, EM_KEY_PRESS, EM_MOTION, paramini::EqType, GASCODNG4, das::Gui, HELV_SMALL, MButtonSetOnMouseOverForegroundRGB(), MCreatePButton(), MCreateShell(), MCreateTableForm(), pushbutt::Mir, Mir_Code, Mir_CodeTropo, MirBuff, MirFlg, MIS, MLoopWhileFlag(), MObjectAddEventNotifyCallback(), MObjectSetBackgroundRGB(), MObjectSetCompositeWidth(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetShadow(), MPButtonSetCallback(), MShellDestroy(), MShellRealizeXY(), MShellSetWMCloseCallback(), MShellUnrealize(), das::Paramini, MirrorSt::Pos, gui::PushButt, SF_MODAL, shells::Sh_Mir, gui::Shells, SPATRAM3, TROPOGAS, True, and WS_SHADOW_OUT.

Referenced by DB_KeyB_CB().

{
    int i, er = 0;
    MOBJECT _tablefrm000;
//  MOBJECT _tablefrm001;
//  MOBJECT Esc_But;
    char buf[16];

    DAS.Gui.Shells.Sh_Mir = MCreateShell("SET INPUT MIRROR POSITION", SF_MODAL);
    MObjectSetForegroundRGB(DAS.Gui.Shells.Sh_Mir, 255, 255, 255);

/*
    _tablefrm001 = MCreateTableForm(DAS.Gui.Shells.Sh_Mir, 1);
    MObjectSetBackgroundRGB(_tablefrm001, 91, 74, 74);
    MObjectSetResize(_tablefrm001, True, True);

        Esc_But = MCreatePButton(_tablefrm001, "ESC-Return", HELV_SMALL);
        MObjectSetBackgroundRGB(Esc_But, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
        MObjectSetShadow(Esc_But, WS_SHADOW_OUT, 3, 0);
        MObjectSetCompositeWidth(Esc_But, 180);
        MButtonSetAccelerator(Esc_But, ESC);
        MButtonSetOnMouseOverForegroundRGB(Esc_But, 255, 255, 255);
        MPButtonSetCallback(Esc_But, DB_Esc_CB, (void *) 0);
*/  
    _tablefrm000 = MCreateTableForm(DAS.Gui.Shells.Sh_Mir, 1);
    MObjectSetBackgroundRGB(_tablefrm000, 91, 74, 74);
    MObjectSetResize(_tablefrm000, True, True);
    
    for (i=0; i < (sizeof DAS.Gui.PushButt.Mir / sizeof DAS.Gui.PushButt.Mir[0]); i++)
    {
        if (DAS.Paramini.EqType == TROPOGAS || DAS.Paramini.EqType == SPATRAM3 || DAS.Paramini.EqType == GASCODNG4 )
            sprintf(buf, "%s",Mir_CodeTropo[i]);
        else
            sprintf(buf, "%s",Mir_Code[i]);
    
        
        DAS.Gui.PushButt.Mir[i] = MCreatePButton(_tablefrm000, buf, HELV_SMALL);
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        MObjectSetForegroundRGB(DAS.Gui.PushButt.Mir[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
        if (i==MIS.Pos)
            MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[i], 0, 0, 255);
            //MObjectSetBackgroundRGB(DAS.Gui.PushButt.Mir[i], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);
        MObjectSetShadow(DAS.Gui.PushButt.Mir[i], WS_SHADOW_OUT, 4, 0);
        MObjectAddEventNotifyCallback(DAS.Gui.PushButt.Mir[i], (OBJ_EVENT_CB) DB_MirSelButtKB_CB, EM_KEY_PRESS, (void *) i);
        //MObjectAddEventNotifyCallback(DAS.Gui.PushButt.Mir[i], (OBJ_EVENT_CB) DB_MirSelButtMouse_CB, EM_BUTTON_PRESS | EM_MOTION, (void *) 1);
        MObjectAddEventNotifyCallback(DAS.Gui.PushButt.Mir[i], (OBJ_EVENT_CB) DB_PushButtonMouse_CB, EM_BUTTON_PRESS | EM_MOTION, (void *) 1);
        
        MObjectSetCompositeWidth(DAS.Gui.PushButt.Mir[i], 150);
        MPButtonSetCallback(DAS.Gui.PushButt.Mir[i], DB_Mir_CB, (void *) i);
//      MButtonSetOnMouseOverForegroundRGB(DAS.Gui.PushButt.Mir[i], ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);
        MButtonSetOnMouseOverForegroundRGB(DAS.Gui.PushButt.Mir[i], 255, 0, 0);
    }

    MShellSetWMCloseCallback(DAS.Gui.Shells.Sh_Mir, DB_Close_Sh, (void *) 0);
    MObjectAddEventNotifyCallback(DAS.Gui.Shells.Sh_Mir, (OBJ_EVENT_CB) DB_SheelESC, EM_KEY_PRESS, (void *) 0);

    MShellRealizeXY(DAS.Gui.Shells.Sh_Mir, 0, 0);

    MirFlg = 0;
    MLoopWhileFlag(&MirFlg, 0);
    if(MirBuff == "0")
        {
            MirFlg = 1;
            MShellUnrealize(DAS.Gui.Shells.Sh_Mir);
            MShellDestroy(DAS.Gui.Shells.Sh_Mir);
//          MShellRaise(DAS.Gui.Shells.Sh_KeyB);
            return er;
        }
    else  
        {
            MShellUnrealize(DAS.Gui.Shells.Sh_Mir);
            MShellDestroy(DAS.Gui.Shells.Sh_Mir);
//          MShellRaise(DAS.Gui.Shells.Sh_KeyB);
            return er;
        }
    
}

Here is the call graph for this function:

Here is the caller graph for this function:

MDCreateSh_NDFil()

int MDCreateSh_NDFil

(

void

)

Definition at line 6233 of file CreateForms.c.

References DB_Close_Sh(), DB_Fil_CB(), DB_FilSelButtKB_CB(), DB_NDFil_CB(), DB_NDFilSelButtKB_CB(), DB_PushButtonMouse_CB(), DB_SheelESC(), palette::DB_UnSel, palette::DB_UnSelFG, EM_BUTTON_PRESS, EM_KEY_PRESS, EM_MOTION, paramini::EqType, pushbutt::Fil, Fil_Code8H, Fil_CodeNG, Fil_CodeTropo, FWS, GASCODNG1, GASCODNG2, GASCODNG3, GASCODNG4, das::Gui, HELV_SMALL, LIS_, MButtonSetOnMouseOverForegroundRGB(), MCreatePButton(), MCreateShell(), MCreateTableForm(), MLoopWhileFlag(), MObjectAddEventNotifyCallback(), MObjectSetBackgroundRGB(), MObjectSetCompositeWidth(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetShadow(), MPButtonSetCallback(), MShellDestroy(), MShellRealizeXY(), MShellSetWMCloseCallback(), MShellUnrealize(), pushbutt::NDFil, NDFil_Code, NDFilBuff, NDFilFlg, NDFWS, das::Paramini, FilterWheelSt::Pos, NDFilterWheelSt::Pos, gui::PushButt, SF_MODAL, shells::Sh_NDFil, gui::Shells, TROPOGAS, True, and WS_SHADOW_OUT.

Referenced by DB_KeyB_CB().

{
    int i, er = 0;
    int bas = 0; //button array size 
    MOBJECT _tablefrm000;
//  MOBJECT _tablefrm001;
//  MOBJECT Esc_But;

    DAS.Gui.Shells.Sh_NDFil = MCreateShell("SET ND FILTER", SF_MODAL);
    MObjectSetForegroundRGB(DAS.Gui.Shells.Sh_NDFil, 255, 255, 255);

/*
    _tablefrm001 = MCreateTableForm(DAS.Gui.Shells.Sh_Fil, 1);
    MObjectSetBackgroundRGB(_tablefrm001, 91, 74, 74);
    MObjectSetResize(_tablefrm001, True, True);

        Esc_But = MCreatePButton(_tablefrm001, "ESC-Return", HELV_SMALL);
        MObjectSetBackgroundRGB(Esc_But, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
        MObjectSetShadow(Esc_But, WS_SHADOW_OUT, 3, 0);
        MObjectSetCompositeWidth(Esc_But, 180);
        MButtonSetAccelerator(Esc_But, ESC);
        MButtonSetOnMouseOverForegroundRGB(Esc_But, 255, 255, 255);
        MPButtonSetCallback(Esc_But, DB_Esc_CB, (void *) 2);
*/  
    _tablefrm000 = MCreateTableForm(DAS.Gui.Shells.Sh_NDFil, 1);
    MObjectSetBackgroundRGB(_tablefrm000, 91, 74, 74);
    MObjectSetResize(_tablefrm000, True, True);



    if(DAS.Paramini.EqType == LIS_)
    {
        bas = 8;
        for (i=0; i<bas; i++)
        {
            DAS.Gui.PushButt.NDFil[i] = MCreatePButton(_tablefrm000, Fil_Code8H[i], HELV_SMALL);
            MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            MObjectSetForegroundRGB(DAS.Gui.PushButt.Fil[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
            if (i==FWS.Pos) 
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[i], 0, 0, 255);

            MObjectAddEventNotifyCallback(DAS.Gui.PushButt.Fil[i], (OBJ_EVENT_CB) DB_FilSelButtKB_CB, EM_KEY_PRESS, (void *) i);
    //      MObjectAddEventNotifyCallback(DAS.Gui.PushButt.Fil[i], (OBJ_EVENT_CB) DB_FilSelButtMouse_CB, EM_BUTTON_PRESS, (void *) i);
            MObjectAddEventNotifyCallback(DAS.Gui.PushButt.Fil[i], (OBJ_EVENT_CB) DB_PushButtonMouse_CB, EM_BUTTON_PRESS | EM_MOTION, (void *) 3);
            MObjectSetShadow(DAS.Gui.PushButt.Fil[i], WS_SHADOW_OUT, 4, 0);
            MObjectSetCompositeWidth(DAS.Gui.PushButt.Fil[i], 150);
            MPButtonSetCallback(DAS.Gui.PushButt.Fil[i], DB_Fil_CB, (void *) i);
    //      MButtonSetOnMouseOverForegroundRGB(DAS.Gui.PushButt.Fil[i], ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);
            MButtonSetOnMouseOverForegroundRGB(DAS.Gui.PushButt.Fil[i], 255, 0, 0);
        }

    }
    else
    {
        bas = 6;
        for (i=0; i<bas; i++)
        {
            if(DAS.Paramini.EqType == TROPOGAS)
                DAS.Gui.PushButt.Fil[i] = MCreatePButton(_tablefrm000, Fil_CodeTropo[i], HELV_SMALL);
            else if (DAS.Paramini.EqType == GASCODNG1 || 
                DAS.Paramini.EqType == GASCODNG2 || 
                DAS.Paramini.EqType == GASCODNG3 ||
                DAS.Paramini.EqType == GASCODNG4)
                DAS.Gui.PushButt.NDFil[i] = MCreatePButton(_tablefrm000, Fil_CodeNG[i], HELV_SMALL);
            else
                DAS.Gui.PushButt.NDFil[i] = MCreatePButton(_tablefrm000, NDFil_Code[i], HELV_SMALL);

            MObjectSetBackgroundRGB(DAS.Gui.PushButt.NDFil[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
            MObjectSetForegroundRGB(DAS.Gui.PushButt.NDFil[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
            if (i==NDFWS.Pos) 
                MObjectSetBackgroundRGB(DAS.Gui.PushButt.NDFil[i], 0, 0, 255);

            MObjectAddEventNotifyCallback(DAS.Gui.PushButt.NDFil[i], (OBJ_EVENT_CB) DB_NDFilSelButtKB_CB, EM_KEY_PRESS, (void *) i);
    //      MObjectAddEventNotifyCallback(DAS.Gui.PushButt.Fil[i], (OBJ_EVENT_CB) DB_FilSelButtMouse_CB, EM_BUTTON_PRESS, (void *) i);
            MObjectAddEventNotifyCallback(DAS.Gui.PushButt.NDFil[i], (OBJ_EVENT_CB) DB_PushButtonMouse_CB, EM_BUTTON_PRESS | EM_MOTION, (void *) 4);
            MObjectSetShadow(DAS.Gui.PushButt.NDFil[i], WS_SHADOW_OUT, 4, 0);
            MObjectSetCompositeWidth(DAS.Gui.PushButt.NDFil[i], 150);
            MPButtonSetCallback(DAS.Gui.PushButt.NDFil[i], DB_NDFil_CB, (void *) i);
    //      MButtonSetOnMouseOverForegroundRGB(DAS.Gui.PushButt.Fil[i], ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);
            MButtonSetOnMouseOverForegroundRGB(DAS.Gui.PushButt.NDFil[i], 255, 0, 0);
        }

    }
/*  
    for (i=0; i<(sizeof DAS.Gui.PushButt.Fil / sizeof DAS.Gui.PushButt.Fil[0]); i++)
    {
        DAS.Gui.PushButt.Fil[i] = MCreatePButton(_tablefrm000, Fil_Code[i], HELV_SMALL);
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        MObjectSetForegroundRGB(DAS.Gui.PushButt.Fil[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
        if (i==0) 
            MObjectSetBackgroundRGB(DAS.Gui.PushButt.Fil[i], DPAL.DB_Sel[0], DPAL.DB_Sel[1], DPAL.DB_Sel[2]);

        MObjectAddEventNotifyCallback(DAS.Gui.PushButt.Fil[i], (OBJ_EVENT_CB) DB_FilSelButtKB_CB, EM_KEY_PRESS, (void *) i);
        MObjectAddEventNotifyCallback(DAS.Gui.PushButt.Fil[i], (OBJ_EVENT_CB) DB_FilSelButtMouse_CB, EM_BUTTON_PRESS, (void *) i);
        MObjectSetShadow(DAS.Gui.PushButt.Fil[i], WS_SHADOW_OUT, 4, 0);
        MObjectSetCompositeWidth(DAS.Gui.PushButt.Fil[i], 150);
        MPButtonSetCallback(DAS.Gui.PushButt.Fil[i], DB_Fil_CB, (void *) i);
        MButtonSetOnMouseOverForegroundRGB(DAS.Gui.PushButt.Fil[i], ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);
    }

*/
    
    MShellSetWMCloseCallback(DAS.Gui.Shells.Sh_NDFil, DB_Close_Sh, (void *) 3);
    MObjectAddEventNotifyCallback(DAS.Gui.Shells.Sh_NDFil, (OBJ_EVENT_CB) DB_SheelESC, EM_KEY_PRESS, (void *) 3);

    MShellRealizeXY(DAS.Gui.Shells.Sh_NDFil, 0, 0);

    NDFilFlg = 0;
    MLoopWhileFlag(&NDFilFlg, 0);
    if(NDFilBuff == "0")
        {
            NDFilFlg = 1;
            MShellUnrealize(DAS.Gui.Shells.Sh_NDFil);
            MShellDestroy(DAS.Gui.Shells.Sh_NDFil);
//          MShellRaise(DAS.Gui.Shells.Sh_KeyB);
            return er;
        }
    else  
        {
            MShellUnrealize(DAS.Gui.Shells.Sh_NDFil);
            MShellDestroy(DAS.Gui.Shells.Sh_NDFil);
//          MShellRaise(DAS.Gui.Shells.Sh_KeyB);
            return er;
        }
    
}

Here is the call graph for this function:

Here is the caller graph for this function:

MDCreateSh_SimPos()

int MDCreateSh_SimPos

(

void

)

Definition at line 4411 of file CreateForms.c.

References optionini::aaopmode, CENTER_ALIGN, CloseShCB(), palette::DB_BG, palette::DB_BG_Albl, palette::DB_BG_Plbl, palette::DB_FG_Albl, palette::DB_FG_Plbl, palette::DB_UnSel, palette::DB_UnSelFG, das::DOption, paramini::EqType, ExecSimPosCB(), Fil_Code, Fil_Code8H, Fil_CodeNG, Fil_CodeNG1, Fil_CodeTropo, FIXED_SMALL, FWS, GASCODNG1, GASCODNG2, GASCODNG3, GASCODNG4, das::Gui, LIST_ACT::item, lbl, LEFT_ALIGN, mige::linked, LIS_, ListTargetCB(), MButtonSetOnMouseOverForegroundRGB(), MCreateLabel(), MCreateOptionEdit(), MCreatePButton(), MCreateRowForm(), MCreateShell(), MCreateTableForm(), MEditDisableEditing(), das::MIGE, pushbutt::Mir, Mir_Code, Mir_CodeTropo, MIS, MLabelSetAlignment(), MObjectAlign(), MObjectSetBackgroundRGB(), MObjectSetCompositeWidth(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetText(), MObjectSetTransparency(), MObjectSetUnsensitive(), MObjectSetWidth(), MOptionEditGetList(), MOptionEditSetListCallback(), MPButtonSetCallback(), MShellRealize(), MShellSetWMCloseCallback(), MSListAddItem(), MSListGetSelected(), MSListSelectElement(), das::Paramini, FilterWheelSt::Pos, MirrorSt::Pos, ZenithSt::Pos, AzimuthSt::Pos, gui::PushButt, RIGHT_ALIGN, SF_MODAL, shells::Sh_SimPos, gui::Shells, SimPosShClose_CB(), flag::SimShell, SPATRAM2, SPATRAM3, SPATRAMPLUS, FilterWheelSt::target, GratingSt::target, MirrorSt::target, ZenithSt::target, AzimuthSt::target, tb1, TIMES_SMALL, TOP_ALIGN, TROPOGAS, True, wl, pushbutt::Wl, and GratingSt::Wl.

Referenced by DB_KeyB_CB().

{
    int i, er = 0, nfilt;
    char buf[80];
    MOBJECT tb, tb1;
    MOBJECT pb;
    MOBJECT rowform;
//  MOBJECT colform;
    MOBJECT lbl;
    MOBJECT optedit;
    MOBJECT list;

    LIST_ACT * pla;


    //DAS.Gui.Shells.Sh_SimPos = MCreateShell("SET DESIRED POSITION",SF_SAVEUNDER);
    DAS.Gui.Shells.Sh_SimPos = MCreateShell("SET DEVICE POSITION",SF_MODAL);
    MObjectSetForegroundRGB(DAS.Gui.Shells.Sh_SimPos, 255, 255, 255);
    MObjectSetBackgroundRGB(DAS.Gui.Shells.Sh_SimPos, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    rowform = MCreateRowForm(DAS.Gui.Shells.Sh_SimPos);
    MObjectSetBackgroundRGB(rowform, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetWidth(rowform, 250);
    //MObjectSetResize(rowform, True, True);

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

    /*********************************************/
    lbl = MCreateLabel(tb, "Mirror", FIXED_SMALL);
    MLabelSetAlignment(lbl, LEFT_ALIGN);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    MObjectSetTransparency(lbl, 0);
    MObjectSetResize(lbl, True, True);

    optedit = MCreateOptionEdit(tb, "", 8, 8, 4, FIXED_SMALL);
    MEditDisableEditing(optedit);
    MObjectAlign(optedit, RIGHT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(optedit, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(optedit, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    list = MOptionEditGetList(optedit);
    for (i=0; i < (sizeof DAS.Gui.PushButt.Mir / sizeof DAS.Gui.PushButt.Mir[0]); i++)
    {
        if (DAS.Paramini.EqType == TROPOGAS || DAS.Paramini.EqType == SPATRAM3 || DAS.Paramini.EqType == GASCODNG4 )
            sprintf(buf, "%s",Mir_CodeTropo[i]);
        else
            sprintf(buf, "%s",Mir_Code[i]);
        MSListAddItem(list, buf, 0L);
    }
    MSListSelectElement(list, MIS.Pos);
    MIS.target = MIS.Pos;
    MOptionEditSetListCallback(optedit, ListTargetCB, (void *) 0);
    pla = MSListGetSelected(list);
    sprintf(buf, "%s",pla->item);
    MObjectSetText(optedit, buf);
    /*********************************************/

    /*********************************************/
    lbl = MCreateLabel(tb, "Grating", FIXED_SMALL);
    MLabelSetAlignment(lbl, LEFT_ALIGN);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    MObjectSetTransparency(lbl, 0);
    MObjectSetResize(lbl, True, True);

    optedit = MCreateOptionEdit(tb, "", 8, 8, 14, FIXED_SMALL);
    MEditDisableEditing(optedit);
    MObjectAlign(optedit, RIGHT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(optedit, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(optedit, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    list = MOptionEditGetList(optedit);
    for (i=0; i < (sizeof DAS.Gui.PushButt.Wl / sizeof DAS.Gui.PushButt.Wl[0]); i++)
    {
        //sprintf(buf, "%s",Wl_Code[i]);
        itoa(wl[i], buf,10);
        MSListAddItem(list, buf, 0L);
    }
    MSListSelectElement(list, GRS.Wl);
    GRS.target = GRS.Wl;
    MOptionEditSetListCallback(optedit, ListTargetCB, (void *) 1);
    pla = MSListGetSelected(list);
    sprintf(buf, "%s",pla->item);
    MObjectSetText(optedit, buf);
    /*********************************************/

    /*********************************************/
    lbl = MCreateLabel(tb, "Filter", FIXED_SMALL);
    MLabelSetAlignment(lbl, LEFT_ALIGN);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    MObjectSetTransparency(lbl, 0);
    MObjectSetResize(lbl, True, True);

    if(DAS.Paramini.EqType == LIS_)
        nfilt = 8;
    else
        nfilt = 6;

    optedit = MCreateOptionEdit(tb, "", 8, 8, nfilt, FIXED_SMALL);
    MEditDisableEditing(optedit);
    MObjectAlign(optedit, RIGHT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(optedit, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(optedit, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    list = MOptionEditGetList(optedit);
    
    

    for (i=0; i < nfilt; i++)
    {
        if(nfilt==8)
            sprintf(buf, "%s",Fil_Code8H[i]);
        else
        {
            if(DAS.Paramini.EqType == TROPOGAS)
                sprintf(buf, "%s",Fil_CodeTropo[i]);
            else if (DAS.Paramini.EqType == GASCODNG2 || 
                    DAS.Paramini.EqType == GASCODNG3  || 
                    DAS.Paramini.EqType == GASCODNG4)
                sprintf(buf, "%s",Fil_CodeNG[i]);
            else if (DAS.Paramini.EqType == GASCODNG1)
                sprintf(buf, "%s",Fil_CodeNG1[i]);
            else
                sprintf(buf, "%s",Fil_Code[i]);
        }
        
        
        
        MSListAddItem(list, buf, 0L);
    }
    MSListSelectElement(list, FWS.Pos);
    FWS.target = FWS.Pos;
    MOptionEditSetListCallback(optedit, ListTargetCB, (void *) 2);
    pla = MSListGetSelected(list);
    sprintf(buf, "%s",pla->item);
    MObjectSetText(optedit, buf);
    /*********************************************/

    if(DAS.Paramini.EqType == TROPOGAS || 
        DAS.Paramini.EqType == SPATRAMPLUS ||
        DAS.Paramini.EqType == GASCODNG1 || 
        DAS.Paramini.EqType == GASCODNG2 ||
        DAS.Paramini.EqType == GASCODNG3 ||
        DAS.Paramini.EqType == GASCODNG4 ||
        DAS.Paramini.EqType == SPATRAM2  ||
        DAS.Paramini.EqType == SPATRAM3)
    {
        if (DAS.MIGE.linked)
        {
    /*********************************************/
        lbl = MCreateLabel(tb, "Zenith", FIXED_SMALL);
        MLabelSetAlignment(lbl, LEFT_ALIGN);
        MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
        MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
        MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
        MObjectSetTransparency(lbl, 0);
        MObjectSetResize(lbl, True, True);

        optedit = MCreateOptionEdit(tb, "", 8, 8, 15, FIXED_SMALL);
        MEditDisableEditing(optedit);
        MObjectAlign(optedit, RIGHT_ALIGN, TOP_ALIGN);
        MObjectSetForegroundRGB(optedit, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
        MObjectSetBackgroundRGB(optedit, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
        list = MOptionEditGetList(optedit);
//      if(DAS.MIGE.type)
//      {
            for (i=-90; i < 91; i++)
            {
                sprintf(buf, "%d",i);
                MSListAddItem(list, buf, 0L);
            }
            MSListSelectElement(list, (long) ZST.Pos+90);
//      }
/*      else
        {
            for (i=-91; i < 45; i++)
            {
                sprintf(buf, "%d",i);
                MSListAddItem(list, buf, 0L);
            }
            MSListSelectElement(list, (long) ZST.Pos+91);
        }
*/
        ZST.target = ZST.Pos;
        MOptionEditSetListCallback(optedit, ListTargetCB, (void *) 4);
        pla = MSListGetSelected(list);
        sprintf(buf, "%s",pla->item);
        MObjectSetText(optedit, buf);
        if(DAS.DOption.aaopmode == 0)
        {
            MObjectSetUnsensitive(optedit);
            MObjectSetBackgroundRGB(optedit, 192, 192, 192);
        }
    /*********************************************/

    /*********************************************/
        lbl = MCreateLabel(tb, "Azimuth", FIXED_SMALL);
        MLabelSetAlignment(lbl, LEFT_ALIGN);
        MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
        MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
        MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
        MObjectSetTransparency(lbl, 0);
        MObjectSetResize(lbl, True, True);

        optedit = MCreateOptionEdit(tb, "", 8, 8, 20, FIXED_SMALL);
        MEditDisableEditing(optedit);
        MObjectAlign(optedit, RIGHT_ALIGN, TOP_ALIGN);
        MObjectSetForegroundRGB(optedit, DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
        MObjectSetBackgroundRGB(optedit, DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
        list = MOptionEditGetList(optedit);
//      if(DAS.MIGE.type)
//      {
            for (i = 0; i < 361; i++)
            {
                sprintf(buf, "%d",i);
                MSListAddItem(list, buf, 0L);
            }

            MSListSelectElement(list,(long) (AST.Pos));
/*      }
        else
        {
            for (i = 20; i < 306; i++)
            {
                sprintf(buf, "%d",i);
                MSListAddItem(list, buf, 0L);
            }

            MSListSelectElement(list,(long) (AST.Pos - 20));

        }
*/      AST.target = AST.Pos ;
        MOptionEditSetListCallback(optedit, ListTargetCB, (void *) 5);
        pla = MSListGetSelected(list);
        sprintf(buf, "%s",pla->item);
        MObjectSetText(optedit, buf);
        if(DAS.DOption.aaopmode == 0)
        {
            MObjectSetUnsensitive(optedit);
            MObjectSetBackgroundRGB(optedit, 192, 192, 192);
        }
    /*********************************************/
        }
    }

    tb1 = MCreateTableForm(rowform, 2);
    MObjectSetBackgroundRGB(tb1, 91, 74, 74);
    MObjectSetResize(tb1, True, True);

    pb = MCreatePButton(tb1, "GO", TIMES_SMALL);
    MObjectAlign(pb, CENTER_ALIGN, CENTER_ALIGN);
    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, 255, 0, 0);
    MObjectSetCompositeWidth(pb, 70);
    MPButtonSetCallback(pb, ExecSimPosCB, 0);

    pb = MCreatePButton(tb1, "Close", TIMES_SMALL);
    MObjectAlign(pb, CENTER_ALIGN, CENTER_ALIGN);
    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, 255, 0, 0);
    MObjectSetCompositeWidth(pb, 70);
    MPButtonSetCallback(pb, SimPosShClose_CB, (void *) DAS.Gui.Shells.Sh_SimPos);

//

    MShellSetWMCloseCallback (DAS.Gui.Shells.Sh_SimPos, CloseShCB, 0);
    MShellRealize(DAS.Gui.Shells.Sh_SimPos);

    FLAG.SimShell = 1;
    
    return 0;

}

Here is the caller graph for this function:

MDCreateSh_Wl()

int MDCreateSh_Wl

(

void

)

Create the shell for the available Wavelength. Procedure that build the shell for the availables wavelength. They are fixed and setted during the testing phase.

Returns

0

Definition at line 5815 of file CreateForms.c.

References DB_Close_Sh(), DB_PushButtonMouse_CB(), DB_SheelESC(), palette::DB_UnSel, palette::DB_UnSelFG, DB_Wl_CB(), DB_WlSelButtKB_CB(), EM_BUTTON_PRESS, EM_KEY_PRESS, EM_MOTION, das::Gui, HELV_SMALL, MButtonSetOnMouseOverForegroundRGB(), MCreatePButton(), MCreateShell(), MCreateTableForm(), MLoopWhileFlag(), MObjectAddEventNotifyCallback(), MObjectSetBackgroundRGB(), MObjectSetCompositeWidth(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetShadow(), MPButtonSetCallback(), MShellDestroy(), MShellRealizeXY(), MShellSetWMCloseCallback(), MShellUnrealize(), gui::PushButt, SF_MODAL, shells::Sh_Wl, gui::Shells, True, wl, pushbutt::Wl, GratingSt::Wl, WlBuff, WlFlg, and WS_SHADOW_OUT.

Referenced by DB_KeyB_CB().

{
    int i, er = 0;
    MOBJECT _tablefrm000;
//  MOBJECT _tablefrm001;
//  MOBJECT Esc_But;
    char buff[16];
 
    DAS.Gui.Shells.Sh_Wl = MCreateShell("SET WORK WAVELENGTH", SF_MODAL);
    MObjectSetForegroundRGB(DAS.Gui.Shells.Sh_Wl, 255, 255, 255);

/*  _tablefrm001 = MCreateTableForm(DAS.Gui.Shells.Sh_Wl, 1);
    MObjectSetBackgroundRGB(_tablefrm001, 91, 74, 74);
    MObjectSetResize(_tablefrm001, True, True);

        Esc_But = MCreatePButton(_tablefrm001, "ESC-Return", HELV_SMALL);
        MObjectSetBackgroundRGB(Esc_But, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
        MObjectSetShadow(Esc_But, WS_SHADOW_OUT, 3, 0);
        MObjectSetCompositeWidth(Esc_But, 180);
        MButtonSetAccelerator(Esc_But, ESC);
        MButtonSetOnMouseOverForegroundRGB(Esc_But, 255, 255, 255);
        MPButtonSetCallback(Esc_But, DB_Esc_CB, (void *) 1);
*/      
    _tablefrm000 = MCreateTableForm(DAS.Gui.Shells.Sh_Wl, 3);
    MObjectSetBackgroundRGB(_tablefrm000, 91, 74, 74);
    MObjectSetResize(_tablefrm000, True, True);
    
    for (i=0; i<(sizeof DAS.Gui.PushButt.Wl / sizeof DAS.Gui.PushButt.Wl[0]); i++)
    {
        itoa(wl[i],buff,10);
        DAS.Gui.PushButt.Wl[i] = MCreatePButton(_tablefrm000, buff, HELV_SMALL);
//      DAS.Gui.PushButt.Wl[i] = MCreatePButton(_tablefrm000, Wl_Code[i], HELV_SMALL);
        MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        MObjectSetForegroundRGB(DAS.Gui.PushButt.Wl[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
        if (i==GRS.Wl) 
            MObjectSetBackgroundRGB(DAS.Gui.PushButt.Wl[i], 0, 0, 255);

        MObjectAddEventNotifyCallback(DAS.Gui.PushButt.Wl[i], (OBJ_EVENT_CB) DB_WlSelButtKB_CB, EM_KEY_PRESS, (void *) i);
//      MObjectAddEventNotifyCallback(DAS.Gui.PushButt.Wl[i], (OBJ_EVENT_CB) DB_WlSelButtMouse_CB, EM_BUTTON_PRESS, (void *) i);
        MObjectAddEventNotifyCallback(DAS.Gui.PushButt.Wl[i], (OBJ_EVENT_CB) DB_PushButtonMouse_CB, EM_BUTTON_PRESS | EM_MOTION, (void *) 2);
        //if (i > 14 )
        //{
        //  MObjectSetUnsensitive(DAS.Gui.PushButt.Wl[i]);
        //}
        MObjectSetShadow(DAS.Gui.PushButt.Wl[i], WS_SHADOW_OUT, 3, 0);
        MObjectSetCompositeWidth(DAS.Gui.PushButt.Wl[i], 90);
        MPButtonSetCallback(DAS.Gui.PushButt.Wl[i], DB_Wl_CB, (void *) i);
//      MButtonSetOnMouseOverForegroundRGB(DAS.Gui.PushButt.Wl[i], ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);
        MButtonSetOnMouseOverForegroundRGB(DAS.Gui.PushButt.Wl[i], 255, 0, 0);
    }
    
    MShellSetWMCloseCallback(DAS.Gui.Shells.Sh_Wl, DB_Close_Sh, (void *) 1);
    MObjectAddEventNotifyCallback(DAS.Gui.Shells.Sh_Wl, (OBJ_EVENT_CB) DB_SheelESC, EM_KEY_PRESS, (void *) 1);

    MShellRealizeXY(DAS.Gui.Shells.Sh_Wl, 0, 0);

    WlFlg = 0;
    MLoopWhileFlag(&WlFlg, 0);
    if(WlBuff == "0")
        {
            WlFlg = 1;
            MShellUnrealize(DAS.Gui.Shells.Sh_Wl);
            MShellDestroy(DAS.Gui.Shells.Sh_Wl);
//          MShellRaise(DAS.Gui.Shells.Sh_KeyB);
            return er;
        }
    else  
        {
            MShellUnrealize(DAS.Gui.Shells.Sh_Wl);
            MShellDestroy(DAS.Gui.Shells.Sh_Wl);
//          MShellRaise(DAS.Gui.Shells.Sh_KeyB);
            return er;
        }
    
}

Here is the call graph for this function:

Here is the caller graph for this function:

MIGEAz()

float MIGEAz

(

float

p

)

Definition at line 3475 of file CreateForms.c.

References paramini::EqType, GASCODNG2, das::MIGE, p, das::Paramini, S_azim, TROPOGAS, and mige::type.

Referenced by ActMvAzimDegCB(), MIGEActualZenAz(), SD_Azimuth(), SD_PosAADev(), and SD_Position().

{

    float MAZMax; //MIGE Azimut MAX
    float MAZMin; //MIGE Azimut Min
    float SAA, az;
    char str[80];

    if( (DAS.MIGE.type == 1 & DAS.Paramini.EqType == GASCODNG2) )
    {
        MAZMax = 120.0; //MIGE Azimut MAX - Silver Model
        MAZMin = -60.0; //MIGE Azimut Min - Silver Model
    }
    else if (DAS.MIGE.type == 1 & DAS.Paramini.EqType == TROPOGAS)
    {
        MAZMax = 160.0; //MIGE Azimut MAX - Silver Model 
        MAZMin = -20.0; //MIGE Azimut Min - Silver Model
    }
    else if (DAS.MIGE.type == 1)
    {
        MAZMax = 60.0; //MIGE Azimut MAX - Black Prototype Model
        MAZMin = -120.0; //MIGE Azimut Min - Black Prototype Model
    }
    if (DAS.MIGE.type == 2)
    {
        MAZMax = 90.0; //MIGE Azimut MAX - COM Model (slip ring)
        MAZMin = -90.0; //MIGE Azimut Min - COM Model (slip Ring)


    }   
    //Need condition for the latitude? 
        // Inside Tropics
       
        //sun Azimuth angle    
        sprintf(str, "%.01lf", S_azim);
        SAA = p;


        if (SAA >= 0 && SAA <= MAZMax)
        {
            az = SAA;
        }
        if (SAA > MAZMax && SAA <= (MAZMax + 180))
        {
            az = SAA - 180; 
        }
        if (SAA > (MAZMax+180) && SAA < 360)
        {
            az = SAA - 360;
        }

        return az;
}

Here is the caller graph for this function:

MIGEZen()

float MIGEZen

(

float

p

)

Definition at line 3419 of file CreateForms.c.

References paramini::EqType, GASCODNG2, das::MIGE, p, das::Paramini, AzimuthSt::realazpos, TROPOGAS, and mige::type.

Referenced by MIGEActualZenAz(), SD_PosAADev(), SD_Position(), and SD_Zenith().

{
    float MAZMax; //MIGE Azimut MAX
    float MAZMin; //MIGE Azimut Min
    float SAA, az;
    char str[80];

    
    if (DAS.MIGE.type == 1 & DAS.Paramini.EqType == GASCODNG2)
    {
        MAZMax = 120.0; //MIGE Azimut MAX - Silver Model
        MAZMin = -60.0; //MIGE Azimut Min - Silver Model
    }
    else if (DAS.MIGE.type == 1 & DAS.Paramini.EqType == TROPOGAS)
    {
        MAZMax = 160.0; //MIGE Azimut MAX - Silver Model
        MAZMin = -20.0; //MIGE Azimut Min - Silver Model
    }
    else if (DAS.MIGE.type == 1)
    {
        MAZMax = 60.0; //MIGE Azimut MAX - Black Prototype Model
        MAZMin = -120.0; //MIGE Azimut Min - Black Prototype Model
    }
    if (DAS.MIGE.type == 2)
    {
        MAZMax = 90.0; //MIGE Azimut MAX - COM Model (slip ring)
        MAZMin = -90.0; //MIGE Azimut Min - COM Model (slip Ring)       
    }   
        //Need condition for the latitude? 
        // Inside Tropics
       
        //sun Azimuth angle    
        sprintf(str, "%.01lf", AST.realazpos);
        SAA = (float)atof(str);


        if (SAA >= 0 && SAA <= MAZMax)
        {
            p = p;
        }
        if (SAA > MAZMax && SAA <= (MAZMax + 180))
        {
            //p = -p;
            p= 180 - p;
        }
        if (SAA > (MAZMax + 180) && SAA < 360)
        {
            p = p;
        }

    return p;

}

Here is the caller graph for this function:

MIGEZenAzPos_CB()

void MIGEZenAzPos_CB	(	MOBJECT	o,
		void *	a,
		void *	v
	)

Definition at line 3554 of file CreateForms.c.

References mige::edtaz, mige::edtzen, GratFlg, das::MIGE, MObjectGetText(), and SD_Position().

Referenced by MDCreateMoveZenAzimDeg().

{

    int er = 0;
    int c = (int) v;
    char buf[32];
    float z, az;

    MObjectGetText(DAS.MIGE.edtzen, buf);
    z = (float) atof(buf);
    MObjectGetText(DAS.MIGE.edtaz, buf);
    az = (float) atof(buf);

    SD_Position(-1, -1, -1, z, az);

    GratFlg = 1;

}

Here is the call graph for this function:

Here is the caller graph for this function:

PopUpAdvCal_CB()

void PopUpAdvCal_CB	(	MOBJECT	obj,
		void *	item,
		void *	data
	)

Definition at line 1110 of file CreateForms.c.

References MMessageDialog().

Referenced by MDCreate_CP().

{
    int c = (int) data;
//  char buf[16];

    MMessageDialog("DAS Inf", "Procedure not implemented yet!!!", "OK", NULL);

}

Here is the call graph for this function:

Here is the caller graph for this function:

PupAdvCal_CB()

void PupAdvCal_CB	(	MOBJECT	obj,
		MEvent *	pe,
		void *	pdown
	)

Definition at line 1126 of file CreateForms.c.

References MMouseEvent::button, MEvent::mouse, MPopupMenu(), MMouseEvent::x_root, and MMouseEvent::y_root.

Referenced by MDCreate_CP().

{
  
//  char buf[16];

        if (pe->mouse.button == Button3)
        
            MPopupMenu ((MOBJECT) pdown, pe->mouse.x_root, pe->mouse.y_root);

}

Here is the call graph for this function:

Here is the caller graph for this function:

ShutCB()

void ShutCB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Definition at line 6740 of file CreateForms.c.

References AMS2, AMS_PWM(), config::CamAdd, CCD_Error(), CELSIUS, CloseShCB(), DXL_par::com, DB_WriteMode(), DC_Close(), DC_Cooler(), DC_ErrorMessage(), DC_SetTemp(), DC_Status(), delay(), bil::DFILEM, dscb, dscFree(), dscFreeBoard(), paramini::EqType, FANFlg, FANPeltier(), GASCODNG1, GASCODNG2, GASCODNG3, GASCODNG4, HGFlg, HgLamp(), HiresPS(), d_fileman::HOMEDIRECTORY, LISTEMP_TASK_TIME, MGUITerm(), das::Nova, NOVA7892, NOVA945GSE, NOVA_Out(), das::Paramini, PeltFlg, Peltier(), PeltierPS(), QJFlg, QjLamp(), sdsh, ShutterOpening(), SioDone(), SPATRAM2, SPATRAM3, SPATRAMPLUS, Status(), TROPOGAS, nova::type, and WDT_func().

Referenced by ShutDOWN().

{
    int     c = (int) ad;
    int er = 0;
    char buf[128];
    int PowerOn, PowerOff;

    _chdir( BIL.DFILEM.HOMEDIRECTORY); 


//  char    buf[80];

/*  FILE *fs;
    fs = fopen("Status.log", "w");
        fprintf(fs, "%d\n", CoolPw);
        fprintf(fs, "%.1lf\n", Temp);
    fclose(fs);
*/
    switch(c)
    {
        case 0:
            //CCD Shutting Down Cooler On
            er = DC_Status(Cfg.CamAdd);
            if (er)
            {
                sprintf(buf,DC_ErrorMessage(er));
                CCD_Error(buf);
                CloseShCB(sdsh, 0, (void *) c);
            }
            else
            {
                DC_SetTemp(25.0, CELSIUS, 0);
                Status("CCD Shuting Down - Cooler On ");
                CloseShCB(sdsh, 0, (void *) c);
            }
            break;
        case 1:
            //CCD Shutting Down (cooler Off)
            DC_SetTemp(25.0, CELSIUS, 0);
            Status("CCD Shuting Down - Cooler Off");
            CloseShCB(sdsh, 0, ad);
            break;
        case 2:
            //NO CCD Shutting Down (cooler On)
            DB_WriteMode(1);
            ShutterOpening(1);
            DC_Close(0); //DA RIMETTERE!!!!!!!!!!!!!!!!!1
            if (HGFlg)
                HgLamp(0);//HG Off
            if (QJFlg)
                QjLamp(0);//QJ Off
            CloseShCB(sdsh, 0, ad);
            WDT_func(0); //Stop WDT
            MGUITerm();
            SioDone(DXL.com);//Close Com connection
            exit(0);

            break;

        case 3:
            ShutterOpening(1);
            // All Off
            DB_WriteMode(0);//Write 0 on the Paramini.Log
            dscFreeBoard(dscb);//Free resources from PC104 board
            dscFree();//Free resources from PC104 board
            PowerOn = 1;
            PowerOff = LISTEMP_TASK_TIME ;
            AMS_PWM(AMS2, PowerOn, PowerOff);//Peltier Power a 0
//          DTxStr(AMS2, "7", 1);//PWM off
//          er = DRxStr(AMS2, buf, &d, 50);
            //Rele'
            if(PeltFlg)
                Peltier(0); //Peltier Off
            if (HGFlg)
                HgLamp(0);//HG Off
            if (QJFlg)
                QjLamp(0);//QJ Off
            if (FANFlg)
                FANPeltier(0);//FAN Off

            
            DC_Cooler(0,0); //Camera cooler OFF
            DC_Close(0); // Close Camera Communication  DA RIMETTERE!!!!!!!!!!!!!!!!!1

            //Switch OFF the Power supplyes (put to 0 the NOVA Dig Output - For GASCODNG2 and GASCODNG3)
            if (DAS.Paramini.EqType == GASCODNG1 || 
                DAS.Paramini.EqType == GASCODNG2 ||
                DAS.Paramini.EqType == GASCODNG3 ||
                DAS.Paramini.EqType == GASCODNG4 ||
                DAS.Paramini.EqType == SPATRAM2  ||
                DAS.Paramini.EqType == SPATRAM3  ||
                DAS.Paramini.EqType == SPATRAMPLUS) 
            {
        

                /****************************************************
                nb = 1; //24 V
                er = ChkDigIO(DAS.Nova.DigOut, nb);
                if (er == 1)
                    DAS.Nova.DigOut &= ~((unsigned char) pow(2,(double)(nb)));
                else if (er == 0)
                    DAS.Nova.DigOut |= (unsigned char) pow(2,(double)(nb));
                
                er = NOVA_Out(DAS.Nova.type, DAS.Nova.DigOut);
                delay(500);
                /*****************************************************/

                /****************************************************
                nb = 2; //12 V and Hires
                er = ChkDigIO(DAS.Nova.DigOut, nb);
                if (er == 1)
                    DAS.Nova.DigOut &= ~((unsigned char) pow(2,(double)(nb)));
                else if (er == 0)
                    DAS.Nova.DigOut |= (unsigned char) pow(2,(double)(nb));
                
                er = NOVA_Out(DAS.Nova.type, DAS.Nova.DigOut);
                delay(500);
                /*****************************************************/
            if (DAS.Nova.type == NOVA7892)
            {
                er = NOVA_Out(DAS.Nova.type, 0);
            }
            if (DAS.Nova.type == NOVA945GSE)
            {
                //switch off all
                er = NOVA_Out(DAS.Nova.type, 15);
            }


                
                //ExtShutt(0); //Close the external shutter (Not used)

            }
            //Switch OFF the Hires and disconnect the 24V Power supplyes 
            if (DAS.Paramini.EqType == TROPOGAS )
            {
                HiresPS(0);

                Status ("Waiting 50ms.");
                delay(50);


                PeltierPS(0);
                Status ("Waiting 50ms.");
                delay(50);


            }

            WDT_func(0); //Stop WDT
            CloseShCB(sdsh, 0, ad);
            MGUITerm();
            SioDone(DXL.com);//Close Com connection
            exit(0);
            break;
        case 4:
            CloseShCB(sdsh, 0, ad);         
            break;

    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

ShutDOWN()

void ShutDOWN

(

void

)

Creates shell for Shutting down the instrument
.

Definition at line 6903 of file CreateForms.c.

References CloseShCB(), palette::DB_BG, palette::DB_BG_Plbl, palette::DB_FG_Plbl, palette::DB_UnSel, palette::DB_UnSelFG, DBDEMO, ESC, flag::exemode, F1, F2, F3, F4, das::Flag, HELV_MEDIUM, HELV_SMALL, lbl, MButtonSetAccelerator(), MButtonSetOnMouseOverForegroundRGB(), MCreateLabel(), MCreatePButton(), MCreateRowForm(), MCreateShell(), MCreateTableForm(), MObjectSetBackgroundRGB(), MObjectSetCompositeWidth(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetShadow(), MObjectSetText(), MObjectSetTransparency(), MObjectSetUnsensitive(), MPButtonSetCallback(), MShellRealize(), MShellRealizeXY(), MShellSetWMCloseCallback(), OFFLINEPLOT, sdsh, SF_MODAL, ShutCB(), True, WS_NONE, and WS_SHADOW_OUT.

Referenced by DB_KeyB_CB().

{

    MOBJECT lbl, pb[4], a, b;


    const char *ShDwn_Code[] = {{"F1 - CCD ShutDown, Cooler On"},
                {"F2 - CCD ShutDown, Cooler Off"},
                {"F3 - No CCD ShutDown, Cooler On"},
                {"F4- No CCD ShutDown, Cooler Off"},
                {"ESC-Cancel"}};

    int ShDwn_StK[] = {F1,F2,F3,F4,ESC}, i;


    if(DAS.Flag.exemode == OFFLINEPLOT)
    {
        sdsh = MCreateShell("DAS CLOSE ", SF_MODAL);
        MObjectSetBackgroundRGB(sdsh, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

        a = MCreateRowForm(sdsh);

        lbl = MCreateLabel(a, "Exit Program ?", HELV_MEDIUM);
        MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
        MObjectSetBackgroundRGB(lbl, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
        MObjectSetTransparency(lbl, 0);

        b = MCreateTableForm(sdsh, 1);
        MObjectSetBackgroundRGB(b, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
        MObjectSetShadow(b, WS_NONE, 0, 0);
        MObjectSetResize(b, True, True);

        pb[0] = MCreatePButton(b, "Yes - F1", HELV_SMALL);
        MObjectSetBackgroundRGB(pb[0], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        MObjectSetCompositeWidth(pb[0], 100);
        MObjectSetShadow(pb[0], WS_SHADOW_OUT, 3, 0);
        MButtonSetOnMouseOverForegroundRGB(pb[0], 255, 255, 255);
        MButtonSetAccelerator(pb[0], ShDwn_StK[0]);
        MPButtonSetCallback(pb[0], ShutCB, (void *) 2);

        pb[1] = MCreatePButton(b, "No - F2", HELV_SMALL);
        MObjectSetBackgroundRGB(pb[1], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        MObjectSetCompositeWidth(pb[1], 100);
        MObjectSetShadow(pb[1], WS_SHADOW_OUT, 3, 0);
        MButtonSetOnMouseOverForegroundRGB(pb[1], 255, 255, 255);
        MButtonSetAccelerator(pb[1], ShDwn_StK[1]);
        MPButtonSetCallback(pb[1], ShutCB, (void *) 4);

        MShellSetWMCloseCallback (sdsh, CloseShCB, 0);
        MShellRealizeXY(sdsh, 0, 0);
        //MObjectSetPosition(sdsh, 500, 0);

    }
    else
    {
    sdsh = MCreateShell("EXIT AND/OR SHUTDOWN", SF_MODAL);
    MObjectSetBackgroundRGB(sdsh, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    //

    a = MCreateRowForm(sdsh);
    MObjectSetBackgroundRGB(a, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);

    lbl = MCreateLabel(a, "Choose the exit mode", HELV_MEDIUM);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    MObjectSetTransparency(lbl, 0);


    b = MCreateTableForm(sdsh, 1);
    MObjectSetBackgroundRGB(b, DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MObjectSetShadow(b, WS_NONE, 0, 0);
    MObjectSetResize(b, True, True);

    for (i=0; i<5; i++)
    {
        pb[i] = MCreatePButton(b, ShDwn_Code[i], HELV_SMALL);
        
        MObjectSetBackgroundRGB(pb[i], DPAL.DB_UnSel[0], DPAL.DB_UnSel[1], DPAL.DB_UnSel[2]);
        MObjectSetForegroundRGB(pb[i], DPAL.DB_UnSelFG[0], DPAL.DB_UnSelFG[1], DPAL.DB_UnSelFG[2]);
        MObjectSetCompositeWidth(pb[i], 300);
        MObjectSetShadow(pb[i], WS_SHADOW_OUT, 3, 0);
        MButtonSetOnMouseOverForegroundRGB(pb[i], ~DPAL.DB_UnSelFG[0], ~DPAL.DB_UnSelFG[1], ~DPAL.DB_UnSelFG[2]);
        MButtonSetAccelerator(pb[i], ShDwn_StK[i]);
        MPButtonSetCallback(pb[i], ShutCB, (void *) i);
        if (DAS.Flag.exemode == DBDEMO )
                if(i==0 || i==1 || i==3 )
                    MObjectSetUnsensitive(pb[i]);
                else if(i==2)
                    MObjectSetText(pb[i],"Exit Program"); 

    }





    MShellSetWMCloseCallback (sdsh, CloseShCB, 0);
//  MShellRealizeXY(sdsh, 0,0);
    MShellRealize(sdsh);
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

SimPosShClose_CB()

void SimPosShClose_CB	(	MOBJECT	p,
		void *	od,
		void *	ad
	)

Definition at line 4351 of file CreateForms.c.

References MShellDestroy(), MShellUnrealize(), and flag::SimShell.

Referenced by MDCreateSh_SimPos().

{

    MOBJECT c = (MOBJECT) ad;
    
    FLAG.SimShell = 0;
    MShellUnrealize(c);
    MShellDestroy(c);
}

Here is the call graph for this function:

Here is the caller graph for this function:

StepperPagForm()

void StepperPagForm	(	int	p,
		int	q
	)

Definition at line 259 of file CreateForms.c.

References gui::ContrPanel, palette::DB_BG, palette::DB_BG_Albl, palette::DB_BG_Plbl, palette::DB_FG_Albl, palette::DB_FG_Plbl, F_ATT_NONE, False, FIXED_SMALL, controlpanel::frm_tbSM, das::Gui, HELV_SMALL, lbl, LEFT_ALIGN, MBottomAttach(), MCreateLabel(), MCreateTableForm(), MLabelSetAlignment(), MObjectAlign(), MObjectSetBackgroundRGB(), MObjectSetBGColorFromParent(), MObjectSetForegroundRGB(), MObjectSetResize(), MObjectSetShadow(), MObjectSetText(), MObjectSetTransparency(), MPagedFormSetActivePage(), p, controlpanel::Pagedfrm_SM, controlpanel::power, RIGHT_ALIGN, controlpanel::slope, controlpanel::speed, controlpanel::step, TOP_ALIGN, True, UNDEF_ALIGN, WS_SHADOW_IN, and WS_SHADOW_OUT.

Referenced by MDCreate_CP().

{


    char buf[64];
    int snum;
    MOBJECT lbl;

    snum = 2 * p + q; //Stepper Number

    MPagedFormSetActivePage(DAS.Gui.ContrPanel.Pagedfrm_SM, snum);
    sprintf(buf,"SM%d",snum+1);
    MObjectSetText(DAS.Gui.ContrPanel.Pagedfrm_SM, buf);
    MObjectSetForegroundRGB(DAS.Gui.ContrPanel.Pagedfrm_SM, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);


    lbl = MCreateLabel(DAS.Gui.ContrPanel.Pagedfrm_SM, "                       ", FIXED_SMALL);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    MObjectSetTransparency(lbl, 0);
    MObjectSetShadow(lbl, WS_SHADOW_OUT, 1, 0);
//  MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);

    switch (snum)
    {
        case 0:
            sprintf(buf, "Stepper Motor 1 - MIRROR ");
            break;
        case 1:
            sprintf(buf, "Stepper Motor 2 - GRATING");
            break;
        case 2:
            sprintf(buf, "Stepper Motor 3 - FILTER ");
            break;
        case 3:
            sprintf(buf, "Stepper Motor 4 - NOT Con.");
            break;
        case 4:
            sprintf(buf, "Stepper Motor 5 - ZENITH ");
            break;
        case 5:
            sprintf(buf, "Stepper Motor 6 - AZIMUTH");
            break;
    }

    MObjectSetText(lbl,buf);

    DAS.Gui.ContrPanel.frm_tbSM[p][q] = MCreateTableForm(DAS.Gui.ContrPanel.Pagedfrm_SM, 4);
    MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.frm_tbSM[p][q], DPAL.DB_BG[0], DPAL.DB_BG[1], DPAL.DB_BG[2]);
    MBottomAttach(DAS.Gui.ContrPanel.frm_tbSM[p][q], F_ATT_NONE, 3, NULL);
    MObjectAlign(DAS.Gui.ContrPanel.frm_tbSM[p][q], UNDEF_ALIGN, TOP_ALIGN);
    MObjectSetShadow(DAS.Gui.ContrPanel.frm_tbSM[p][q], WS_SHADOW_IN, 2, 0);
    MObjectSetBGColorFromParent(DAS.Gui.ContrPanel.frm_tbSM[p][q], True, 100);
    MObjectSetResize(DAS.Gui.ContrPanel.frm_tbSM[p][q], True, False);

    lbl = MCreateLabel(DAS.Gui.ContrPanel.frm_tbSM[p][q], "Power:", FIXED_SMALL);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    MObjectSetTransparency(lbl, 0);
    MLabelSetAlignment(lbl, LEFT_ALIGN);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetResize(lbl, True, True);
//  MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);

    DAS.Gui.ContrPanel.power[p][q] = MCreateLabel(DAS.Gui.ContrPanel.frm_tbSM[p][q], "000000", HELV_SMALL);
    MObjectAlign(DAS.Gui.ContrPanel.power[p][q], RIGHT_ALIGN, TOP_ALIGN);
    MLabelSetAlignment(DAS.Gui.ContrPanel.power[p][q], RIGHT_ALIGN);
    MObjectSetForegroundRGB(DAS.Gui.ContrPanel.power[p][q], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.power[p][q], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetResize(DAS.Gui.ContrPanel.power[p][q], True, True);
    MObjectSetTransparency(DAS.Gui.ContrPanel.power[p][q], 0);
//  MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.power[p][q], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);

    lbl = MCreateLabel(DAS.Gui.ContrPanel.frm_tbSM[p][q], "Step:", FIXED_SMALL);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    MObjectSetTransparency(lbl, 0);
    MLabelSetAlignment(lbl, LEFT_ALIGN);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetResize(lbl, True, True);
//  MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);

    DAS.Gui.ContrPanel.step[p][q] = MCreateLabel(DAS.Gui.ContrPanel.frm_tbSM[p][q], "000000", HELV_SMALL);
    MLabelSetAlignment(DAS.Gui.ContrPanel.step[p][q], RIGHT_ALIGN);
    MObjectAlign(DAS.Gui.ContrPanel.step[p][q], RIGHT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(DAS.Gui.ContrPanel.step[p][q], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.step[p][q], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetResize(DAS.Gui.ContrPanel.step[p][q], True, False);
    MObjectSetTransparency(DAS.Gui.ContrPanel.step[p][q], 0);
//  MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.step[p][q], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);

    lbl = MCreateLabel(DAS.Gui.ContrPanel.frm_tbSM[p][q], "Slope:", FIXED_SMALL);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    MObjectSetTransparency(lbl, 0);
    MLabelSetAlignment(lbl, LEFT_ALIGN);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetResize(lbl, True, True);
//  MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);

    DAS.Gui.ContrPanel.slope[p][q] = MCreateLabel(DAS.Gui.ContrPanel.frm_tbSM[p][q], "00000", HELV_SMALL);
    MLabelSetAlignment(DAS.Gui.ContrPanel.slope[p][q], RIGHT_ALIGN);
    MObjectAlign(DAS.Gui.ContrPanel.slope[p][q], RIGHT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(DAS.Gui.ContrPanel.slope[p][q], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.slope[p][q], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetResize(DAS.Gui.ContrPanel.slope[p][q], True, False);
    MObjectSetTransparency(DAS.Gui.ContrPanel.slope[p][q], 0);
//  MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.slope[p][q], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);


    lbl = MCreateLabel(DAS.Gui.ContrPanel.frm_tbSM[p][q], "Speed:", FIXED_SMALL);
    MObjectSetForegroundRGB(lbl, DPAL.DB_FG_Plbl[0], DPAL.DB_FG_Plbl[1], DPAL.DB_FG_Plbl[2]);
    MObjectSetBackgroundRGB(lbl, DPAL.DB_BG_Plbl[0], DPAL.DB_BG_Plbl[1], DPAL.DB_BG_Plbl[2]);
    MObjectSetTransparency(lbl, 0);
    MLabelSetAlignment(lbl, LEFT_ALIGN);
    MObjectAlign(lbl, LEFT_ALIGN, TOP_ALIGN);
    MObjectSetResize(lbl, True, True);
//  MObjectAddEventNotifyCallback(lbl, (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 1);

    DAS.Gui.ContrPanel.speed[p][q] = MCreateLabel(DAS.Gui.ContrPanel.frm_tbSM[p][q], "00000", HELV_SMALL);
    MLabelSetAlignment(DAS.Gui.ContrPanel.speed[p][q], RIGHT_ALIGN);
    MObjectAlign(DAS.Gui.ContrPanel.speed[p][q], RIGHT_ALIGN, TOP_ALIGN);
    MObjectSetForegroundRGB(DAS.Gui.ContrPanel.speed[p][q], DPAL.DB_FG_Albl[0], DPAL.DB_FG_Albl[1], DPAL.DB_FG_Albl[2]);
    MObjectSetBackgroundRGB(DAS.Gui.ContrPanel.speed[p][q], DPAL.DB_BG_Albl[0], DPAL.DB_BG_Albl[1], DPAL.DB_BG_Albl[2]);
    MObjectSetResize(DAS.Gui.ContrPanel.speed[p][q], True, False);
    MObjectSetTransparency(DAS.Gui.ContrPanel.speed[p][q], 0);
//  MObjectAddEventNotifyCallback(DAS.Gui.ContrPanel.speed[p][q], (OBJ_EVENT_CB) DB_Redraw_CB, EM_MOTION , (void *) 2);



}

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

alfont

MTFont alfont

Definition at line 95 of file CreateForms.c.

AskBuff

char* AskBuff

Definition at line 5369 of file CreateForms.c.

Referenced by DB_Ask(), DB_Ask_SheelESC(), and DB_AskCB().

AskFlg

int AskFlg =0

static

Definition at line 5370 of file CreateForms.c.

Referenced by DB_Ask(), DB_Ask_SheelESC(), DB_AskCB(), and DB_CloseAsk().

AST

AzimuthSt AST

Definition at line 100 of file CreateForms.c.

BIL

bil BIL

Definition at line 83 of file CreateForms.c.

Cfg

config Cfg

Definition at line 77 of file CreateForms.c.

Com

int Com

CP_Sh

MOBJECT CP_Sh

Definition at line 85 of file CreateForms.c.

Referenced by DB_ColorAssign(), and MDCreate_CP().

DAS

das DAS

Definition at line 98 of file CreateForms.c.

DC_CCD

ccd DC_CCD

Definition at line 75 of file CreateForms.c.

DC_HP

ptf DC_HP

Definition at line 76 of file CreateForms.c.

DefPWD_OK

int DefPWD_OK = 0

Definition at line 2597 of file CreateForms.c.

DGEO

d_geo DGEO

Definition at line 92 of file CreateForms.c.

DIL

dil DIL

Definition at line 87 of file CreateForms.c.

DPAL

palette DPAL

Definition at line 88 of file CreateForms.c.

DPWD

dpwd DPWD

Definition at line 79 of file CreateForms.c.

Referenced by ActPWDSysCB(), CloseConfigCB(), and MDCreateSh_PWD().

dscb

DSCB dscb

Definition at line 67 of file DAS_Spat.c.

Referenced by D_readtemp_int(), and ShutCB().

DXL

DXL_par DXL

Definition at line 78 of file CreateForms.c.

FilBuff

const char* FilBuff

Definition at line 51 of file CreateForms.c.

Referenced by DB_Close_Sh(), DB_Esc_CB(), DB_Fil_CB(), DB_NDFil_CB(), DB_SheelESC(), and MDCreateSh_Fil().

FilFlg

int FilFlg =0

static

Definition at line 50 of file CreateForms.c.

Referenced by DB_Close_Sh(), DB_Esc_CB(), DB_Fil_CB(), DB_SheelESC(), and MDCreateSh_Fil().

FilSet

int FilSet = 0

filter wheel position definition - for SD_FilterW

Definition at line 5992 of file CreateForms.c.

Referenced by DB_Fil_CB(), and DB_KeyB_CB().

FLAG

flag FLAG

Definition at line 84 of file CreateForms.c.

Referenced by Calculate(), D_pbr_CB(), D_readtemp(), DB_AreaInput(), DB_XUnitsCB(), DrawAreaPlotCB(), InitCCD_AMS(), InitDefaultOptions(), InitFlags(), LaunchBackTask(), LoadDB_Options(), PBYScale_CB(), SaveSpectrum(), SZA_FirstCalc(), Task_AMSH(), Task_CCD_Temp(), Task_LIS_Temp(), Task_REFRESH_Temp(), and ViewPlot().

font

MTFont font

Definition at line 3066 of file DAS_Spatram.h.

Referenced by CloseFontViewCB(), DB_TestF(), and DrawAreaExpFontCB().

GratFlg

int GratFlg =0

static

Definition at line 60 of file CreateForms.c.

Referenced by ActMvAzimCB(), ActMvAzimDegCB(), ActMvGratCB(), ActMvZenCB(), ActMvZenDegCB(), MDCreateMoveAzim(), MDCreateMoveAzimDeg(), MDCreateMoveGrat(), MDCreateMoveZen(), MDCreateMoveZenAzimDeg(), MDCreateMoveZenDeg(), and MIGEZenAzPos_CB().

GrDIR

int GrDIR

Definition at line 64 of file CreateForms.c.

Referenced by ActMvAzimCB(), ActMvGratCB(), ActMvZenCB(), DB_dirCB(), MDCreateMoveAzim(), MDCreateMoveGrat(), and MDCreateMoveZen().

GRS

GratingSt GRS

Definition at line 82 of file CreateForms.c.

Referenced by HeaderInPlot(), and HomeGratingFast().

HomeBuff

char* HomeBuff

Definition at line 57 of file CreateForms.c.

HomeFlg

int HomeFlg =0

static

Definition at line 56 of file CreateForms.c.

item_advc

MENU_ITEM item_advc

Definition at line 1139 of file CreateForms.c.

Referenced by MDCreate_CP().

MirBuff

const char* MirBuff

Definition at line 48 of file CreateForms.c.

Referenced by DB_Close_Sh(), DB_Esc_CB(), DB_Mir_CB(), DB_SheelESC(), and MDCreateSh_Mir().

MirFlg

int MirFlg =0

static

Definition at line 47 of file CreateForms.c.

Referenced by DB_Close_Sh(), DB_Esc_CB(), DB_Mir_CB(), DB_SheelESC(), and MDCreateSh_Mir().

MirSet

int MirSet = 0

mirror position definition - for SD_Mirror

Definition at line 5612 of file CreateForms.c.

Referenced by DB_KeyB_CB(), and DB_Mir_CB().

NDFilBuff

const char* NDFilBuff

Definition at line 54 of file CreateForms.c.

Referenced by DB_Close_Sh(), DB_Esc_CB(), DB_NDFil_CB(), DB_SheelESC(), and MDCreateSh_NDFil().

NDFilFlg

int NDFilFlg =0

static

Definition at line 53 of file CreateForms.c.

Referenced by DB_Close_Sh(), DB_Esc_CB(), DB_NDFil_CB(), DB_SheelESC(), and MDCreateSh_NDFil().

NDFilSet

int NDFilSet = 0

ND filter wheel position definition - for SD_NDFilterW.

Definition at line 6231 of file CreateForms.c.

Referenced by DB_KeyB_CB(), and DB_NDFil_CB().

newfont

MTFont newfont

Definition at line 95 of file CreateForms.c.

Referenced by D_Lens(), and DB_TestF().

NFileNameF

char NFileNameF[_MAX_PATH]

Definition at line 71 of file CreateForms.c.

Referenced by D_PButt_CB(), DB_HorComm_CB(), DB_KeyB_CB(), and PopUp_CB().

NumRip

int NumRip

Definition at line 28 of file PWD.C.

Referenced by ActPWDSysCB().

PARAM

paramini PARAM

Definition at line 90 of file CreateForms.c.

plfont

MTFont plfont

Definition at line 95 of file CreateForms.c.

popup_advcalib

MOBJECT popup_advcalib

Definition at line 1138 of file CreateForms.c.

Referenced by MDCreate_CP().

PrgFile

char PrgFile[16]

Name of the PRG file.

Definition at line 91 of file DAS_Spat.c.

Referenced by ChkExeMode(), DB_ToolsKeyB_CB(), InitFlags(), ManualModeCB(), SZA_FirstCalc(), Task_LIS_Temp(), and ViewPlot().

sdsh

MOBJECT sdsh

Definition at line 6734 of file CreateForms.c.

Referenced by ShutCB(), and ShutDOWN().

shell_1

MOBJECT shell_1

Definition at line 4317 of file CreateForms.c.

STEPS

long STEPS

Definition at line 63 of file CreateForms.c.

TOOLS

tools TOOLS

Definition at line 81 of file CreateForms.c.

Referenced by D_pbr_CB(), D_PlotTools(), DB_Column(), DB_DisplayCB(), DB_FilterCB(), DB_FilterColumnCB(), DB_SpikesCB(), DrawAreaPlotCB(), and MDCreateColFor_Sh().

WlBuff

char* WlBuff

Definition at line 45 of file CreateForms.c.

Referenced by DB_Close_Sh(), DB_Esc_CB(), DB_SheelESC(), and MDCreateSh_Wl().

WlFlg

int WlFlg =0

static

Definition at line 44 of file CreateForms.c.

Referenced by DB_Close_Sh(), DB_Esc_CB(), DB_SheelESC(), DB_Wl_CB(), and MDCreateSh_Wl().

XProfOn

XProfOn = 0

static

Definition at line 2655 of file CreateForms.c.

Referenced by D_XProfile().

YProfOn

YProfOn = 0

static

Definition at line 2637 of file CreateForms.c.

Referenced by D_YProfile().

ZST

ZenithSt ZST

Definition at line 99 of file CreateForms.c.