V 10
1
LANG:1 0 
PANEL,-1 -1 773 459 N "dcsUiWindowBack" 1
"$HostName"
"main()
{
  // Got the connection with PMON
  sHostName = $HostName;
  txtHostName.text = sHostName;
  
  // Start the reading to pmon
  iThreadId = startThread(\"__readPmonData\");
  
}

__readPmonData()
{
  int iCount; 
  string sBuffer; 
  dyn_dyn_string ddsTab;
  
  while(true)
  {    
    sBuffer = dcsUiBase_pmonReadStatus(sHostName, 4999, getHostname()+\".cern.ch\");
    if(sBuffer != \"\")
    {
      ddsTab = dcsUiBase_pmonWeb2Table(sBuffer);
      __fillTable(ddsTab);
    }
    iCount = POLLINGCYCLEDELAY;
    while(iCount>0)
    {
      txtNextUpdate.text = --iCount;
      delay(1,0);
    } 
  }
}" 0
 "main()
{
  stopThread(iThreadId);
}" 0
 E E E 1 -1 -1 0  16 30
""0  1
E "#uses \"dcsUiBase.ctc\"

  const int POLLINGCYCLEDELAY=15;
  global string sHostName;
  global int iThreadId;

__fillTable(dyn_dyn_string ddsTab)
{
  TABLE1.deleteAllLines;
  int i;
  
  for(i=1;i <= dynlen(ddsTab);i++)
  {
    TABLE1.appendLine(\"STATE\",ddsTab[i][1],\"MANAGER\",ddsTab[i][2],\"TIME\",ddsTab[i][4],\"PID\",ddsTab[i][3],\"OPTIONS\",ddsTab[i][5]);
    if(ddsTab[i][1] == \"running\")
      TABLE1.cellBackColRC(i-1,\"STATE\",\"FwStateOKPhysics\");
    else if(ddsTab[i][1] == \"stopped\")
      TABLE1.cellBackColRC(i-1,\"STATE\",\"FwStateAttention3\");
    else
      TABLE1.cellBackColRC(i-1,\"STATE\",\"FwStateAttention1\");
  }
  
}" 0
 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 0 
25 0
"TABLE1"
""
1 8.00000000000001 64 E E E 1 E 1 E N "dcsUiDisplayFore" E N "dcsUiDisplayBack" E E
 E E
0 0 0 0 0 0
E E E
0
1
LANG:1 0 

0
1
LANG:1 98 -*-MS Shell Dlg-*-r-normal-*-11-*-100-100-*-*-iso8859-1|-11,0,0,0,505,0,0,0,0,0,0,0,0,MS Shell Dlg
0 ""
 6.00000000000001 62 762 452
EE 1 0 1 5 0 "STATE" 5 1 0 "s" 1
LANG:1 5 STATE
E
1
LANG:1 0 

60 "MANAGER" 14 1 0 "s" 1
LANG:1 7 MANAGER
E
1
LANG:1 0 

140 "TIME" 14 1 0 "s" 1
LANG:1 17 START PROCES TIME
E
1
LANG:1 0 

140 "PID" 4 1 0 "s" 1
LANG:1 3 PID
E
1
LANG:1 0 

50 "OPTIONS" 37 1 0 "s" 1
LANG:1 7 OPTIONS
E
1
LANG:1 0 

345 
14 14 10 10
1
LANG:1 98 -*-MS Shell Dlg-*-r-normal-*-11-*-100-100-*-*-iso8859-1|-11,0,0,0,505,0,0,0,0,0,0,0,0,MS Shell Dlg
0 ""
0 1 1 1 7
1 0
1 10 0 "" 0
1 "message" 1 1 "main()
{
	time rootPanelPathTime, childPanelPathTime;
	unsigned managerNumber = myManNum();
	string rootPanelPath, childPanelPath, rootPanelName, childPanelName, panelName;
	
	
	if(isDollarDefined(\"$sPanelRelativePath\"))
	{
		panelPath = $sPanelRelativePath;
	}
	
	if(panelPath == \"\")
	{
		dpGet(	\"_Ui_\" + managerNumber + \".RootPanelOrigOn.FileName\", rootPanelPath,
				\"_Ui_\" + managerNumber + \".RootPanelOrigOn.FileName:_original.._stime\", rootPanelPathTime,
				\"_Ui_\" + managerNumber + \".RootPanelOrigOn.PanelName\", rootPanelName,
				\"_Ui_\" + managerNumber + \".ChildPanelOn.FileName\", childPanelPath,
				\"_Ui_\" + managerNumber + \".ChildPanelOn.FileName:_original.._stime\", childPanelPathTime,
				\"_Ui_\" + managerNumber + \".ChildPanelOn.PanelName\", childPanelName);
	

		//	DebugN(rootPanelPath, rootPanelPathTime, childPanelPath, childPanelPathTime);
	
		if(rootPanelPathTime > childPanelPathTime)
		{
			panelPath = rootPanelPath;
			panelName = rootPanelName;
		}
		else
		{
			panelPath = childPanelPath;
			panelName = childPanelName;
		}
	
		if(myPanelName() == panelName)
		{
			goodPanelName = TRUE;
//			DebugN(\"Correct panel name\");
		}
		else
		{
			goodPanelName = FALSE;
//			DebugN(\"Wrong panel name\");
		}	
	}
//	DebugN(\"The good path is \" + panelPath);
}" 0
 
1 "leftClick" 1 1 "main()
{
	int replaced;
	string 	componentName, path, tempPanelPath, helpFile, browserCommand;
	dyn_string aux, exceptionInfo;
	
//	DebugN(\"The good path is \" + panelPath);
	
	if(!goodPanelName)
	{
		fwException_raise(	exceptionInfo,
							\"ERROR\",
							\"Open panel name doesn't match with PVSS database. Try opening the panel again.\",
							\"\");
		fwExceptionHandling_display(exceptionInfo);
		return;
	}
	
	// Get component name. We assume panels are inside a directory
	// named after the component name
	strreplace(panelPath, \"\\\\\", \"/\");
	aux = strsplit(panelPath, \"/\");
	componentName = aux[1];
//	DebugN(panelPath, componentName);
	
	// Remove extension if given
	if(strpos(panelPath, \".pnl\") >= 0)
	{
		tempPanelPath = substr(panelPath, 0, strpos(panelPath, \".pnl\"));
	}
	else
	{
		tempPanelPath = panelPath;
	}
	
	// try to find the help file associated with the panel
	helpFile = tempPanelPath + \".html\";
//	DebugN(\"helpFile \" + helpFile + \" tempPanelPath \" + tempPanelPath + \" componentName \" + componentName);
	path = getPath(HELP_REL_PATH, componentName + \"/panels/\" + helpFile);
	if(path == \"\")
	{		
		helpFile = tempPanelPath + \".htm\";
//		DebugN(\"helpFile \" + helpFile);
		path = getPath(HELP_REL_PATH, componentName + \"/panels/\" + helpFile);
//	DebugN(componentName + \"/panels/\" + helpFile);
		if(path == \"\")
		{
			fwException_raise(	exceptionInfo,
								\"ERROR\",
								\"Could not find the help file associated with the current panel\",
								\"\");
			fwExceptionHandling_display(exceptionInfo);
			return;
		}
	}
	
//	DebugN(\"Final help path \" + path);
	
	fwOpenProgressBar(\"Help\", \"Opening help file...\", 1);
	// If there were no exceptions, then display the help
	if(_WIN32)
	{
		dpGet(\"fwGeneral.help.helpBrowserCommandWindows\", browserCommand);
		replaced = strreplace(browserCommand, \"$1\", path);
		if(replaced == 0)
			browserCommand = browserCommand + \" \" + path;
//		system(\"start iexplore \" + path + \" &\");
		system(browserCommand);
	}
	else
	{
		dpGet(\"fwGeneral.help.helpBrowserCommandLinux\", browserCommand);
		replaced = strreplace(browserCommand, \"$1\", path);
		if(replaced == 0)
			browserCommand = browserCommand + \" \" + path;
		system(browserCommand);
//		system(\"start iexplore \" + path + \" &\");
	}
	fwCloseProgressBar();
}	" 0
 
0
2 2
"Text1"
""
1 655.143751633901 4 E E E 1 E 1 E N {255,255,255} E N {102,102,102} 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 1.34409398362407 0 1 280.060377358491 4 1 E -156 3 160 22
0 2 0 "0s" 0 0 0 65 0 0  2 3 1
1
LANG:1 87 -*-Arial-bold-r-normal-*-12-*-100-100-*-*-iso8859-1|-12,0,0,0,758,0,0,0,0,0,0,0,0,Arial
0 ""
1
LANG:1 45 ALICE DCS UI - Distributed Host Status  v.0.0
6 3
"RECTANGLE1"
""
1 1 46 E E E 1 E 1 E N "_WindowText" E N {255,255,255} E E
 E E
4 0 0 0 0 0
E E E
2
1
LANG:1 0 

1
"dashclr"N "_Transparent"
E E 0 1 1 0 1 E 1 0 1 0 3 2  0 3  "pictures/dcsUi/logo.bmp" 13434828 E 1 1 63 46
2 4
"PRIMITIVE_TEXT1"
""
1 70 32 E E E 1 E 1 E N "dcsUiLabelFore" E N "dcsUiLabelBack" E E
 E E
5 0 0 0 0 0
E E E
0
1
LANG:1 0 

1
"dashclr"N "_Transparent"
E E 0 1 1 2 1 E U  1 E 70 37 153 54
1 2 2 "0s" 0 0 0 64 0 0  70 37 1
1
LANG:1 98 -*-MS Shell Dlg-*-r-normal-*-11-*-100-100-*-*-iso8859-1|-11,0,0,0,505,0,0,0,0,0,0,0,0,MS Shell Dlg
0 ""
1
LANG:1 11 HOST NAME :
2 5
"PRIMITIVE_TEXT2"
""
1 69 6 E E E 1 E 1 E N "dcsUiTitleFore" E N "dcsUiTitleBack" E E
 E E
6 0 0 0 0 0
E E E
0
1
LANG:1 0 

1
"dashclr"N "_Transparent"
E E 0 1 1 2 1 E U  1 E 69 6 727 27
1 2 2 "0s" 0 0 0 65 0 0  69 6 1
1
LANG:1 87 -*-Arial-bold-r-normal-*-15-*-100-100-*-*-iso8859-1|-15,0,0,0,758,0,0,0,0,0,0,0,0,Arial
0 ""
1
LANG:1 53 ALICE DCS Ui - Distributed Host Process Monitor v.0.2
2 6
"txtHostName"
""
1 161 36 E E E 1 E 1 E N "dcsUiDisplayFore" E N "dcsUiDisplayBack" E E
 E E
7 0 0 0 0 0
E E E
0
1
LANG:1 0 

1
"dashclr"N "_Transparent"
E E 0 1 1 2 1 E U  1 E 161 36 291 56
1 2 2 "0s" 0 0 0 64 0 0  161 36 1
1
LANG:1 98 -*-MS Shell Dlg-*-r-normal-*-12-*-100-100-*-*-iso8859-1|-12,0,0,0,505,0,0,0,0,0,0,0,0,MS Shell Dlg
0 ""
1
LANG:1 0 
2 7
"PRIMITIVE_TEXT4"
""
1 70 32 E E E 1 E 1 E N "dcsUiLabelFore" E N "dcsUiLabelBack" E E
 E E
9 0 0 0 0 0
E E E
0
1
LANG:1 0 

1
"dashclr"N "_Transparent"
E E 0 1 1 2 1 E U  1 E 554 37 637 54
1 2 2 "0s" 0 0 0 64 0 0  554 37 1
1
LANG:1 98 -*-MS Shell Dlg-*-r-normal-*-12-*-100-100-*-*-iso8859-1|-12,0,0,0,505,0,0,0,0,0,0,0,0,MS Shell Dlg
0 ""
1
LANG:1 13 Next update :
2 8
"txtNextUpdate"
""
1 642 36.9090909090909 E E E 1 E 1 E N "dcsUiDisplayFore" E N "dcsUiDisplayBack" E E
 E E
10 0 0 0 0 0
E E E
0
1
LANG:1 0 

1
"dashclr"N "_Transparent"
E E 0 1 1 2 1 E 1 0 0.807692307692308 -3 7.83216783216783 1 E 645 36 675 58
1 2 2 "0s" 0 0 0 64 0 0  645 36 1
1
LANG:1 98 -*-MS Shell Dlg-*-r-normal-*-11-*-100-100-*-*-iso8859-1|-11,0,0,0,505,0,0,0,0,0,0,0,0,MS Shell Dlg
0 ""
1
LANG:1 0 
2 9
"PRIMITIVE_TEXT6"
""
1 682 35.9130434782609 E E E 1 E 1 E N "dcsUiLabelFore" E N "dcsUiLabelBack" E E
 E E
11 0 0 0 0 0
E E E
0
1
LANG:1 0 

1
"dashclr"N "_Transparent"
E E 0 1 1 2 1 E 1 0 0.91304347826087 0 3.04347826086957 1 E 678 37 699 56
1 2 2 "0s" 0 0 0 64 0 0  678 37 1
1
LANG:1 98 -*-MS Shell Dlg-*-r-normal-*-12-*-100-100-*-*-iso8859-1|-12,0,0,0,505,0,0,0,0,0,0,0,0,MS Shell Dlg
0 ""
1
LANG:1 3 sec
0
LAYER, 1 
1
LANG:1 0 
0
LAYER, 2 
1
LANG:1 0 
0
LAYER, 3 
1
LANG:1 0 
0
LAYER, 4 
1
LANG:1 0 
0
LAYER, 5 
1
LANG:1 0 
0
LAYER, 6 
1
LANG:1 0 
0
LAYER, 7 
1
LANG:1 0 
0
3 0 "Group27"
"objects\\fwGeneral\\fwHelpButton.pnl" 940 750 T 0 1 0 1 -207 -747
1
"$sPanelRelativePath""dcsFsmTools/dcsHostStatus.pnl"
0