V 10
1
LANG:1 8 (NoName)
PANEL,-1 -1 364 39 N "dcsUiWindowBack" 1
"$SysName"
"main()
{

}" 0
 E E E E 1 0 0 0  111 10
""0  1
E E 2
"CBRef""1"
"EClose"E
""
DISPLAY_LAYER, 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0
LAYER, 0 
1
LANG:1 6 Layer1
0
LAYER, 1 
1
LANG:1 6 Layer2
0
LAYER, 2 
1
LANG:1 6 Layer3
0
LAYER, 3 
1
LANG:1 6 Layer4
0
LAYER, 4 
1
LANG:1 6 Layer5
0
LAYER, 5 
1
LANG:1 6 Layer6
0
LAYER, 6 
1
LANG:1 6 Layer7
0
LAYER, 7 
1
LANG:1 6 Layer8
2 0
"txtFsmSvrStat"
""
1 111 10 E E E 1 E 1 E N "_WindowText" E N {204,204,204} E E
 E E
1 0 0 0 0 0
E E E
0
1
LANG:1 0 

1
"dashclr"N "_Transparent"
"main()
{
	string sSysName = $SysName;
	dyn_errClass err;
	
	if( !dpExists( sSysName+\":_Connections.Ctrl.ManNums:_original.._value\"))
    setMultiValue(\"txtFsmSvr\", \"text\", sSysName,\"txtFsmSvrStat\", \"color\", \"_dpdoesnotexist\");
	else
	{
	  dpConnect(\"EP_textFieldInCB\",sSysName+\":_Connections.Ctrl.ManNums:_original.._value\");
	  err = getLastError();
	  if (dynlen(err) > 0)
		    setMultiValue(\"txtFsmSvr\", \"text\", sSysName,\"txtFsmSvrStat\", \"color\", \"_dpdoesnotexist\");
  }
}

EP_textFieldInCB(string dp, dyn_int dui)
{

	dyn_string dsDebugResult;
	string sResult, sSystemName;
	int i,j;

	bool flag = false;
	
	sSystemName = substr(dp,0,strpos(dp,\":\"));
	
	if ( dynlen( dui ) > 0)
  {
     for (i=1;i<=dynlen(dui);i++)
     {      
				dynClear(dsDebugResult );
        sResult = \"\";
        if (dpExists(sSystemName+\":_CtrlDebug_CTRL_\"+(dui[i])))
        {
        	dyn_string dsTemp;
          int count = 0;
          dpSetWait(sSystemName+\":_CtrlDebug_CTRL_\"+(dui[i])+\".Command:_original.._value\", \"info scripts\");
          while ( dynlen(dsDebugResult) < 1 && count < 50)  // max 10 seconds
          {
	          delay(0,10);
            dpGet(sSystemName+\":_CtrlDebug_CTRL_\"+(dui[i])+\".Result:_online.._value\",  dsDebugResult);
            count ++;
          }             
          for (j=1; j<= dynlen( dsDebugResult); j++)
          {
  	        dsTemp = strsplit(dsDebugResult[j], \";\");
            if (sResult != \"\")
            	sResult += \", \";
            sResult += dsTemp[dynlen(dsTemp)];
          } 
        }
				
        int iTemp = dui[i];
        iTemp ++;
        
        if(sResult == \"fwFsmSrvr\")
        	flag = true;
	  }
	}  
	// ---
	if(flag)
	{
		setMultiValue(\"txtFsmSvrStat\",\"text\",\"RUNNING !!\",\"txtFsmSvrStat\",\"backCol\",\"FwStateOKPhysics\",
									\"txtFsmSvr\",\"text\",sSystemName+\"(\"+getSystemId(sSystemName+\":\")+\")\");
	}	else {
		setMultiValue(\"txtFsmSvrStat\",\"text\",\"NOT RUNNING !!\",\"txtFsmSvrStat\",\"backCol\",\"FwStateAttention3\",
									\"txtFsmSvr\",\"text\",sSystemName+\"(\"+getSystemId(sSystemName+\":\")+\")\");
	}
}" 0
 E 0 1 1 0 1 E U  1 E 113 12 198 26
1 2 0 "0s" 0 0 0 65 0 0  113 12 1
1
LANG:1 87 -*-Arial-bold-r-normal-*-12-*-100-100-*-*-iso8859-1|-12,0,0,0,697,0,0,0,0,0,0,0,0,Arial
0 ""
1
LANG:1 5 Text8
2 1
"txtFsmSvr"
""
1 10 10 E E E 1 E 1 E N "dcsUiLabelFore" E N "dcsUiLabelBack" E E
 E E
2 0 0 0 0 0
E E E
0
1
LANG:1 0 

1
"dashclr"N "_Transparent"
E E 0 1 1 0 1 E U  1 E 12 12 108 26
1 2 0 "0s" 0 0 0 64 0 0  12 12 1
1
LANG:1 84 -*-Arial-*-r-normal-*-11-*-100-100-*-*-iso8859-1|-11,0,0,0,404,0,0,0,0,0,0,0,0,Arial
0 ""
1
LANG:1 6 Text11
2 2
"Text36"
""
1 202 10 E E E 1 E 1 E N "dcsUiZoneFore" E N "dcsUiWindowBack" E E
 E E
3 0 0 0 0 0
E E E
0
1
LANG:1 0 

1
"dashclr"N "_Transparent"
"// SimpleCtrlScriptStart {invalid}
main()
{
  EP_textFieldIn();
}

EP_textFieldIn()
{
	string sSysName = $SysName;
	dyn_errClass err;

  if( !dpExists( sSysName+\":ToDo.status:_original.._value\"))
  {
    setValue(\"Text36\", \"color\", \"_dpdoesnotexist\");
    return;
  }

  dpConnect(\"EP_textFieldInCB\",sSysName+\":ToDo.status:_original.._value\");
  err = getLastError();
  if (dynlen(err) > 0)
    setValue(\"Text36\", \"color\", \"_dpdoesnotexist\");

}


EP_textFieldInCB(string dp, string sNewValue)
{
	setMultiValue(\"Text36\", \"backCol\", (sNewValue == \"working\")?\"FwStateAttention1\":\"FwStateOKPhysics\",
								\"Text36\", \"text\", dpValToString(dp, sNewValue, TRUE) );
}

// SimpleCtrlScript {EP_textFieldIn}
// DP {hmp_liq:ToDo.status}
// DPConfig {:_original.._value}
// DPType {string}
// UseDPUnit {TRUE}
// UseDPFormat {TRUE}
// SimpleCtrlScriptEnd {EP_textFieldIn}
" 0
 E 0 1 1 0 1 E U  1 E 204 12 358 26
1 2 0 "0s" 0 0 0 65 0 0  204 12 1
1
LANG:1 87 -*-Arial-bold-r-normal-*-11-*-100-100-*-*-iso8859-1|-11,0,0,0,697,0,0,0,0,0,0,0,0,Arial
0 ""
1
LANG:1 6 Text36
0
0