{
    "header": {
        "version": 1,
        "type": "record"
    },
    "body": {
        "record1": {
            "<1>": "declare function scroll_enable, send_message\r\n\r\nequ EditTableInsDel$   to 4    ;* ALLOW ROW INSERTION AND/OR DELETION FOR EDITTABLE STYLE\r\nequ Protected$         to 8    ;* AS DOCUMENTED IN THE COLSYTLE MESSAGE IN HELP\r\nequ ReadOnly$          to 2048 ;* FIGURED THIS OUT BY SETTING THE STYLE IN THE WINDOW THEN DEBUGGING\r\n\r\nSectionNo = NewData[1,1]\r\n\r\nIf SectionNo Then \r\n  X = XLATE(\"CONFIG\",\"REACTOR_SELECTIONS\",SectionNo,\"X\")\t  \t\r\n  Treactors = .reactors->array\r\n  Treactors<1> = X\r\n  .reactors->array = Treactors\r\n  *Void = scroll_enable( '', @window:'.REACTORS' )\r\nend\r\n* WILL LOOK INTO THIS LATER IDEA IS TO REENABLE THE REACTORS CONTROL Later Dude! \r\n*end else\r\n*  ThisEditTable = @window:'.REACTORS'\r\n*  Styles = send_message( ThisEditTable, \"COLSTYLE\", 0, '' )\r\n* Styles<1> = bitand( Styles<1>, Protected$ )\r\n*  Void = send_message( ThisEditTable, \"COLSTYLE\", 0, Styles )\r\n*  Style = get_property( ThisEditTable, \"STYLE\" )\r\n*  if Style[1,2] _eqc \"0x\" then\r\n*     convert @lower_case to @upper_case in Style\r\n*\t Style = iconv( Style[3,999], 'MX' )\r\n* end\r\n*  Style = bitor( Style, EditTableInsDel$ )\r\n*  Void = set_property( ThisEditTable, 'STYLE', Style )   \r\n*  .reactors->array = @vm:@vm\r\n*  *.reactors->enabled = 1  \r\nRETURN 0"
        }
    }
}