11 lines
1.2 KiB
JSON
11 lines
1.2 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function send_event, get_property, set_property, center_window\r\nDECLARE Function Notes\r\nDECLARE SUBROUTINE obj_Call_Event\r\n$insert logical\r\n\r\n* ALWAYS CENTER\r\nvoid = center_window( @window )\r\n\r\nVoid = set_property( @window, '@called', 0 )\r\nif CreateParam<1,1> then \r\n * called from note pointers new\r\n Void = set_property( @window, '@called', true$ )\r\nend\r\n\r\nif CreateParam<1,2> then\r\n * protect the prompts \r\n * called from note pointers with an id passed\r\n \r\n IoOptions = get_property( @window, 'IOOPTIONS' )\r\n IoOptions<2> = 2 ;* do not lock\r\n Void = set_property( @window, 'IOOPTIONS', IoOptions )\r\n \r\n DisableFields = 'MESSAGE_TYPE':@rm:'MENU.FILE.SAVE_ROW':@rm:'MENU.FILE.CLEAR_FORM'\r\n swap @rm with @rm:@window:'.' in DisableFields\r\n DisableFields = @window:'.':DisableFields\r\n Void = set_property( DisableFields, 'ENABLED', 0 )\r\n \r\n .seq->text = CreateParam<1,2>\r\n .save_send->enabled = 0\r\n void = send_event( @window, 'READ', '' )\r\nend else\r\n .reply_button->enabled = 0\r\nend\r\n\r\nRETURN 1"
|
|
}
|
|
}
|
|
} |