added remaining LSL2 entities
This commit is contained in:
11
LSL2/OIEVENT/CLICK/RDS_TW.COPY_BUTTON.json
Normal file
11
LSL2/OIEVENT/CLICK/RDS_TW.COPY_BUTTON.json
Normal file
@ -0,0 +1,11 @@
|
||||
{
|
||||
"header": {
|
||||
"version": 1,
|
||||
"type": "record"
|
||||
},
|
||||
"body": {
|
||||
"record1": {
|
||||
"<1>": "DECLARE Subroutine Send_Message\r\n\r\n\r\nCurrList = .TW_INFO->LIST\t\t;* Get data list from control\r\nCurrPos = .TW_INFO->SELPOS\t\t;* Current position\r\n\r\nCurrRow = CurrPos<2>\r\n\r\nCurrLine = CurrList<CurrRow>\t;* This is the line to clone\r\n\r\nLineNo = 1\r\nLOOP\r\n\tFirstColData = CurrList<LineNo,1>\r\nWHILE FirstColData NE ''\r\n\tLineNo += 1\r\nREPEAT\r\n\r\n\r\nIF LineNo > 1 THEN\r\n\tSend_Message(@WINDOW:'.TW_INFO','INSERT',LineNo,CurrLine)\r\nEND\r\n\r\n\r\nRETURN 0"
|
||||
}
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user