11 lines
2.3 KiB
JSON
11 lines
2.3 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function fieldcount, msg, rds_comm\r\n$insert msg_equates\r\n$insert logical\r\nequate CrLf$ to char(13):char(10)\r\n\r\n* THIS CODE NEVER CALLED DUE TO IT BEING INVISIBLE ON THE WINDOW\r\n* WE WILL NOT LET THE USER INSERT OR DELETE LAYERS ANYMORE\r\n* BRYCE MADE THIS DECISION ON 1/15/98\r\n* DID NOT DELETE CAUSE POSSIBLY SOME DAY CHRIS MAY WANT IT BACK\r\nRETURN 0\r\n\r\nContinue = false$\r\nif .epi_dopant->enabled = 0 then\r\n\tValidSecurity = rds_comm( 'OVERRIDE' )\r\n\tif ValidSecurity then\r\n\t Continue = true$\r\n Controls = get_property( @window, '@LayerControls' )\r\n\t Void = set_property( Controls, 'ENABLED', 1 )\r\n\t .recipe_no->enabled = 0\r\n\tend\r\nend else\r\n Continue = true$\r\nend\r\nif Continue then\r\n\tLayerPromptCnt = get_property( @window, '@LayerPromptCnt' )\r\n\tLayerControls = get_property( @window, '@LayerControls' )\r\n\tCurLayerNo = get_property( @window, '@CurLayer' )\r\n\tAllLayers = get_property( @window, '@LayerInfo' )\r\n\tAllLayers = fieldstore( AllLayers, char(248), CurLayerNo, 1, char(243):'' )\r\n\tAcnt = fieldcount( AllLayers, char(248))\r\n\tif CurLayerNo = Acnt then\r\n\t swap char(248):char(243) with '' in AllLayers\r\n\tend else\r\n\t swap char(243):char(248) with '' in AllLayers\r\n\tend\r\n\tconvert char(243) to '' in AllLayers ;* if only one and they delete\r\n\t* the char 243 is left hanging\r\n\tVoid = set_property( @window, '@LayerInfo', AllLayers )\r\n\t* now display the next Layer info\r\n\tNextLayerData = field( AllLayers, char(248), CurLayerNo )\r\n\t*\r\n\tValueCnt = fieldcount( NextLayerData, @fm )\r\n\t* so set_property does not propagate\r\n\tif ValueCnt < LayerPromptCnt then\r\n\t NextLayerData := str( @fm, LayerPromptCnt-ValueCnt-1 )\r\n\tend\r\n\t* ok\r\n\tNewLayer = false$\r\n\tif NextLayerData = str( @fm, LayerPromptCnt-1 ) then\r\n\t * add the @fms for the conc\r\n\t NewLayer = true$\r\n\tend\r\n\tconvert @fm to @rm in NextLayerData\r\n\tVoid = set_property( LayerControls, 'INVALUE', NextLayerData )\r\n\tNumLayers = fieldcount( AllLayers, char(248) ) \r\n\t.layer_desc->text = CurLayerNo:' of ':NumLayers+NewLayer\r\n\tvoid = set_property( @window:'.EPI_DOPANT', 'FOCUS', 1 ) \r\nend\r\nreturn 0\r\n"
|
|
}
|
|
}
|
|
} |