ON INSERT ATTRIBUTES(TEXT="INSERT! [+]" ,IMAGE="fa-cogs" ,ACCELERATOR="+" ,COMMENT="Insert a new row!" ,CONTEXTMENU=YES --,CONTEXTMENU=NO ,DEFAULTVIEW=NO --,DEFAULTVIEW=NO )
DISPLAY ARRAY arr TO scr.* ON ACTION my_insert ATTRIBUTES(ROWBOUND, TEXT="Insert", DEFAULTVIEW=NO) LET r = arr_curr() LET s = scr_line() CALL DIALOG.insertRow("scr",r) INPUT arr[r].* FROM scr[s].*; IF int_flag THEN LET int_flag = 0 CALL DIALOG.deleteRow("scr",r) END IF ON UPDATE ... ON DELETE ... ...
ON ACTION my_insert ATTRIBUTES(ROWBOUND, TEXT="My Insert", DEFAULTVIEW=NO) VAR r = arr_curr() VAR s = scr_line() CALL DIALOG.insertRow("sr_onaction",r) LET int_flag = FALSE <----- HERE INPUT mr_onaction[r].* FROM sr_onaction[s].*; IF int_flag THEN CALL DIALOG.deleteRow("sr_onaction",r) END IF