Rev 9560 | Rev 9599 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 9560 | Rev 9577 | ||
|---|---|---|---|
| Line 26... | Line 26... | ||
| 26 | CB := Clipboard, Languages, |
26 | CB := Clipboard, Languages, |
| 27 | ChangeLog, Scroll, CheckBox, |
27 | ChangeLog, Scroll, CheckBox, |
| 28 | RW, Ini, EB := EditBox, Tabs, Toolbar, SB := StatusBar; |
28 | RW, Ini, EB := EditBox, Tabs, Toolbar, SB := StatusBar; |
| Line 29... | Line 29... | ||
| 29 | 29 | ||
| 30 | CONST |
30 | CONST |
| Line 31... | Line 31... | ||
| 31 | HEADER = "CEdit (02-jan-2022)"; |
31 | HEADER = "CEdit (05-jan-2022)"; |
| 32 | 32 | ||
| Line 33... | Line 33... | ||
| 33 | ShellFilter = ""; |
33 | ShellFilter = ""; |
| Line 566... | Line 566... | ||
| 566 | temp: RW.tFileName; |
566 | temp: RW.tFileName; |
| 567 | BEGIN |
567 | BEGIN |
| 568 | temp := "'CEdit: "; |
568 | temp := "'CEdit: "; |
| 569 | U.append8(temp, s); |
569 | U.append8(temp, s); |
| 570 | U.append8(temp, "' -E"); |
570 | U.append8(temp, "' -E"); |
| 571 | K.Run("/rd/1/@notify", temp) |
571 | K.Run("/sys/@notify", temp) |
| 572 | END error; |
572 | END error; |
| Line 573... | Line 573... | ||
| 573 | 573 | ||
| 574 | 574 | ||
| Line 926... | Line 926... | ||
| 926 | 926 | ||
| 927 | 927 | ||
| 928 | PROCEDURE Script (script: ARRAY OF CHAR); |
928 | PROCEDURE Script (script: ARRAY OF CHAR); |
| 929 | BEGIN |
929 | BEGIN |
| 930 | IF script # "" THEN |
930 | IF script # "" THEN |
| 931 | K.Run("/rd/1/@open", script) |
931 | K.Run("/sys/@open", script) |
| Line 932... | Line 932... | ||
| 932 | END |
932 | END |
| Line 1141... | Line 1141... | ||
| 1141 | saveAll; |
1141 | saveAll; |
| 1142 | repaint |
1142 | repaint |
| 1143 | |menuClose: |
1143 | |menuClose: |
| 1144 | closeFile(TRUE, curText) |
1144 | closeFile(TRUE, curText) |
| 1145 | |menuFolder: |
1145 | |menuFolder: |
| 1146 | K.Run("/rd/1/File Managers/Eolite", text.fileName) |
1146 | K.Run("/sys/File Managers/Eolite", text.fileName) |
| 1147 | |menuExit: |
1147 | |menuExit: |
| 1148 | Close |
1148 | Close |
| 1149 | |menuUndo: |
1149 | |menuUndo: |
| 1150 | T.undo(text); |
1150 | T.undo(text); |
| 1151 | repaint |
1151 | repaint |
| Line 1218... | Line 1218... | ||
| 1218 | |menuCRLF: |
1218 | |menuCRLF: |
| 1219 | T.setEol(text, RW.EOL_CRLF) |
1219 | T.setEol(text, RW.EOL_CRLF) |
| 1220 | |menuCR: |
1220 | |menuCR: |
| 1221 | T.setEol(text, RW.EOL_CR) |
1221 | T.setEol(text, RW.EOL_CR) |
| 1222 | |menuPipet: |
1222 | |menuPipet: |
| 1223 | K.Run("/rd/1/develop/pipet", "") |
1223 | K.Run("/sys/develop/pipet", "") |
| 1224 | |menuMagnify: |
1224 | |menuMagnify: |
| 1225 | K.Run("/rd/1/magnify", "") |
1225 | K.Run("/sys/magnify", "") |
| 1226 | |menuBoard: |
1226 | |menuBoard: |
| 1227 | K.Run("/rd/1/develop/board", "") |
1227 | K.Run("/sys/develop/board", "") |
| 1228 | |menuSysFunc: |
1228 | |menuSysFunc: |
| 1229 | K.Run("/rd/1/docpack", "f") |
1229 | K.Run("/sys/docpack", "f") |
| 1230 | |menuColors..menuMaxColors: |
1230 | |menuColors..menuMaxColors: |
| 1231 | Ini.selectSection(IPC[2] - menuColors) |
1231 | Ini.selectSection(IPC[2] - menuColors) |
| 1232 | |menuMoveUp: |
1232 | |menuMoveUp: |
| 1233 | T.MoveLines(text, FALSE) |
1233 | T.MoveLines(text, FALSE) |
| 1234 | |menuMoveDown: |
1234 | |menuMoveDown: |
| Line 2032... | Line 2032... | ||
| 2032 | Toolbar.add(toolbar, btnRun, 53, ""); |
2032 | Toolbar.add(toolbar, btnRun, 53, ""); |
| Line 2033... | Line 2033... | ||
| 2033 | 2033 | ||
| 2034 | Ini.getSettings(buildScript, runScript, debugScript); |
2034 | Ini.getSettings(buildScript, runScript, debugScript); |
| 2035 | IF fileName = "" THEN |
2035 | IF fileName = "" THEN |
| 2036 | text := T.New(); |
2036 | text := T.New(); |
| 2037 | filePath := "/rd/1" |
2037 | filePath := "/sys" |
| 2038 | ELSE |
2038 | ELSE |
| 2039 | text := T.open(fileName, err); |
2039 | text := T.open(fileName, err); |
| 2040 | IF text = NIL THEN |
2040 | IF text = NIL THEN |
| 2041 | error("error opening file"); |
2041 | error("error opening file"); |