11 lines
1.6 KiB
JSON
11 lines
1.6 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function center_window, send_event\r\ndeclare function post_event\r\n\r\nif index( CreateParam, 'CENTER', 1 ) then\r\n void = center_window( @window )\r\nend else\r\n Void = set_property( @window, 'VISIBLE', 1 )\r\nend\r\n\r\nControls = 'TTHICK_AVG/TTHICK_STDEV/TTHICK_MAX/TTHICK_MIN/TTHICK_UNIF/'\r\nControls:= 'TRES_AVG/TRES_STDEV/TRES_MAX/TRES_MIN/TRES_UNIF'\r\nswap '/' with @rm:@window:'.' in Controls\r\nControls = @window:'.':Controls\r\nVoid = set_property( @window, '@Controls', Controls )\r\n\r\nStatInfo = field( CreateParam, char(245), 1 )\r\nconvert @fm to @rm in StatInfo\r\nThickInfo = field( CreateParam, char(245), 2 )\r\nRHOInfo = field( CreateParam, char(245), 3 )\r\nUnitType = field( CreateParam, char(245), 4 )\r\n\r\nVoid = set_property( Controls, 'TEXT', StatInfo )\r\n.thickness_readings->array = ThickInfo\r\n.sheetrho_readings->array = RHOInfo\r\nif ( UnitType <> '' ) then\r\n .calc_type->value = UnitType\r\nend\r\n\r\n* CODE BELOW IS THE SAME AS CALCULATOR_RESRHO_VALID CONVERSION\r\n* COULD NOT FORCE IT TO BE CALLED VIA A CLICK EVENT ON THE THICKNESS READINGS\r\n\r\nThickness = iconv( get_property( @window:'.THICKNESS_READINGS', 'ARRAY' ), 'MD2' )\r\nSheetRHO = get_property( @window:'.SHEETRHO_READINGS', 'ARRAY' )\r\nOffSet = str( '.001':@vm, 17 )\r\nOffSet[-1,1] = ''\r\nRes = oconv( SheetRHO *** Thickness *** OffSet, 'MD3' )\r\nswap '.000' with '' in Res\r\nVoid = set_property( @window:'.RES_READINGS', 'ARRAY', Res )\r\nRETURN 0"
|
|
}
|
|
}
|
|
} |