added remaining LSL2 entities

This commit is contained in:
Infineon\StieberD
2024-03-25 15:12:53 -07:00
parent 15b25a611c
commit 81e4baccb1
4474 changed files with 99825 additions and 0 deletions

View 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"
}
}
}