11 lines
845 B
JSON
11 lines
845 B
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare subroutine forward_event\r\n$insert prod_spec_equ\r\n\r\nforward_event( Flag, FocusID )\r\nOrigPSN = get_property( @window, '@OrigPSN', .prod_spec_id->text )\r\nCurPSN = .prod_spec_id->text\r\nif CurPSN <> OrigPSN then\r\n\tPSNId = .prod_spec_id->text\r\n\t.dopant->text = xlate( 'PROD_SPEC', PSNId, 'DOPANT_L1', 'X' )\r\n\t.rest->text = oconv( xlate( 'PROD_SPEC', PSNId, 'RES_TARGET_L1', 'X' ), 'MD3' )\r\n\t.rest_units->text = xlate( 'PROD_SPEC', PSNId, 'RES_UNITS_L1', 'X' )\r\n\t.thick->text = oconv( xlate( 'PROD_SPEC', PSNId, 'THICK_TARGET_L1', 'X' ), 'MD2' )\r\n\t.thick_units->text = xlate( 'PROD_SPEC', PSNId, 'THICK_UNITS_L1', 'X' )\r\nend\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |