Subversion Repositories Kolibri OS

Rev

Rev 9193 | Rev 9197 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
8728 leency 1
(*
2
    Copyright 2021 Anton Krotov
3
 
4
    This file is part of CEdit.
5
 
6
    CEdit is free software: you can redistribute it and/or modify
7
    it under the terms of the GNU General Public License as published by
8
    the Free Software Foundation, either version 3 of the License, or
9
    (at your option) any later version.
10
 
11
    CEdit is distributed in the hope that it will be useful,
12
    but WITHOUT ANY WARRANTY; without even the implied warranty of
13
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14
    GNU General Public License for more details.
15
 
16
    You should have received a copy of the GNU General Public License
17
    along with CEdit. If not, see .
18
*)
19
 
20
MODULE CEdit;
21
 
22
IMPORT
8762 leency 23
    OpenDlg, K := KolibriOS,
8728 leency 24
    U := Utils, Lines, Menu, List,
25
    G := Graph, T := Text, E := Encodings,
26
    CB := Clipboard, Languages,
9182 akron1 27
    ChangeLog, Scroll, CheckBox,
9187 akron1 28
    RW, Ini, EB := EditBox, Icons, Tabs, Timer;
8728 leency 29
 
30
CONST
9194 akron1 31
    header = "CEdit (17-sep-2021)";
8728 leency 32
 
8762 leency 33
    ShellFilter = "";
9174 akron1 34
    EditFilter = "SH|ASM|TXT|INC|OB07|C|CPP|H|PAS|PP|LUA|INI|JSON";
8728 leency 35
 
36
    fontWidth = K.fontWidth;
37
    fontHeight = K.fontHeight;
38
    scrollWidth = 22;
39
 
40
    btnClose = 1;
41
    btnNew = 20;
42
    btnOpen = 21;
43
    btnSave = 22;
44
    btnSearch = 23;
45
    btnUndo = 24;
46
    btnRedo = 25;
47
    btnUpper = 26;
48
    btnLower = 27;
49
    btnBuild = 28;
50
    btnRun = 29;
9174 akron1 51
 
8728 leency 52
    btnYes = 40;
53
    btnNo = 41;
54
    btnFindNext = 60;
55
    btnReplace = 61;
56
    btnReplaceAll = 62;
57
    btnGoto = 63;
9190 akron1 58
    btnCloseSearch = 64;
59
    btnHideSearch = 65;
8728 leency 60
 
9187 akron1 61
    mainMenuBtn = 70;
8728 leency 62
 
63
    btnHeight = 25;
64
    btnWidth = 75;
9187 akron1 65
    btnTop = Menu.MainMenuHeight + 3;
8728 leency 66
    toolBtnSize = 24;
67
    toolbarDelim = 7;
8859 leency 68
    iconPad = (toolBtnSize - Icons.SIZE) DIV 2;
8728 leency 69
 
9050 leency 70
    TOP = btnTop + toolBtnSize + 10 + Tabs.tabHeight;
8728 leency 71
    RIGHT = scrollWidth - 2;
8859 leency 72
    BOTTOM = scrollWidth + 18;
8728 leency 73
 
9181 akron1 74
    minWinWidth = 635; minWinHeight = 550;
8728 leency 75
 
76
    SEARCH_PADDING = 10;
8859 leency 77
    searchLeft = 0;
8728 leency 78
    EditBox_Width = 180;
79
    EDITBOX_MAXCHARS = 500;
80
 
81
    menuFileX = searchLeft;
9187 akron1 82
    menuEditX = menuFileX + 4*fontWidth + 9;
83
    menuSearchX = menuEditX + 4*fontWidth + 9;
84
    menuEncodingX = menuSearchX + 6*fontWidth + 9;
9190 akron1 85
    menuViewX = menuEncodingX + 8*fontWidth + 9;
86
    menuLanguageX = menuViewX + 4*fontWidth + 9;
87
    menuProgramX = menuLanguageX + 8*fontWidth + 9;
9187 akron1 88
    menuToolsX = menuProgramX + 7*fontWidth + 9;
8728 leency 89
 
90
    menuCut = 1;
91
    menuCopy = 2;
92
    menuPaste = 3;
93
    menuDelete = 4;
94
    menuSelectAll = 5;
95
 
96
    menuUndo = 6;
97
    menuRedo = 7;
98
 
9174 akron1 99
    menuCurLine = 100;
100
    menuIndent = 110;
101
    menuCase = 120;
8728 leency 102
 
103
    menuNew = 10;
104
    menuOpen = 11;
105
    menuSave = 12;
106
    menuSaveAs = 13;
9050 leency 107
    menuSaveAll = 14;
108
    menuFolder = 15;
109
    menuClose = 16;
110
    menuExit = 17;
8728 leency 111
 
112
    menuNumbers = 20;
8772 leency 113
    menuFontSize = 21;
8728 leency 114
    menuColors = 1000;
115
    menuMaxColors = menuColors + Ini.MAX_SECTIONS - 1;
116
 
9190 akron1 117
    menuText = 30;
8728 leency 118
    menuC = 31;
119
    menuFasm = 32;
120
    menuIni = 33;
9174 akron1 121
    menuJSON = 34;
122
    menuLua = 35;
123
    menuOberon = 36;
124
    menuPascal = 37;
8728 leency 125
 
126
    menuBuild = 50;
127
    menuBuildScript = 51;
128
    menuRun = 52;
129
    menuRunScript = 53;
130
    menuDebug = 54;
131
    menuDebugScript = 55;
132
 
133
    menuUTF8BOM = 60;
134
    menuUTF8 = 61;
135
    menuCP866 = 62;
136
    menuWin1251 = 63;
9190 akron1 137
    menuEOL = 140;
8728 leency 138
 
139
    menuPipet = 70;
9073 leency 140
    menuBoard = 71;
141
    menuSysFunc = 72;
8728 leency 142
 
9174 akron1 143
    menuFind = 80;
144
    menuFindNext = 81;
145
    menuFindPrev = 82;
146
    menuGoto = 83;
147
    menuBookmark = 130;
148
 
149
    menuMoveUp = 101;
150
    menuMoveDown = 102;
151
    menuDuplicate = 103;
152
    menuRemove = 104;
153
 
154
    menuIncInd = 111;
155
    menuDecInd = 112;
156
 
157
    menuUpper = 121;
158
    menuLower = 122;
159
 
160
    menuToggleBookmark = 131;
161
    menuNextBookmark = 132;
162
    menuPrevBookmark = 133;
163
 
9190 akron1 164
    menuLF = 141;
165
    menuCRLF = 142;
166
    menuCR = 143;
9180 akron1 167
 
9050 leency 168
    maxTexts = 32;
8762 leency 169
 
9050 leency 170
 
8728 leency 171
VAR
172
    canvas: G.tCanvas;
8772 leency 173
    font, font1, font2: G.tFont;
9050 leency 174
 
175
    tabs: Tabs.tTabs;
8728 leency 176
    text: T.tText;
9050 leency 177
    texts: ARRAY maxTexts OF T.tText;
178
    textsCount, curText: INTEGER;
179
 
8728 leency 180
    winWidth, winHeight: INTEGER;
181
    AppPath, runScript, buildScript, debugScript: RW.tFileName;
182
    OD: OpenDlg.Dialog;
9175 akron1 183
    confirm, notFound, menuFindClicked, search, searchOpened, modified: BOOLEAN;
8728 leency 184
 
9073 leency 185
    switch, closing: BOOLEAN;
9174 akron1 186
    leftButton: BOOLEAN;
187
    hScroll, vScroll: Scroll.tScroll;
8728 leency 188
    LEFT: INTEGER;
189
 
9187 akron1 190
    FindEdit, ReplaceEdit, GotoEdit: EB.tEditBox;
9182 akron1 191
    CS, WH, BKW: CheckBox.tCheckBox;
8728 leency 192
 
193
    new_searchText, searchText, replaceText, gotoText: T.tString;
194
    cs, whole: BOOLEAN;
195
 
196
    replaced: INTEGER;
197
 
9174 akron1 198
    mainTID, delay: INTEGER;
8728 leency 199
 
9174 akron1 200
    context, menuFile, menuEdit, menuSearch, menuEncoding,
9190 akron1 201
    menuView, menuLanguage, menuProgram, menuTools,
202
    subCurLine, subIndent, subCase, subBookmark, subEOL: Menu.tMenu;
8728 leency 203
 
9187 akron1 204
    mainMenu: Menu.tMain;
205
 
9175 akron1 206
    menuActive: BOOLEAN;
207
 
8728 leency 208
    icons: INTEGER;
209
    grayIcons: INTEGER;
210
 
211
    IPC: ARRAY 64 OF INTEGER;
212
 
213
 
214
PROCEDURE WritePos (y: INTEGER);
215
VAR
216
    s1, s2: ARRAY 32 OF WCHAR;
217
    line, col: INTEGER;
218
BEGIN
219
    T.getPos(text, col, line);
220
    U.int2str(line, s1);
221
    U.int2str(col, s2);
222
    U.append(s1, ": ");
223
    U.append(s1, s2);
8762 leency 224
    K.DrawText(LEFT, y, K.textColor, s1)
8728 leency 225
END WritePos;
226
 
227
 
9187 akron1 228
PROCEDURE EditBox_Focus (edit: EB.tEditBox): BOOLEAN;
9174 akron1 229
VAR
230
	res: BOOLEAN;
231
BEGIN
232
	res := FALSE;
233
	IF edit # NIL THEN
234
	    res := 1 IN BITS(edit.flags)
235
	END
236
	RETURN res
8728 leency 237
END EditBox_Focus;
238
 
239
 
9174 akron1 240
PROCEDURE resetTimer;
241
BEGIN
242
	IF EditBox_Focus(FindEdit) OR EditBox_Focus(ReplaceEdit) OR EditBox_Focus(GotoEdit) THEN
243
		T.hideCursor;
9181 akron1 244
		Timer.kill
9174 akron1 245
	ELSE
246
		T.showCursor;
9181 akron1 247
		Timer.create(mainTID)
9174 akron1 248
	END
249
END resetTimer;
250
 
251
 
9187 akron1 252
PROCEDURE EditBox_SetFocus (edit: EB.tEditBox; value: BOOLEAN);
8728 leency 253
BEGIN
254
    IF value THEN
255
        edit.flags := ORD(BITS(edit.flags) + {1})
256
    ELSE
257
        edit.flags := ORD(BITS(edit.flags) - {1})
258
    END;
9073 leency 259
    IF search & searchOpened THEN
9187 akron1 260
        EB.paint(edit)
8728 leency 261
    END
262
END EditBox_SetFocus;
263
 
264
 
9187 akron1 265
PROCEDURE SetFocus (edit: EB.tEditBox; value: BOOLEAN);
9073 leency 266
BEGIN
267
    EditBox_SetFocus(FindEdit, FALSE);
268
    EditBox_SetFocus(ReplaceEdit, FALSE);
269
    EditBox_SetFocus(GotoEdit, FALSE);
9174 akron1 270
    EditBox_SetFocus(edit, value);
271
  	resetTimer
9073 leency 272
END SetFocus;
273
 
274
 
8728 leency 275
PROCEDURE Rect (left, top, right, bottom, color: INTEGER);
276
BEGIN
277
    K.DrawLine(left, top, right, top, color);
278
    K.DrawLine(left, bottom, right, bottom, color);
279
    K.DrawLine(left, top, left, bottom, color);
280
    K.DrawLine(right, top, right, bottom, color);
281
END Rect;
282
 
283
 
284
PROCEDURE Message (s: ARRAY OF WCHAR);
285
CONST
286
    minWidth = 30;
287
    height = 40;
288
    borderColor = 808080H;
289
VAR
290
    top, left, right, bottom, x, y, width: INTEGER;
291
BEGIN
9181 akron1 292
	Timer.kill;
8728 leency 293
    width := minWidth + LENGTH(s)*fontWidth;
294
    left := (canvas.width - width) DIV 2 + LEFT;
295
    top := (canvas.height - height) DIV 2 + TOP;
296
    bottom := top + height - 1;
297
    right := left + width - 1;
298
    x := minWidth DIV 2 + left;
299
    y := (height - fontHeight) DIV 2 + top;
8762 leency 300
    K.DrawRect(left, top, width, height, K.winColor);
8728 leency 301
    Rect(left, top, right, bottom, borderColor);
8762 leency 302
    K.DrawText(x, y, K.textColor, s);
8728 leency 303
END Message;
304
 
305
 
306
PROCEDURE NotFound;
307
BEGIN
308
    IF notFound THEN
309
        Message("not found");
9175 akron1 310
        IF menuFindClicked THEN
311
        	menuFindClicked := FALSE
312
        ELSE
313
        	notFound := FALSE
314
        END;
9073 leency 315
        SetFocus(FindEdit, TRUE)
8728 leency 316
    END
317
END NotFound;
318
 
319
 
320
PROCEDURE Replaced;
321
VAR
322
    s, s1: ARRAY 32 OF WCHAR;
323
BEGIN
324
    IF replaced # 0 THEN
325
        s := "replaced: ";
326
        U.int2str(replaced, s1);
327
        U.append(s, s1);
328
        Message(s);
329
        replaced := 0;
9073 leency 330
        SetFocus(FindEdit, TRUE)
8728 leency 331
    END
332
END Replaced;
333
 
334
 
9175 akron1 335
PROCEDURE drawIcon (icons, idx, x: INTEGER);
336
BEGIN
337
	Icons.draw(icons, idx, x + iconPad, btnTop + iconPad)
338
END drawIcon;
339
 
340
 
8728 leency 341
PROCEDURE toolbarIcons;
342
VAR
9175 akron1 343
    x, color, ico: INTEGER;
8728 leency 344
BEGIN
345
    x := searchLeft + (toolBtnSize + 5)*2;
346
    IF text.modified THEN
9175 akron1 347
    	ico := icons
8728 leency 348
    ELSE
9175 akron1 349
    	ico := grayIcons
8728 leency 350
    END;
9175 akron1 351
    drawIcon(ico, 5, x);
8728 leency 352
 
353
    IF text.edition # NIL THEN
354
        x := searchLeft + (toolBtnSize + 5)*4 + toolbarDelim*2;
355
        IF ChangeLog.isFirstGuard(text.edition) THEN
9175 akron1 356
        	ico := grayIcons
8728 leency 357
        ELSE
9175 akron1 358
        	ico := icons
8728 leency 359
        END;
9175 akron1 360
        drawIcon(ico, 37, x);
8728 leency 361
 
362
        x := searchLeft + (toolBtnSize + 5)*5 + toolbarDelim*2;
363
        IF ChangeLog.isLastGuard(text.edition) THEN
9175 akron1 364
        	ico := grayIcons
8728 leency 365
        ELSE
9175 akron1 366
        	ico := icons
367
        END;
368
        drawIcon(ico, 36, x)
8728 leency 369
    END;
370
 
371
    IF T.selected(text) THEN
8762 leency 372
        color := K.caseColor
8728 leency 373
    ELSE
8762 leency 374
        color := K.disCaseColor
8728 leency 375
    END;
376
 
377
    x := searchLeft + (toolBtnSize + 5)*6 + toolbarDelim*3;
8762 leency 378
    K.DrawRect(x, btnTop, toolBtnSize, toolBtnSize, K.toolbarColor);
8728 leency 379
    K.DrawText69(x + (toolBtnSize - 12) DIV 2, btnTop + (toolBtnSize - 9) DIV 2 + 2, color, "AB");
380
    INC(x, toolBtnSize + 5);
8762 leency 381
    K.DrawRect(x, btnTop, toolBtnSize, toolBtnSize, K.toolbarColor);
8728 leency 382
    K.DrawText69(x + (toolBtnSize - 12) DIV 2, btnTop + (toolBtnSize - 9) DIV 2 + 2, color, "ab");
383
 
384
    x := searchLeft + (toolBtnSize + 5)*8 + toolbarDelim*4;
385
    IF buildScript # "" THEN
9175 akron1 386
    	ico := icons
8728 leency 387
    ELSE
9175 akron1 388
    	ico := grayIcons
8728 leency 389
    END;
9175 akron1 390
	drawIcon(ico, 54, x);
391
 
8728 leency 392
    INC(x, toolBtnSize + 5);
393
    IF runScript # "" THEN
9175 akron1 394
    	ico := icons
8728 leency 395
    ELSE
9175 akron1 396
    	ico := grayIcons
397
    END;
398
    drawIcon(ico, 53, x)
8728 leency 399
END toolbarIcons;
400
 
401
 
402
PROCEDURE WriteModified (x, y: INTEGER);
403
BEGIN
404
    modified := text.modified;
9181 akron1 405
    K.DrawRect(x, TOP + canvas.height + scrollWidth, 8*fontWidth, BOTTOM - scrollWidth + 1, K.winColor);
8728 leency 406
    IF modified THEN
8762 leency 407
        K.DrawText866(x, y, K.textColor, "modified")
8728 leency 408
    END
409
END WriteModified;
410
 
411
 
9050 leency 412
PROCEDURE DrawState (text: T.tText; width, height: INTEGER);
413
VAR
9180 akron1 414
    y, w, x: INTEGER;
9050 leency 415
BEGIN
416
    y := (btnHeight - fontHeight) DIV 2 + btnTop;
9180 akron1 417
    K.DrawRect(width - 32*fontWidth, y, 32*fontWidth, fontHeight, K.winColor);
418
    w := LENGTH(E.names[text.enc])*fontWidth;
419
    x := width - w;
420
    K.DrawText(x, y, K.textColor, E.names[text.enc]);
421
    w := LENGTH(RW.eolNames[text.eol])*fontWidth;
422
    DEC(x, w + 10);
423
    K.DrawText(x, y, K.textColor, RW.eolNames[text.eol]);
9050 leency 424
    y := height - (BOTTOM - scrollWidth) + (BOTTOM - scrollWidth - 16) DIV 2;
9181 akron1 425
    K.DrawRect(LEFT + 16*fontWidth, TOP + canvas.height + scrollWidth, width - LEFT - 24*fontWidth, BOTTOM - scrollWidth + 1, K.winColor);
9050 leency 426
    K.DrawText866(LEFT + 16*fontWidth, y, K.textColor, text.fileName);
427
    WriteModified(width - 8*fontWidth, y)
428
END DrawState;
429
 
430
 
9174 akron1 431
PROCEDURE DrawScroll (VAR scroll: Scroll.tScroll; left, top, value, maxVal: INTEGER);
432
BEGIN
433
	scroll.maxVal := maxVal;
434
    scroll.left := left;
435
    scroll.top := top;
436
    Scroll.setValue(scroll, value);
437
    Scroll.paint(scroll)
438
END DrawScroll;
439
 
440
 
8728 leency 441
PROCEDURE repaint;
442
VAR
443
    width, height, scrollX, scrollY, y: INTEGER;
444
BEGIN
445
    IF text # NIL THEN
446
        IF confirm THEN
447
            K.DeleteButton(btnYes);
448
            K.DeleteButton(btnNo);
9073 leency 449
            confirm := FALSE;
9174 akron1 450
            resetTimer;
9073 leency 451
            closing := FALSE
8728 leency 452
        END;
9073 leency 453
        IF ~search OR (searchText = "") THEN
9010 leency 454
            T.wordSel(text)
455
        END;
9050 leency 456
        K.ClientSize(width, height);
457
        IF switch THEN
458
            DrawState(text, width, height);
459
            Tabs.draw(tabs);
460
            IF search & T.search(text, searchText, cs, whole) THEN END;
461
            switch := FALSE
462
        END;
8728 leency 463
        T.draw(text);
464
        y := height - (BOTTOM - scrollWidth) + (BOTTOM - scrollWidth - 16) DIV 2;
9181 akron1 465
        K.DrawRect(LEFT, TOP + canvas.height + scrollWidth, 16*fontWidth, BOTTOM - scrollWidth + 1, K.winColor);
8728 leency 466
        WritePos(y);
467
 
468
        IF modified # text.modified THEN
8859 leency 469
            WriteModified(width - 8*fontWidth, y)
8728 leency 470
        END;
471
 
472
        T.getScroll(text, scrollX, scrollY);
9181 akron1 473
        DrawScroll(vScroll, LEFT + canvas.width, TOP - 1, scrollY, text.count - 1);
474
        DrawScroll(hScroll, LEFT, TOP + canvas.height, scrollX, text.maxLength);
9182 akron1 475
        IF search & searchOpened THEN
476
	        CheckBox.paint(BKW);
477
	        CheckBox.paint(CS);
478
	        CheckBox.paint(WH);
479
        END;
8728 leency 480
 
481
        G.DrawCanvas(canvas, LEFT, TOP);
482
        NotFound;
483
        Replaced;
484
        toolbarIcons
485
    END
486
END repaint;
487
 
488
 
489
PROCEDURE resize;
490
VAR
491
    cliWidth, cliHeight: INTEGER;
492
BEGIN
493
    K.WinSize(winWidth, winHeight);
494
    IF winWidth < minWinWidth THEN
495
        winWidth := minWinWidth
496
    END;
497
    IF winHeight < minWinHeight THEN
498
        winHeight := minWinHeight
499
    END;
500
    K.SetWinSize(winWidth, winHeight);
501
    K.WinSize(winWidth, winHeight);
502
    K.ClientSize(cliWidth, cliHeight);
503
    G.destroy(canvas);
9181 akron1 504
    canvas := G.CreateCanvas(cliWidth - (LEFT + RIGHT + 2), cliHeight - (TOP + BOTTOM + 1));
505
    Tabs.setArea(tabs, LEFT, TOP - Tabs.tabHeight, cliWidth - (LEFT + RIGHT + 2), Tabs.tabHeight);
8728 leency 506
    G.SetFont(canvas, font);
507
    T.setCanvas(canvas);
508
    T.resize(canvas.width, canvas.height);
9181 akron1 509
    Scroll.resize(vScroll, vScroll.width, canvas.height + 2);
510
    Scroll.resize(hScroll, canvas.width + 1, hScroll.height);
8728 leency 511
END resize;
512
 
513
 
514
PROCEDURE SearchPanel (left, top: INTEGER);
515
VAR
516
    y, right, bottom, color: INTEGER;
517
BEGIN
9060 leency 518
    DEC(top, Tabs.tabHeight);
8728 leency 519
    right := left + EditBox_Width + SEARCH_PADDING*2;
520
    bottom := top + 395 + btnHeight + SEARCH_PADDING;
8762 leency 521
    color := K.borderColor;
8728 leency 522
    Rect(left, top, right, bottom, color);
9190 akron1 523
    K.CreateButton(btnCloseSearch, right - 20, top, 20, 20, 0EF999FH, "");
8728 leency 524
    K.DrawLine(right - 14, top + 5, right - 5, top + 14, 0FFFFFFH);
525
    K.DrawLine(right - 15, top + 5, right - 5, top + 15, 0FFFFFFH);
526
    K.DrawLine(right - 15, top + 6, right - 6, top + 15, 0FFFFFFH);
527
    K.DrawLine(right - 15, top + 14, right - 6, top + 5, 0FFFFFFH);
528
    K.DrawLine(right - 15, top + 15, right - 5, top + 5, 0FFFFFFH);
529
    K.DrawLine(right - 14, top + 15, right - 5, top + 6, 0FFFFFFH);
530
 
9190 akron1 531
    K.CreateButton(btnHideSearch, right - 40, top, 20, 20, K.btnColor, "");
9073 leency 532
    K.DrawLine(right - 34, top + 14, right - 26, top + 14, K.btnTextColor);
533
    K.DrawLine(right - 34, top + 15, right - 26, top + 15, K.btnTextColor);
534
 
8728 leency 535
    INC(top, 15);
536
    INC(left, SEARCH_PADDING);
8762 leency 537
    K.DrawText866(left, top, K.textColor, "find");
538
    K.DrawText866(left, top + 55, K.textColor, "replace with");
539
    K.DrawText866(left, top + 330, K.textColor, "go to line");
9182 akron1 540
    BKW.top := top + 110;
541
    BKW.left := left;
542
    CS.top := top + 140;
543
    CS.left := left;
544
    WH.top := top + 170;
545
    WH.left := left;
8728 leency 546
    FindEdit.top := top + 20;
547
    ReplaceEdit.top := top + 75;
548
    GotoEdit.top := top + 350;
549
    FindEdit.left := left;
550
    ReplaceEdit.left := left;
551
    GotoEdit.left := left;
9187 akron1 552
    EB.paint(FindEdit);
553
    EB.paint(ReplaceEdit);
554
    EB.paint(GotoEdit);
8728 leency 555
    y := top + 200;
8762 leency 556
    K.CreateButton(btnFindNext, left, y, btnWidth, btnHeight, K.btnColor, "next"); INC(y, btnHeight + 10);
557
    K.CreateButton(btnReplace, left, y, btnWidth, btnHeight, K.btnColor, "replace"); INC(y, btnHeight + 10);
558
    K.CreateButton(btnReplaceAll, left, y, btnWidth + 5*fontWidth - 2, btnHeight, K.btnColor, "replace all");
559
    K.CreateButton(btnGoto, left, top + 380, btnWidth, btnHeight, K.btnColor, "go");
8728 leency 560
END SearchPanel;
561
 
562
 
563
PROCEDURE draw_window;
564
VAR
9050 leency 565
    width, height, x: INTEGER;
8728 leency 566
 
567
 
568
    PROCEDURE drawToolbarBtn (id, x: INTEGER);
569
    BEGIN
8762 leency 570
        K.DrawRect(x, btnTop, toolBtnSize, toolBtnSize, K.toolbarColor);
571
        K.DrawLine(x, btnTop + toolBtnSize, x + toolBtnSize, btnTop + toolBtnSize, K.shadowColor);
572
        K.DrawLine(x + toolBtnSize, btnTop, x + toolBtnSize, btnTop + toolBtnSize, K.shadowColor);
573
        K.CreateButton(id + ORD({30}), x, btnTop, toolBtnSize, toolBtnSize, K.btnColor, "");
8728 leency 574
    END drawToolbarBtn;
575
 
576
 
577
BEGIN
578
    K.BeginDraw;
8772 leency 579
    K.CreateWindow(30 + K.GetTickCount() MOD 128, 30 + K.GetTickCount() MOD 128, winWidth, winHeight, K.winColor, 73H, 0, 0, header);
8728 leency 580
    IF (text # NIL) & ~K.RolledUp() THEN
9174 akron1 581
    	IF confirm THEN
582
    		resetTimer
583
    	END;
8728 leency 584
        confirm := FALSE;
585
        K.ClientSize(width, height);
586
 
8762 leency 587
        K.DrawRect(0, 0, width, TOP, K.winColor);
588
        K.DrawRect(0, 0, LEFT, height, K.winColor);
9181 akron1 589
        K.DrawRect(LEFT + canvas.width + 1, TOP + canvas.height, scrollWidth - 1, scrollWidth, K.winColor);
9187 akron1 590
        Menu.DrawMain(mainMenu);
8728 leency 591
 
592
        x := searchLeft;
593
 
594
        drawToolbarBtn(btnNew, x);
9175 akron1 595
        drawIcon(icons, 2, x);
8728 leency 596
        INC(x, toolBtnSize + 5);
597
 
598
        drawToolbarBtn(btnOpen, x);
9175 akron1 599
        drawIcon(icons, 0, x);
8728 leency 600
        INC(x, toolBtnSize + 5);
601
 
602
        drawToolbarBtn(btnSave, x);
603
        INC(x, toolBtnSize + 5 + toolbarDelim);
604
 
605
        drawToolbarBtn(btnSearch, x);
9175 akron1 606
        drawIcon(icons, 49, x);
8728 leency 607
        INC(x, toolBtnSize + 5 + toolbarDelim);
608
 
609
        drawToolbarBtn(btnUndo, x);
610
        INC(x, toolBtnSize + 5);
611
 
612
        drawToolbarBtn(btnRedo, x);
613
        INC(x, toolBtnSize + 5 + toolbarDelim);
614
 
615
        drawToolbarBtn(btnUpper, x);
616
        INC(x, toolBtnSize + 5);
617
 
618
        drawToolbarBtn(btnLower, x);
619
        INC(x, toolBtnSize + 5 + toolbarDelim);
620
 
621
        drawToolbarBtn(btnBuild, x);
622
        INC(x, toolBtnSize + 5);
623
 
624
        drawToolbarBtn(btnRun, x);
625
        INC(x, toolBtnSize + 5);
626
 
8859 leency 627
        toolbarIcons;
628
 
9050 leency 629
        DrawState(text, width, height);
9073 leency 630
        IF search & searchOpened THEN
8728 leency 631
            SearchPanel(searchLeft, TOP)
632
        END;
9050 leency 633
        Tabs.draw(tabs);
8728 leency 634
        repaint
635
    END;
636
    K.EndDraw
637
END draw_window;
638
 
639
 
640
PROCEDURE mouse (VAR x, y: INTEGER);
641
VAR
642
    mouseX, mouseY,
643
    cliX, cliY,
644
    winX, winY: INTEGER;
645
BEGIN
646
    K.MousePos(mouseX, mouseY);
647
    K.WinPos(winX, winY);
648
    K.ClientPos(cliX, cliY);
649
    x := mouseX - winX - cliX - LEFT;
650
    y := mouseY - winY - cliY - TOP;
651
END mouse;
652
 
653
 
9174 akron1 654
PROCEDURE stopTimer;
655
BEGIN
656
	T.hideCursor;
9181 akron1 657
    Timer.kill;
658
    repaint
9174 akron1 659
END stopTimer;
660
 
661
 
8728 leency 662
PROCEDURE OpenFile (VAR FileName: RW.tFileName; filter: ARRAY OF CHAR);
663
BEGIN
9174 akron1 664
    stopTimer;
8728 leency 665
    OpenDlg.SetFilter(OD, filter);
666
    OpenDlg.Show(OD, 500, 400);
667
    WHILE OD.status = 2 DO
668
        K.Pause(30)
669
    END;
670
    IF OD.status = 1 THEN
671
        COPY(OD.FilePath, FileName)
672
    ELSE
673
        FileName := ""
9174 akron1 674
    END;
675
    resetTimer
8728 leency 676
END OpenFile;
677
 
678
 
679
PROCEDURE error (s: RW.tFileName);
680
BEGIN
681
    K.Run("/rd/1/@notify", s)
682
END error;
683
 
684
 
9050 leency 685
PROCEDURE saveError (name: RW.tFileName);
8728 leency 686
VAR
9050 leency 687
    s: RW.tFileName;
688
BEGIN
689
    s := "'cedit: error saving file ";
690
    U.append8(s, name);
691
    U.append8(s, "' -E");
692
    error(s)
693
END saveError;
694
 
695
 
696
PROCEDURE saveAs (text: T.tText);
697
VAR
698
    fileName, name: RW.tFileName;
8728 leency 699
    ext: ARRAY 8 OF CHAR;
700
BEGIN
701
    OD._type := OpenDlg.tsave;
702
    U.getFileName(text.fileName, OD.FileName, U.SLASH);
703
    IF OD.FileName = "" THEN
704
        OD.FileName := "NewFile.";
705
        CASE text.lang OF
9190 akron1 706
        |Languages.langText:   ext := "txt"
8728 leency 707
        |Languages.langC:      ext := "c"
708
        |Languages.langFasm:   ext := "asm"
709
        |Languages.langIni:    ext := "ini"
9174 akron1 710
        |Languages.langJSON:   ext := "json"
8728 leency 711
        |Languages.langLua:    ext := "lua"
712
        |Languages.langOberon: ext := "ob07"
713
        |Languages.langPascal: ext := "pas"
714
        END;
715
        U.append8(OD.FileName, ext)
716
    END;
717
    OpenFile(fileName, EditFilter);
718
    IF fileName # "" THEN
9180 akron1 719
        IF T.save(text, fileName) THEN
9050 leency 720
            T.setName(text, fileName);
721
            U.getFileName(fileName, name, U.SLASH);
722
            Tabs.rename(tabs, curText, name)
8728 leency 723
        ELSE
9050 leency 724
            saveError(fileName)
8728 leency 725
        END
726
    END
727
END saveAs;
728
 
729
 
9050 leency 730
PROCEDURE getIdx (text: T.tText): INTEGER;
731
VAR
732
    i: INTEGER;
8728 leency 733
BEGIN
9050 leency 734
    i := 0;
735
    WHILE texts[i] # text DO
736
        INC(i)
737
    END
738
    RETURN i
739
END getIdx;
740
 
741
 
742
PROCEDURE Switch (txt: T.tText);
743
BEGIN
744
    Tabs.switch(tabs, curText);
745
    text := txt;
746
    T.switch(txt);
747
    switch := TRUE
748
END Switch;
749
 
750
 
751
PROCEDURE save (text: T.tText);
752
BEGIN
8728 leency 753
    IF text.modified THEN
754
        IF text.fileName # "" THEN
9180 akron1 755
            IF ~T.save(text, text.fileName) THEN
9050 leency 756
                saveError(text.fileName)
8728 leency 757
            END
758
        ELSE
9050 leency 759
            curText := getIdx(text);
760
            Switch(text);
761
            saveAs(text)
8728 leency 762
        END
763
    END
764
END save;
765
 
766
 
9050 leency 767
PROCEDURE saveAll;
768
VAR
769
    i: INTEGER;
8728 leency 770
BEGIN
9050 leency 771
    i := textsCount - 1;
772
    WHILE i >= 0 DO
773
        IF texts[i].modified THEN
774
            save(texts[i])
775
        END;
776
        DEC(i)
777
    END;
778
END saveAll;
8728 leency 779
 
780
 
9050 leency 781
PROCEDURE insert (pos: INTEGER; txt: T.tText);
8728 leency 782
VAR
9050 leency 783
    i: INTEGER;
784
    name: RW.tFileName;
8728 leency 785
BEGIN
9050 leency 786
    FOR i := textsCount - 1 TO pos BY -1 DO
787
        texts[i + 1] := texts[i]
788
    END;
789
    texts[pos] := txt;
790
    INC(textsCount);
791
    curText := pos;
792
    IF txt.fileName = "" THEN
793
        name := "new"
794
    ELSE
795
        U.getFileName(txt.fileName, name, U.SLASH)
796
    END;
797
    Tabs.add(tabs, name);
798
    Switch(txt)
799
END insert;
8728 leency 800
 
801
 
802
PROCEDURE Confirm;
803
CONST
804
    width  = btnWidth*2 + 30;
805
    height = btnHeight*2 + 20;
806
    lineColor = 808080H;
807
VAR
808
    left, top, right, bottom: INTEGER;
809
BEGIN
9174 akron1 810
	stopTimer;
8728 leency 811
    draw_window;
812
    confirm := TRUE;
813
    left := (canvas.width - width) DIV 2 + LEFT;
814
    top := (canvas.height - height) DIV 2 + TOP;
815
    right := left + width - 1;
816
    bottom := top + height - 1;
8762 leency 817
    K.DrawRect(left, top, width, height, K.winColor);
8728 leency 818
    Rect(left, top, right, bottom, lineColor);
8762 leency 819
    K.DrawText866(left + (width - 10*fontWidth) DIV 2, top + 10, K.textColor, "save file?");
820
    K.CreateButton(btnYes, left + 10, top + 35, btnWidth, btnHeight, K.btnColor, "yes");
821
    K.CreateButton(btnNo, left + 20 + btnWidth, top + 35, btnWidth, btnHeight, K.btnColor, "no");
8728 leency 822
END Confirm;
823
 
824
 
9060 leency 825
PROCEDURE closeFile (conf: BOOLEAN; n: INTEGER);
9050 leency 826
VAR
827
    i: INTEGER;
828
BEGIN
9073 leency 829
    IF texts[n].modified & conf THEN
9050 leency 830
        Confirm
831
    ELSE
9060 leency 832
        Tabs.delete(tabs, n);
833
        FOR i := n + 1 TO textsCount - 1 DO
9050 leency 834
            texts[i - 1] := texts[i]
835
        END;
836
        DEC(textsCount);
9060 leency 837
        IF (curText = textsCount) OR (n < curText) THEN
9050 leency 838
            DEC(curText)
839
        END;
840
        IF curText >= 0 THEN
841
            Switch(texts[curText])
842
        ELSE
9181 akron1 843
            K.Exit
9050 leency 844
        END;
845
        draw_window
846
    END
847
END closeFile;
848
 
849
 
850
PROCEDURE NewFile;
851
VAR
852
    nov: T.tText;
853
BEGIN
854
    IF textsCount < maxTexts THEN
855
        nov := T.New();
856
        T.SetPos(nov, 0, 0);
857
        insert(textsCount, nov)
858
    ELSE
859
        error("'cedit: too many files' -E")
860
    END
861
END NewFile;
862
 
863
 
864
PROCEDURE getFileNum (fileName: RW.tFileName): INTEGER;
865
VAR
866
    i: INTEGER;
867
 
868
    PROCEDURE nameEq (name1, name2: RW.tFileName): BOOLEAN;
869
    VAR
870
        n1, n2: RW.tFileName;
871
    BEGIN
872
        n1 := name1;
873
        n2 := name2;
874
        U.upcase(n1);
875
        U.upcase(n2)
876
        RETURN n1 = n2
877
    END nameEq;
878
 
879
BEGIN
880
    i := 0;
881
    WHILE (i < textsCount) & ~nameEq(texts[i].fileName, fileName) DO
882
        INC(i)
883
    END;
884
    IF i = textsCount THEN
885
        i := -1
886
    END
887
    RETURN i
888
END getFileNum;
889
 
890
 
9073 leency 891
PROCEDURE SwitchTab (n: INTEGER);
892
BEGIN
893
    curText := n;
894
    Tabs.switch(tabs, n);
895
    Switch(texts[n]);
9174 akron1 896
    resetTimer;
9073 leency 897
    draw_window
898
END SwitchTab;
899
 
900
 
9050 leency 901
PROCEDURE open;
902
VAR
903
    fileName: RW.tFileName;
904
    nov: T.tText;
905
    err, n: INTEGER;
906
BEGIN
907
    IF textsCount < maxTexts THEN
908
        OD._type := OpenDlg.topen;
909
        OpenFile(fileName, EditFilter);
910
        IF fileName # "" THEN
911
            n := getFileNum(fileName);
912
            IF n = -1 THEN
913
                nov := T.open(fileName, err);
914
                IF nov = NIL THEN
915
                    error("'cedit: error opening file' -E")
916
                ELSE
917
                    insert(textsCount, nov);
918
                    T.SetPos(nov, 0, 0)
919
                END
920
            ELSE
9073 leency 921
                SwitchTab(n)
9050 leency 922
            END
923
        END
924
    ELSE
925
        error("'cedit: too many files' -E")
926
    END
927
END open;
928
 
929
 
9187 akron1 930
PROCEDURE createEdit (left, top: INTEGER): EB.tEditBox;
8728 leency 931
VAR
9187 akron1 932
    edit, EditBox0: EB.tEditBox;
8728 leency 933
BEGIN
934
    NEW(EditBox0);
935
    EditBox0.text := K.malloc(EDITBOX_MAXCHARS + 2);
936
    ASSERT(EditBox0.text # 0);
9187 akron1 937
    edit := EB.create(left, top, EditBox_Width, EDITBOX_MAXCHARS, EditBox0);
8728 leency 938
    edit.flags := 4002H;
939
    edit.text_color := 30000000H;
940
    EditBox_SetFocus(edit, FALSE)
941
    RETURN edit
942
END createEdit;
943
 
944
 
945
PROCEDURE createSearchForm;
946
BEGIN
947
    FindEdit := createEdit(searchLeft, TOP + 20);
948
    ReplaceEdit := createEdit(searchLeft, TOP + 20 + 55);
949
    GotoEdit := createEdit(searchLeft, TOP + 20 + 330);
950
    GotoEdit.flags := ORD(BITS(GotoEdit.flags) + BITS(8000H));
9187 akron1 951
    CheckBox.create("backward", BKW);
952
    CheckBox.create("match case", CS);
953
    CheckBox.create("whole word", WH);
8728 leency 954
END createSearchForm;
955
 
956
 
9187 akron1 957
PROCEDURE EditBox_GetValue (edit: EB.tEditBox; VAR s: ARRAY OF WCHAR);
8728 leency 958
VAR
959
    str: ARRAY EDITBOX_MAXCHARS + 1 OF CHAR;
960
    i: INTEGER;
961
BEGIN
9187 akron1 962
    EB.getValue(edit, str);
8728 leency 963
    i := 0;
964
    WHILE str[i] # 0X DO
965
        s[i] := WCHR(E.cp866[ORD(str[i])]);
966
        INC(i)
967
    END;
968
    s[i] := 0X
969
END EditBox_GetValue;
970
 
971
 
972
PROCEDURE Search;
973
BEGIN
974
    search := ~search;
9073 leency 975
    LEFT := searchLeft;
8728 leency 976
    IF search THEN
9073 leency 977
        searchOpened := TRUE;
978
        INC(LEFT, EditBox_Width + SEARCH_PADDING*2 + 5);
8728 leency 979
        IF T.search(text, searchText, cs, whole) THEN END
980
    ELSE
981
        IF T.search(text, "", FALSE, FALSE) THEN END
982
    END;
9073 leency 983
    SetFocus(FindEdit, search);
8728 leency 984
    resize;
985
    draw_window
986
END Search;
987
 
988
 
989
PROCEDURE click (x, y: INTEGER): INTEGER;
990
VAR
991
    scrollX, scrollY: INTEGER;
9073 leency 992
    shift, ctrl: BOOLEAN;
8728 leency 993
BEGIN
9187 akron1 994
    K.getKBState(shift, ctrl);
995
	Scroll.MouseDown(hScroll, x + LEFT, y + TOP);
996
	Scroll.MouseDown(vScroll, x + LEFT, y + TOP);
997
    T.getScroll(text, scrollX, scrollY);
998
    T.scroll(text, hScroll.value - scrollX, vScroll.value - scrollY);
9182 akron1 999
    IF search & searchOpened THEN
1000
	   	CheckBox.MouseDown(BKW, x + LEFT, y + TOP);
1001
	   	CheckBox.MouseDown(CS,  x + LEFT, y + TOP);
1002
	   	CheckBox.MouseDown(WH,  x + LEFT, y + TOP);
1003
   	END;
8728 leency 1004
    IF (0 <= x) & (x < canvas.width) & (0 <= y) & (y < canvas.height) THEN
1005
        leftButton := TRUE;
9073 leency 1006
        SetFocus(FindEdit, FALSE);
1007
        IF ~shift THEN
8728 leency 1008
            T.resetSelect(text)
1009
        END;
9187 akron1 1010
        T.mouse(text, x, y)
1011
    END;
1012
    repaint
8728 leency 1013
    RETURN K.GetTickCount()
1014
END click;
1015
 
1016
 
1017
PROCEDURE LeftButtonUp;
1018
BEGIN
1019
    leftButton := FALSE;
1020
    Scroll.MouseUp(hScroll);
9182 akron1 1021
    Scroll.MouseUp(vScroll);
1022
    CheckBox.MouseUp(BKW);
1023
    CheckBox.MouseUp(CS);
1024
    CheckBox.MouseUp(WH);
8728 leency 1025
END LeftButtonUp;
1026
 
1027
 
9073 leency 1028
PROCEDURE Close;
9050 leency 1029
VAR
1030
    cont: BOOLEAN;
8728 leency 1031
BEGIN
9073 leency 1032
    closing := TRUE;
9050 leency 1033
    cont := TRUE;
1034
    WHILE (textsCount > 0) & cont DO
1035
        IF text.modified THEN
1036
            Confirm;
1037
            cont := FALSE
1038
        ELSE
9060 leency 1039
            closeFile(FALSE, curText);
9050 leency 1040
            repaint
1041
        END
8728 leency 1042
    END
9073 leency 1043
END Close;
8728 leency 1044
 
1045
 
9174 akron1 1046
PROCEDURE CloseMenu;
1047
BEGIN
9190 akron1 1048
    Menu.close(subEOL);
1049
    Menu.close(subCurLine);
1050
    Menu.close(subIndent);
1051
    Menu.close(subCase);
1052
    Menu.close(subBookmark);
9174 akron1 1053
    Menu.close(menuFile);
1054
    Menu.close(menuEdit);
1055
    Menu.close(menuSearch);
1056
    Menu.close(menuEncoding);
1057
    Menu.close(menuView);
9190 akron1 1058
    Menu.close(menuLanguage);
9174 akron1 1059
    Menu.close(menuProgram);
1060
    Menu.close(menuTools);
9187 akron1 1061
    Menu.close(context)
9174 akron1 1062
END CloseMenu;
1063
 
1064
 
8728 leency 1065
PROCEDURE MenuItemClick (menu: Menu.tMenu; id: INTEGER);
1066
BEGIN
1067
    K.SendIPC(mainTID, id)
1068
END MenuItemClick;
1069
 
1070
 
1071
PROCEDURE goto;
1072
VAR
1073
    gotoVal: INTEGER;
1074
BEGIN
1075
    EditBox_GetValue(GotoEdit, gotoText);
9174 akron1 1076
    IF U.str2int(gotoText, gotoVal) & T.goto(text, gotoVal) THEN
1077
    	SetFocus(GotoEdit, FALSE)
1078
    END
8728 leency 1079
END goto;
1080
 
1081
 
1082
PROCEDURE Script (script: ARRAY OF CHAR);
1083
BEGIN
1084
    IF script # "" THEN
1085
        K.Run("/rd/1/@open", script)
1086
    END
1087
END Script;
1088
 
1089
 
9073 leency 1090
PROCEDURE ShowSearchPanel;
1091
BEGIN
1092
    IF ~search THEN
1093
        Search
1094
    ELSIF ~searchOpened THEN
1095
        search := FALSE;
1096
        Search
1097
    END
1098
END ShowSearchPanel;
1099
 
1100
 
9174 akron1 1101
PROCEDURE CanvasToScreen (VAR x, y: INTEGER);
1102
VAR
1103
    cliX, cliY,
1104
    winX, winY: INTEGER;
1105
BEGIN
1106
    K.WinPos(winX, winY);
1107
    K.ClientPos(cliX, cliY);
1108
    x := x + winX + cliX + LEFT;
1109
    y := y + winY + cliY + TOP;
1110
END CanvasToScreen;
1111
 
1112
 
1113
PROCEDURE ShowMenu (menu: Menu.tMenu);
1114
VAR
1115
    winX, winY, cliX, cliY, x, y, i: INTEGER;
1116
    selected, enabled: BOOLEAN;
1117
BEGIN
1118
    IF menu = context THEN
1119
        mouse(x, y);
1120
        IF ~((0 <= x) & (x < canvas.width) & (0 <= y) & (y < canvas.height)) THEN
1121
            menu := NIL
1122
        END
1123
    ELSE
1124
        K.WinPos(winX, winY);
1125
        K.ClientPos(cliX, cliY);
1126
        x := winX + cliX;
9187 akron1 1127
        y := Menu.MainMenuHeight + winY + cliY
9174 akron1 1128
    END;
1129
    selected := T.selected(text);
1130
 
1131
    IF menu = menuFile THEN
1132
        Menu.setEnabled(menu, menuSave, text.modified);
1133
        Menu.setEnabled(menu, menuFolder, text.fileName # "");
1134
        i := 0;
1135
        WHILE (i < textsCount) & ~texts[i].modified DO
1136
            INC(i)
1137
        END;
1138
        Menu.setEnabled(menu, menuSaveAll, i < textsCount);
1139
        INC(x, menuFileX)
1140
    ELSIF (menu = menuEdit) OR (menu = context) THEN
1141
        Menu.setEnabled(menu, menuUndo, ~ChangeLog.isFirstGuard(text.edition));
1142
        Menu.setEnabled(menu, menuRedo, ~ChangeLog.isLastGuard(text.edition));
1143
        Menu.setEnabled(menu, menuCut, selected);
1144
        Menu.setEnabled(menu, menuCopy, selected);
1145
        Menu.setEnabled(menu, menuDelete, selected);
1146
        Menu.setEnabled(menu, menuPaste, CB.available());
1147
        IF menu = menuEdit THEN
1148
            INC(x, menuEditX)
1149
        ELSE
1150
            IF y + menu.height >= canvas.height THEN
1151
                DEC(y, menu.height)
1152
            END;
1153
            IF x + menu.width >= canvas.width THEN
1154
                DEC(x, menu.width)
1155
            END;
1156
            CanvasToScreen(x, y)
1157
        END
1158
    ELSIF menu = menuEncoding THEN
9182 akron1 1159
        Menu.option(menu, menuUTF8BOM, text.enc = E.UTF8BOM);
1160
        Menu.option(menu, menuUTF8,    text.enc = E.UTF8);
1161
        Menu.option(menu, menuCP866,   text.enc = E.CP866);
1162
        Menu.option(menu, menuWin1251, text.enc = E.W1251);
9174 akron1 1163
        INC(x, menuEncodingX)
1164
    ELSIF menu = menuView THEN
9182 akron1 1165
        Menu.check(menu, menuNumbers,  text.numbers);
1166
        Menu.check(menu, menuFontSize, font = font2);
9174 akron1 1167
        FOR i := 0 TO Ini.sections.count - 1 DO
9182 akron1 1168
            Menu.option(menu, menuColors + i, Ini.curSectionNum = i)
9174 akron1 1169
        END;
1170
        INC(x, menuViewX)
9190 akron1 1171
    ELSIF menu = menuLanguage THEN
1172
        Menu.option(menu, menuText,   text.lang = Languages.langText);
9182 akron1 1173
        Menu.option(menu, menuC,      text.lang = Languages.langC);
1174
        Menu.option(menu, menuFasm,   text.lang = Languages.langFasm);
1175
        Menu.option(menu, menuIni,    text.lang = Languages.langIni);
1176
        Menu.option(menu, menuJSON,   text.lang = Languages.langJSON);
1177
        Menu.option(menu, menuLua,    text.lang = Languages.langLua);
1178
        Menu.option(menu, menuOberon, text.lang = Languages.langOberon);
1179
        Menu.option(menu, menuPascal, text.lang = Languages.langPascal);
9190 akron1 1180
        INC(x, menuLanguageX)
9174 akron1 1181
    ELSIF menu = menuProgram THEN
1182
        Menu.setEnabled(menu, menuBuild, buildScript # "");
1183
        Menu.setEnabled(menu, menuDebug, debugScript # "");
1184
        Menu.setEnabled(menu, menuRun, runScript # "");
1185
        INC(x, menuProgramX)
1186
    ELSIF menu = menuTools THEN
1187
        INC(x, menuToolsX)
1188
    ELSIF menu = menuSearch THEN
1189
        INC(x, menuSearchX)
1190
    END;
1191
 
1192
    enabled := search & (searchText # "");
1193
    Menu.setEnabled(menuSearch, menuFindNext, enabled);
1194
    Menu.setEnabled(menuSearch, menuFindPrev, enabled);
1195
 
1196
    Menu.setEnabled(subIndent, menuIncInd, selected);
1197
    Menu.setEnabled(subIndent, menuDecInd, selected);
1198
 
1199
    Menu.setEnabled(subCase, menuUpper, selected);
1200
    Menu.setEnabled(subCase, menuLower, selected);
1201
 
9190 akron1 1202
	Menu.option(subEOL, menuCRLF, text.eol = RW.EOL_CRLF);
1203
	Menu.option(subEOL, menuLF,   text.eol = RW.EOL_LF);
1204
	Menu.option(subEOL, menuCR,   text.eol = RW.EOL_CR);
1205
 
9174 akron1 1206
    IF menu # NIL THEN
9181 akron1 1207
    	Timer.kill;
9174 akron1 1208
        IF Menu.opened(menu) THEN
1209
            Menu.close(menu)
1210
        END;
9175 akron1 1211
        Menu.open(menu, x, y);
1212
        menuActive := TRUE
1213
    END
9174 akron1 1214
END ShowMenu;
1215
 
1216
 
8728 leency 1217
PROCEDURE receiveIPC;
9174 akron1 1218
VAR
1219
	scrollIPC: BOOLEAN;
9187 akron1 1220
	item: List.tItem;
8728 leency 1221
BEGIN
9174 akron1 1222
	scrollIPC := FALSE;
1223
    IF IPC[0] = Timer.ID THEN
9181 akron1 1224
    	IF IPC[4] = Timer.n THEN
1225
			T.toggleCursor;
1226
			repaint
1227
		END;
9174 akron1 1228
    	IPC[2] := 0
1229
    ELSIF IPC[0] = mainTID THEN
1230
    	IF IPC[2] = Scroll.ScrollIPC THEN
1231
	    	Scroll.change(hScroll);
1232
	    	Scroll.change(vScroll);
9187 akron1 1233
	    	T.scroll(text, ORD(hScroll.Inc) - ORD(hScroll.Dec), ORD(vScroll.Inc) - ORD(vScroll.Dec));
9174 akron1 1234
 
9175 akron1 1235
    		IF menuActive THEN
1236
    			draw_window;
1237
    			menuActive := FALSE
1238
    		ELSE
1239
    			repaint
1240
    		END;
1241
 
9187 akron1 1242
    		IF 0 IN K.MouseState() THEN
9174 akron1 1243
    			WHILE (0 IN K.MouseState()) & (delay > 0) DO
1244
        			K.Pause(1);
1245
    	    		DEC(delay)
1246
        		END;
1247
        		IF delay = 0 THEN
1248
    				IPC[0] := 0;
1249
					IPC[1] := 0;
1250
					scrollIPC := TRUE;
1251
	        		Scroll.SendIPC;
1252
    	    		delay := 2
1253
        		ELSE
9187 akron1 1254
        			delay := Scroll.Delay
9174 akron1 1255
        		END
1256
        	ELSE
9187 akron1 1257
        		delay := Scroll.Delay
9174 akron1 1258
			END
1259
    	END;
1260
    	IPC[2] := 0
9187 akron1 1261
    ELSE
1262
    	IF ~Menu.isSender(IPC[0]) THEN
1263
   			IPC[2] := 0
1264
    	ELSE
1265
    		IF IPC[2] < 0 THEN
1266
    			item := List.getItem(mainMenu, (-IPC[2] - mainMenuBtn) MOD mainMenu.count);
1267
    			IF item # NIL THEN
1268
    				ShowMenu(item(Menu.tMainItem).menu)
1269
    			END;
1270
    			IPC[2] := 0
1271
    		END
1272
    	END
8728 leency 1273
    END;
1274
    CASE IPC[2] OF
1275
    |0:
9073 leency 1276
    |menuCut:       T.key(text, ORD("X"), FALSE, TRUE)
1277
    |menuCopy:      T.key(text, ORD("C"), FALSE, TRUE)
1278
    |menuPaste:     T.key(text, ORD("V"), FALSE, TRUE)
1279
    |menuDelete:    T.key(text,       46, FALSE, FALSE)
1280
    |menuSelectAll: T.key(text, ORD("A"), FALSE, TRUE)
8728 leency 1281
 
1282
    |menuNew:
9050 leency 1283
        NewFile
8728 leency 1284
    |menuOpen:
1285
        open
1286
    |menuSave:
9050 leency 1287
        save(text);
8728 leency 1288
        repaint
1289
    |menuSaveAs:
9050 leency 1290
        saveAs(text);
8728 leency 1291
        repaint
9050 leency 1292
    |menuSaveAll:
1293
        saveAll;
1294
        repaint
1295
    |menuClose:
9060 leency 1296
        closeFile(TRUE, curText)
8728 leency 1297
    |menuFolder:
1298
        K.Run("/rd/1/File Managers/Eolite", text.fileName)
1299
    |menuExit:
9073 leency 1300
        Close
8728 leency 1301
    |menuUndo:
1302
        T.undo(text);
1303
        repaint
1304
    |menuRedo:
1305
        T.redo(text);
1306
        repaint
9174 akron1 1307
    |menuFind:
9073 leency 1308
        ShowSearchPanel;
1309
        SetFocus(FindEdit, TRUE)
9174 akron1 1310
    |menuFindNext:
9182 akron1 1311
        notFound := ~T.findNext(text, BKW.value);
9175 akron1 1312
        menuFindClicked := TRUE
9174 akron1 1313
    |menuFindPrev:
9182 akron1 1314
        notFound := ~T.findNext(text, ~BKW.value);
9175 akron1 1315
        menuFindClicked := TRUE
8728 leency 1316
    |menuGoto:
9073 leency 1317
        ShowSearchPanel;
1318
        SetFocus(GotoEdit, TRUE)
9174 akron1 1319
    |menuToggleBookmark:
1320
    	T.toggleLabel(text)
1321
    |menuNextBookmark:
1322
    	T.gotoLabel(text, TRUE)
1323
    |menuPrevBookmark:
1324
    	T.gotoLabel(text, FALSE)
8728 leency 1325
    |menuNumbers:
1326
        T.toggleNumbers(text)
8772 leency 1327
    |menuFontSize:
1328
        IF font = font1 THEN
1329
            font := font2
1330
        ELSE
1331
            font := font1
1332
        END;
1333
        resize
9190 akron1 1334
    |menuText:
1335
        T.setLang(text, Languages.langText)
8728 leency 1336
    |menuC:
1337
        T.setLang(text, Languages.langC)
1338
    |menuFasm:
1339
        T.setLang(text, Languages.langFasm)
1340
    |menuIni:
1341
        T.setLang(text, Languages.langIni)
9174 akron1 1342
    |menuJSON:
1343
        T.setLang(text, Languages.langJSON)
8728 leency 1344
    |menuLua:
1345
        T.setLang(text, Languages.langLua)
1346
    |menuOberon:
1347
        T.setLang(text, Languages.langOberon)
1348
    |menuPascal:
1349
        T.setLang(text, Languages.langPascal)
1350
    |menuBuild:
1351
        Script(buildScript)
1352
    |menuBuildScript:
1353
        OpenFile(buildScript, ShellFilter)
1354
    |menuRun:
1355
        Script(runScript)
1356
    |menuRunScript:
1357
        OpenFile(runScript, ShellFilter)
1358
    |menuDebug:
1359
        Script(debugScript)
1360
    |menuDebugScript:
1361
        OpenFile(debugScript, ShellFilter)
1362
    |menuUTF8BOM:
1363
        text.enc := E.UTF8BOM
1364
    |menuUTF8:
1365
        text.enc := E.UTF8
1366
    |menuCP866:
1367
        text.enc := E.CP866
1368
    |menuWin1251:
1369
        text.enc := E.W1251
9180 akron1 1370
    |menuLF:
1371
        text.eol := RW.EOL_LF
1372
    |menuCRLF:
1373
        text.eol := RW.EOL_CRLF
1374
    |menuCR:
1375
        text.eol := RW.EOL_CR
8728 leency 1376
    |menuPipet:
1377
        K.Run("/rd/1/develop/pipet", "")
9073 leency 1378
    |menuBoard:
1379
        K.Run("/rd/1/develop/board", "")
8728 leency 1380
    |menuSysFunc:
1381
        K.Run("/rd/1/docpack", "f")
1382
    |menuColors..menuMaxColors:
1383
        Ini.selectSection(IPC[2] - menuColors)
9174 akron1 1384
    |menuMoveUp:
1385
    	T.upLine(text)
1386
    |menuMoveDown:
1387
    	T.downLine(text)
1388
    |menuDuplicate:
1389
    	T.dupLine(text)
1390
    |menuRemove:
1391
    	T.delLine(text)
1392
    |menuIncInd:
1393
    	T.Indent(text, TRUE)
1394
	|menuDecInd:
1395
		T.Indent(text, FALSE)
1396
	|menuUpper:
1397
		T.chCase(text, TRUE)
1398
	|menuLower:
1399
		T.chCase(text, FALSE)
8728 leency 1400
    END;
9174 akron1 1401
    IF ~scrollIPC THEN
1402
    	IPC[0] := 0;
1403
    	IPC[1] := 0
1404
    END
8728 leency 1405
END receiveIPC;
1406
 
1407
 
1408
PROCEDURE MenuKeyDown (menu: Menu.tMenu; key: INTEGER): BOOLEAN;
1409
VAR
1410
    menuItem: INTEGER;
9073 leency 1411
    shift, ctrl: BOOLEAN;
8728 leency 1412
BEGIN
1413
    menuItem := -1;
9187 akron1 1414
    K.getKBState(shift, ctrl);
9073 leency 1415
    IF ctrl THEN
8728 leency 1416
        CASE key DIV 65536 OF
9060 leency 1417
        |17: menuItem := menuClose
8728 leency 1418
        |21: menuItem := menuRedo
1419
        |30: menuItem := menuSelectAll
9187 akron1 1420
        |32: menuItem := menuDuplicate
9174 akron1 1421
        |33: menuItem := menuFind
8728 leency 1422
        |34: menuItem := menuGoto
1423
        |44: menuItem := menuUndo
1424
        |45: menuItem := menuCut
1425
        |46: menuItem := menuCopy
1426
        |47: menuItem := menuPaste
1427
        |24: menuItem := menuOpen
1428
        |31: menuItem := menuSave
1429
        |49: menuItem := menuNew
1430
        |67: menuItem := menuBuild
9187 akron1 1431
        |83: menuItem := menuRemove
1432
        |22: menuItem := menuUpper
1433
        |38: menuItem := menuLower
1434
        |60: menuItem := menuToggleBookmark
1435
        |72: menuItem := menuMoveUp
1436
        |80: menuItem := menuMoveDown
8728 leency 1437
        ELSE
1438
        END
1439
    ELSE
1440
        IF key DIV 65536 = 83 THEN
1441
            menuItem := menuDelete
1442
        ELSIF key DIV 65536 = 67 THEN
1443
            menuItem := menuRun
9187 akron1 1444
        ELSIF key DIV 65536 = 15 THEN
1445
            menuItem := menuIncInd
1446
        ELSIF (key DIV 65536 = 14) & shift THEN
1447
            menuItem := menuDecInd
1448
        ELSIF key DIV 65536 = 60 THEN
1449
        	IF shift THEN
1450
        		menuItem := menuPrevBookmark
1451
        	ELSE
1452
        		menuItem := menuNextBookmark
1453
        	END
8728 leency 1454
        END
1455
    END;
1456
    IF menuItem # -1 THEN
1457
        IF Menu.isEnabled(menu, menuItem) THEN
1458
            MenuItemClick(menu, menuItem)
1459
        ELSE
1460
            menuItem := -1
1461
        END
1462
    END
1463
    RETURN menuItem # -1
1464
END MenuKeyDown;
1465
 
1466
 
1467
PROCEDURE CreateContextMenu (): Menu.tMenu;
1468
VAR
1469
    menu: List.tList;
1470
BEGIN
1471
    menu := List.create(NIL);
1472
    Menu.AddMenuItem(menu, menuUndo,      "undo         ctrl-Z");
1473
    Menu.AddMenuItem(menu, menuRedo,      "redo         ctrl-Y");
1474
    Menu.delimiter(menu);
1475
    Menu.AddMenuItem(menu, menuCut,       "cut          ctrl-X");
1476
    Menu.AddMenuItem(menu, menuCopy,      "copy         ctrl-C");
1477
    Menu.AddMenuItem(menu, menuPaste,     "paste        ctrl-V");
1478
    Menu.AddMenuItem(menu, menuDelete,    "delete");
1479
    Menu.delimiter(menu);
1480
    Menu.AddMenuItem(menu, menuSelectAll, "select all   ctrl-A");
1481
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
1482
END CreateContextMenu;
1483
 
1484
 
1485
PROCEDURE CreateMenuFile (): Menu.tMenu;
1486
VAR
1487
    menu: List.tList;
1488
BEGIN
1489
    menu := List.create(NIL);
9050 leency 1490
    Menu.AddMenuItem(menu, menuNew,     "new         ctrl-N");
1491
    Menu.AddMenuItem(menu, menuOpen,    "open        ctrl-O");
1492
    Menu.AddMenuItem(menu, menuSave,    "save        ctrl-S");
1493
    Menu.AddMenuItem(menu, menuSaveAs,  "save as");
1494
    Menu.AddMenuItem(menu, menuSaveAll, "save all");
1495
    Menu.AddMenuItem(menu, menuFolder,  "folder");
8728 leency 1496
    Menu.delimiter(menu);
9060 leency 1497
    Menu.AddMenuItem(menu, menuClose,   "close       ctrl-W");
9050 leency 1498
    Menu.delimiter(menu);
1499
    Menu.AddMenuItem(menu, menuExit,    "exit");
8728 leency 1500
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
1501
END CreateMenuFile;
1502
 
1503
 
1504
PROCEDURE CreateMenuEdit (): Menu.tMenu;
1505
VAR
1506
    menu: List.tList;
1507
BEGIN
1508
    menu := List.create(NIL);
9174 akron1 1509
    Menu.AddMenuItem(menu, menuUndo,      "undo            ctrl-Z");
1510
    Menu.AddMenuItem(menu, menuRedo,      "redo            ctrl-Y");
8728 leency 1511
    Menu.delimiter(menu);
9174 akron1 1512
    Menu.AddMenuItem(menu, menuCut,       "cut             ctrl-X");
1513
    Menu.AddMenuItem(menu, menuCopy,      "copy            ctrl-C");
1514
    Menu.AddMenuItem(menu, menuPaste,     "paste           ctrl-V");
8728 leency 1515
    Menu.AddMenuItem(menu, menuDelete,    "delete");
1516
    Menu.delimiter(menu);
9174 akron1 1517
    Menu.AddMenuItem(menu, menuSelectAll, "select all      ctrl-A");
1518
    Menu.delimiter(menu);
1519
    Menu.AddMenuItem(menu, menuCurLine,   "current line");
1520
    Menu.child(menu, subCurLine);
1521
    Menu.AddMenuItem(menu, menuIndent,    "indent");
1522
    Menu.child(menu, subIndent);
1523
    Menu.AddMenuItem(menu, menuCase,      "case");
1524
    Menu.child(menu, subCase);
8728 leency 1525
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
1526
END CreateMenuEdit;
1527
 
1528
 
9174 akron1 1529
PROCEDURE CreateMenuSearch (): Menu.tMenu;
1530
VAR
1531
    menu: List.tList;
1532
BEGIN
1533
    menu := List.create(NIL);
1534
    Menu.AddMenuItem(menu, menuFind,     "search           ctrl-F");
1535
    Menu.AddMenuItem(menu, menuFindNext, "find next        F3");
1536
    Menu.AddMenuItem(menu, menuFindPrev, "find previous    shift-F3");
1537
    Menu.AddMenuItem(menu, menuGoto,     "go to line       ctrl-G");
1538
    Menu.delimiter(menu);
1539
    Menu.AddMenuItem(menu, menuBookmark, "bookmark");
1540
    Menu.child(menu, subBookmark);
1541
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
1542
END CreateMenuSearch;
1543
 
1544
 
8728 leency 1545
PROCEDURE CreateMenuEncoding (): Menu.tMenu;
1546
VAR
1547
    menu: List.tList;
1548
BEGIN
1549
    menu := List.create(NIL);
9073 leency 1550
    Menu.AddMenuItem(menu, menuUTF8BOM, E.names[E.UTF8BOM]);
1551
    Menu.AddMenuItem(menu, menuUTF8,    E.names[E.UTF8]);
1552
    Menu.AddMenuItem(menu, menuCP866,   E.names[E.CP866]);
1553
    Menu.AddMenuItem(menu, menuWin1251, E.names[E.W1251]);
9190 akron1 1554
    Menu.delimiter(menu);
1555
    Menu.AddMenuItem(menu, menuEOL,     "EOL");
1556
    Menu.child(menu, subEOL);
8728 leency 1557
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
1558
END CreateMenuEncoding;
1559
 
1560
 
9180 akron1 1561
PROCEDURE CreateMenuEOL (): Menu.tMenu;
1562
VAR
1563
    menu: List.tList;
1564
BEGIN
1565
    menu := List.create(NIL);
1566
    Menu.AddMenuItem(menu, menuCRLF, RW.eolNames[RW.EOL_CRLF]);
1567
    Menu.AddMenuItem(menu, menuLF,   RW.eolNames[RW.EOL_LF]);
1568
    Menu.AddMenuItem(menu, menuCR,   RW.eolNames[RW.EOL_CR]);
1569
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
1570
END CreateMenuEOL;
1571
 
1572
 
8728 leency 1573
PROCEDURE CreateMenuView (): Menu.tMenu;
1574
VAR
1575
    menu: List.tList;
1576
    colors: Ini.tSection;
1577
    idx: INTEGER;
1578
BEGIN
1579
    menu := List.create(NIL);
8762 leency 1580
    Menu.AddMenuItem(menu, menuNumbers, "line numbers");
8772 leency 1581
    Menu.AddMenuItem(menu, menuFontSize, "x2");
8728 leency 1582
    Menu.delimiter(menu);
1583
 
1584
    colors := Ini.sections.first(Ini.tSection);
1585
    idx := menuColors;
1586
    WHILE colors # NIL DO
1587
        Menu.AddMenuItem(menu, idx, colors.name);
1588
        INC(idx);
1589
        colors := colors.next(Ini.tSection)
1590
    END;
1591
 
1592
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
1593
END CreateMenuView;
1594
 
1595
 
9190 akron1 1596
PROCEDURE CreateMenuLanguage (): Menu.tMenu;
8728 leency 1597
VAR
1598
    menu: List.tList;
1599
BEGIN
1600
    menu := List.create(NIL);
1601
    Menu.AddMenuItem(menu, menuC,      "C");
1602
    Menu.AddMenuItem(menu, menuFasm,   "Fasm");
1603
    Menu.AddMenuItem(menu, menuIni,    "Ini");
9174 akron1 1604
    Menu.AddMenuItem(menu, menuJSON,   "JSON");
8728 leency 1605
    Menu.AddMenuItem(menu, menuLua,    "Lua");
1606
    Menu.AddMenuItem(menu, menuOberon, "Oberon");
1607
    Menu.AddMenuItem(menu, menuPascal, "Pascal");
1608
    Menu.delimiter(menu);
9190 akron1 1609
    Menu.AddMenuItem(menu, menuText,   "Text");
8728 leency 1610
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
9190 akron1 1611
END CreateMenuLanguage;
8728 leency 1612
 
1613
 
1614
PROCEDURE CreateMenuProgram (): Menu.tMenu;
1615
VAR
1616
    menu: List.tList;
1617
BEGIN
1618
    menu := List.create(NIL);
9174 akron1 1619
    Menu.AddMenuItem(menu, menuBuild,       "build    ctrl-F9");
8728 leency 1620
    Menu.AddMenuItem(menu, menuBuildScript, "script");
1621
    Menu.delimiter(menu);
1622
    Menu.AddMenuItem(menu, menuRun,         "run           F9");
1623
    Menu.AddMenuItem(menu, menuRunScript,   "script");
1624
    Menu.delimiter(menu);
1625
    Menu.AddMenuItem(menu, menuDebug,       "debug");
1626
    Menu.AddMenuItem(menu, menuDebugScript, "script");
1627
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
1628
END CreateMenuProgram;
1629
 
1630
 
1631
PROCEDURE CreateMenuTools (): Menu.tMenu;
1632
VAR
1633
    menu: List.tList;
1634
BEGIN
1635
    menu := List.create(NIL);
1636
    Menu.AddMenuItem(menu, menuPipet,   "pipet");
9073 leency 1637
    Menu.AddMenuItem(menu, menuBoard,   "board");
8728 leency 1638
    Menu.AddMenuItem(menu, menuSysFunc, "system functions");
1639
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
1640
END CreateMenuTools;
1641
 
1642
 
9174 akron1 1643
PROCEDURE CreateMenuCurLine(): Menu.tMenu;
8728 leency 1644
VAR
9174 akron1 1645
    menu: List.tList;
8728 leency 1646
BEGIN
9174 akron1 1647
    menu := List.create(NIL);
1648
    Menu.AddMenuItem(menu, menuMoveUp,    "move up     ctrl-Up");
1649
    Menu.AddMenuItem(menu, menuMoveDown,  "move down   ctrl-Down");
1650
    Menu.AddMenuItem(menu, menuDuplicate, "duplicate   ctrl-D");
1651
    Menu.AddMenuItem(menu, menuRemove,    "remove      ctrl-Del");
1652
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
1653
END CreateMenuCurLine;
8728 leency 1654
 
1655
 
9174 akron1 1656
PROCEDURE CreateMenuIndent(): Menu.tMenu;
8728 leency 1657
VAR
9174 akron1 1658
    menu: List.tList;
8728 leency 1659
BEGIN
9174 akron1 1660
    menu := List.create(NIL);
1661
    Menu.AddMenuItem(menu, menuIncInd, "increase    Tab");
1662
    Menu.AddMenuItem(menu, menuDecInd, "decrease    shift-Bksp");
1663
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
1664
END CreateMenuIndent;
8728 leency 1665
 
1666
 
9174 akron1 1667
PROCEDURE CreateMenuCase(): Menu.tMenu;
1668
VAR
1669
    menu: List.tList;
1670
BEGIN
1671
    menu := List.create(NIL);
1672
    Menu.AddMenuItem(menu, menuUpper, "UPPER    ctrl-U");
1673
    Menu.AddMenuItem(menu, menuLower, "lower    ctrl-L");
1674
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
1675
END CreateMenuCase;
8728 leency 1676
 
1677
 
9174 akron1 1678
PROCEDURE CreateMenuBookmark(): Menu.tMenu;
1679
VAR
1680
    menu: List.tList;
1681
BEGIN
1682
    menu := List.create(NIL);
1683
    Menu.AddMenuItem(menu, menuToggleBookmark, "toggle      ctrl-F2");
1684
    Menu.AddMenuItem(menu, menuNextBookmark,   "next        F2");
1685
    Menu.AddMenuItem(menu, menuPrevBookmark,   "previous    shift-F2");
1686
    RETURN Menu.create(menu, MenuItemClick, MenuKeyDown)
1687
END CreateMenuBookmark;
1688
 
1689
 
9190 akron1 1690
PROCEDURE HideSearch;
1691
BEGIN
1692
    SetFocus(FindEdit, FALSE);
1693
    searchOpened := FALSE;
1694
    LEFT := searchLeft;
1695
    resize;
1696
    draw_window
1697
END HideSearch;
1698
 
1699
 
9073 leency 1700
PROCEDURE KeyDown (key: INTEGER);
1701
VAR
1702
    keyCode: INTEGER;
1703
    shift, ctrl: BOOLEAN;
1704
BEGIN
9187 akron1 1705
	K.getKBState(shift, ctrl);
9073 leency 1706
    keyCode := key DIV 65536;
1707
    IF confirm THEN
1708
        IF keyCode = 28 THEN (* Enter *)
1709
            save(text);
1710
            IF ~text.modified THEN
1711
                closeFile(FALSE, curText)
1712
            END
1713
        END;
1714
        key := -1
1715
    ELSE
1716
        IF keyCode = 61 THEN (* F3 *)
1717
            key := -1;
1718
            IF search & (searchText # "") THEN
1719
                IF shift THEN
9182 akron1 1720
                    notFound := ~T.findNext(text, ~BKW.value)
9073 leency 1721
                ELSE
9182 akron1 1722
                    notFound := ~T.findNext(text, BKW.value)
9073 leency 1723
                END
1724
            END
1725
        ELSIF keyCode = 60 THEN (* F2 *)
1726
            key := -1;
1727
            IF ctrl THEN
1728
                T.toggleLabel(text)
1729
            ELSE
1730
                T.gotoLabel(text, ~shift)
1731
            END
1732
        ELSIF keyCode = 67 THEN (* F9 *)
1733
            key := -1;
1734
            IF ctrl THEN
1735
                Script(buildScript)
1736
            ELSE
1737
                Script(runScript)
1738
            END
9187 akron1 1739
        ELSIF keyCode = 68 THEN (* F10 *)
9190 akron1 1740
        	IF shift THEN
1741
        		ShowMenu(context)
1742
        	ELSE
1743
        		ShowMenu(menuFile)
1744
        	END;
1745
            key := -1
9073 leency 1746
        ELSIF keyCode = 1 THEN (* Esc *)
1747
            IF search THEN
9190 akron1 1748
            	IF shift THEN
1749
            		HideSearch
1750
            	ELSE
1751
                	Search
1752
                END
1753
            END;
1754
            key := -1
9073 leency 1755
        ELSIF (keyCode = 55) & (key DIV 256 MOD 256 = 52) THEN (* PrtScn *)
1756
            key := -1
9174 akron1 1757
        ELSIF (keyCode = 14) & shift THEN (* shift+Backspace *)
1758
            key := -1;
1759
            T.input(text, -8)
9073 leency 1760
        ELSIF (keyCode = 15) & ctrl THEN (* ctrl+Tab *)
1761
            key := -1;
1762
            SwitchTab((curText + 1) MOD textsCount)
1763
        ELSIF (keyCode = 33) & ctrl THEN
1764
            key := -1;
1765
            ShowSearchPanel;
1766
            SetFocus(FindEdit, TRUE)
1767
        ELSIF (keyCode = 34) & ctrl THEN
1768
            key := -1;
1769
            ShowSearchPanel;
1770
            SetFocus(GotoEdit, TRUE)
1771
        ELSE
1772
            IF EditBox_Focus(FindEdit) THEN
9187 akron1 1773
                EB.key(FindEdit, key);
9073 leency 1774
                EditBox_GetValue(FindEdit, new_searchText);
1775
                IF new_searchText # searchText THEN
1776
                    searchText := new_searchText;
1777
                    notFound := ~T.search(text, searchText, cs, whole)
1778
                END
1779
            ELSIF EditBox_Focus(ReplaceEdit) THEN
9187 akron1 1780
                EB.key(ReplaceEdit, key);
9073 leency 1781
                EditBox_GetValue(ReplaceEdit, replaceText)
1782
            ELSIF EditBox_Focus(GotoEdit) THEN
1783
                IF (key DIV 256) MOD 256 = 13 THEN
1784
                    goto
1785
                ELSE
9187 akron1 1786
                    EB.key(GotoEdit, key)
9073 leency 1787
                END
1788
            ELSE
1789
                CASE keyCode OF
1790
                |73: key := 33
1791
                |81: key := 34
1792
                |71: key := 36
1793
                |79: key := 35
1794
                |72: key := 38
1795
                |80: key := 40
1796
                |75: key := 37
1797
                |77: key := 39
9174 akron1 1798
                |82, 91, 219, 92, 220: key := -1 (* insert, windows *)
1799
                |93: ShowMenu(context); key := -1
9073 leency 1800
                |83: key := 46
1801
                |59, 62..66, 68, 87, 88: key := -1 (* F1, F4..F8, F10, F11, F12 *)
1802
                ELSE
1803
                    IF ctrl THEN
1804
                        CASE keyCode OF
1805
                        |17: closeFile(TRUE, curText);
1806
                             key := -2
1807
                        |21: T.redo(text);
1808
                             key := -1
1809
                        |22: key := ORD("U")
1810
                        |24: key := -1;
1811
                             open
1812
                        |30: key := ORD("A")
1813
                        |31: key := -1;
1814
                             save(text)
1815
                        |32: key := ORD("D")
1816
                        |38: key := ORD("L")
1817
                        |44: T.undo(text);
1818
                             key := -1
1819
                        |45: key := ORD("X")
1820
                        |46: key := ORD("C")
1821
                        |47: key := ORD("V")
1822
                        |49: key := -1;
1823
                             NewFile
1824
                        ELSE
1825
                            key := -1
1826
                        END
1827
                    ELSE
1828
                        T.input(text, E.cp866[key DIV 256 MOD 256]);
1829
                        key := -1
1830
                    END
1831
                END;
1832
                IF key >= 0 THEN
1833
                    T.key(text, key, shift, ctrl)
1834
                END
1835
            END
1836
        END
1837
    END;
1838
    IF key # -2 THEN
1839
        repaint
1840
    END
1841
END KeyDown;
1842
 
1843
 
1844
PROCEDURE BtnClick;
1845
VAR
1846
    btn: INTEGER;
1847
    middle, exit: BOOLEAN;
9187 akron1 1848
    menu: Menu.tMenu;
9073 leency 1849
BEGIN
1850
    btn := K.ButtonCode(middle);
9187 akron1 1851
    IF U.between(Tabs.btnID, btn, Tabs.btnID + maxTexts - 1) THEN
9073 leency 1852
        DEC(btn, Tabs.btnID);
1853
        IF middle THEN
1854
            IF texts[btn].modified THEN
1855
                SwitchTab(btn)
1856
            END;
1857
            closeFile(TRUE, btn)
1858
        ELSE
1859
            SwitchTab(btn)
1860
        END;
1861
        btn := 0
1862
    ELSE
1863
        IF middle THEN
1864
            btn := 0
1865
        END
1866
    END;
9187 akron1 1867
    IF btn # 0 THEN
1868
    	menu := Menu.ClickMain(mainMenu, btn);
1869
    	IF menu # NIL THEN
1870
    		ShowMenu(menu);
1871
    		btn := 0
1872
    	END
1873
    END;
9073 leency 1874
    CASE btn OF
1875
    |Tabs.btnID - 1: Tabs.scroll(tabs, -1); switch := TRUE; repaint
1876
    |Tabs.btnID - 2: Tabs.scroll(tabs, +1); switch := TRUE; repaint
1877
 
1878
    |0:
1879
 
1880
    |btnNo:
1881
        exit := closing;
1882
        closeFile(FALSE, curText);
1883
        repaint;
1884
        IF exit THEN
1885
            Close
1886
        END
1887
    |btnYes:
1888
        exit := closing;
1889
        save(text);
1890
        IF ~text.modified THEN
1891
            closeFile(FALSE, curText)
1892
        END;
1893
        repaint;
1894
        IF exit THEN
1895
            Close
1896
        END
1897
    |btnClose:
1898
        Close
1899
    |btnNew:
1900
        NewFile;
1901
        repaint
1902
    |btnOpen:
1903
        open
1904
    |btnSave:
1905
        save(text);
1906
        repaint
1907
    |btnSearch:
1908
        ShowSearchPanel
9190 akron1 1909
    |btnCloseSearch:
9073 leency 1910
        Search
9190 akron1 1911
    |btnHideSearch:
1912
        HideSearch
9073 leency 1913
    |btnUndo:
1914
        T.undo(text);
1915
        repaint
1916
    |btnRedo:
1917
        T.redo(text);
1918
        repaint
1919
    |btnUpper:
1920
        T.chCase(text, TRUE);
1921
        repaint
1922
    |btnLower:
1923
        T.chCase(text, FALSE);
1924
        repaint
1925
    |btnBuild:
1926
        Script(buildScript)
1927
    |btnRun:
1928
        Script(runScript)
1929
    |btnFindNext:
1930
        IF searchText # "" THEN
9182 akron1 1931
            notFound := ~T.findNext(text, BKW.value);
9073 leency 1932
            repaint
1933
        END
1934
    |btnReplace:
1935
        T.replace(text, replaceText, LENGTH(searchText));
1936
        repaint
1937
    |btnReplaceAll:
1938
        notFound := ~T.search(text, searchText, cs, whole);
1939
        IF ~notFound THEN
1940
            replaced := T.replaceAll(text, replaceText, LENGTH(searchText));
1941
        END;
1942
        repaint
1943
    |btnGoto:
1944
        goto;
1945
        repaint
1946
    END
1947
END BtnClick;
1948
 
1949
 
1950
PROCEDURE MouseEvent (VAR resized: BOOLEAN; VAR firstClickX, firstClickY, time: INTEGER);
1951
CONST
1952
    DELAY = 10;
1953
VAR
1954
    msState: SET;
1955
    scroll, x, y, scrollX, scrollY: INTEGER;
1956
 
1957
 
9187 akron1 1958
    PROCEDURE EditBox (eb: EB.tEditBox);
9073 leency 1959
    VAR
1960
        focus: BOOLEAN;
1961
    BEGIN
1962
        focus := EditBox_Focus(eb);
9187 akron1 1963
        EB.mouse(eb);
9073 leency 1964
        IF focus # EditBox_Focus(eb) THEN
9174 akron1 1965
            SetFocus(eb, TRUE);
1966
            repaint
9073 leency 1967
        END
1968
    END EditBox;
1969
 
1970
 
1971
BEGIN
9174 akron1 1972
	CloseMenu;
9073 leency 1973
    IF ~resized THEN
1974
        msState := K.MouseState();
1975
        IF ~(0 IN msState) OR (16 IN msState) THEN
1976
            LeftButtonUp
1977
        END;
1978
        scroll := K.Scroll();
1979
        IF scroll # 0 THEN
1980
            T.scroll(text, 0, scroll*3);
1981
            repaint
1982
        END;
1983
        IF leftButton THEN
1984
            IF K.GetTickCount() - time >= DELAY THEN
1985
                mouse(x, y);
1986
                T.mouse(text, x, y);
1987
                repaint
1988
            END
1989
        END;
9174 akron1 1990
		IF Scroll.isActive(hScroll) THEN
1991
			mouse(x, y);
1992
			Scroll.MouseMove(hScroll, x + LEFT, y + TOP);
9073 leency 1993
            T.getScroll(text, scrollX, scrollY);
9174 akron1 1994
            T.scroll(text, hScroll.value - scrollX, 0);
1995
			repaint
1996
		END;
1997
		IF Scroll.isActive(vScroll) THEN
1998
			mouse(x, y);
1999
			Scroll.MouseMove(vScroll, x + LEFT, y + TOP);
2000
            T.getScroll(text, scrollX, scrollY);
9073 leency 2001
            T.scroll(text, 0, vScroll.value - scrollY);
9174 akron1 2002
			repaint
2003
		END;
9073 leency 2004
        IF (8 IN msState) & ~(24 IN msState) THEN
2005
            mouse(firstClickX, firstClickY);
2006
            time := click(firstClickX, firstClickY)
2007
        END;
2008
        IF 9 IN msState THEN
2009
            ShowMenu(context)
2010
        END;
2011
        IF 24 IN msState THEN
2012
            mouse(x, y);
9187 akron1 2013
    		Scroll.MouseDown(hScroll, x + LEFT, y + TOP);
2014
    		Scroll.MouseDown(vScroll, x + LEFT, y + TOP);
9182 akron1 2015
    		IF search & searchOpened THEN
2016
	    		CheckBox.MouseDown(BKW, x + LEFT, y + TOP);
2017
	    		CheckBox.MouseDown(CS,  x + LEFT, y + TOP);
2018
	    		CheckBox.MouseDown(WH,  x + LEFT, y + TOP);
2019
    		END;
9073 leency 2020
            IF (ABS(x - firstClickX) < 5) & (ABS(y - firstClickY) < 5) THEN
2021
                IF (0 <= x) & (x < canvas.width) & (0 <= y) & (y < canvas.height) THEN
2022
                    leftButton := FALSE;
2023
                    T.selectWord(text);
2024
                    repaint
2025
                END
2026
            ELSE
2027
                firstClickX := x;
2028
                firstClickY := y;
2029
                time := click(firstClickX, firstClickY)
2030
            END
2031
        END
2032
    END;
2033
    IF search & searchOpened THEN
2034
        EditBox(FindEdit);
2035
        EditBox(ReplaceEdit);
2036
        EditBox(GotoEdit);
9182 akron1 2037
        IF CS.value # cs THEN
9073 leency 2038
            cs := ~cs;
2039
            notFound := ~T.search(text, searchText, cs, whole);
2040
            repaint
2041
        END;
9182 akron1 2042
        IF WH.value # whole THEN
9073 leency 2043
            whole := ~whole;
2044
            notFound := ~T.search(text, searchText, cs, whole);
2045
            repaint
2046
        END
2047
    END;
2048
    resized := FALSE
2049
END MouseEvent;
2050
 
2051
 
2052
PROCEDURE Redraw (VAR resized: BOOLEAN; VAR width, height, cliWidth, cliHeight: INTEGER);
2053
VAR
2054
    i: INTEGER;
2055
BEGIN
2056
    K.GetSystemColors;
2057
    FOR i := 0 TO 1 DO
2058
        IF ~K.RolledUp() THEN
2059
            K.ClientSize(width, height);
2060
            IF (width # cliWidth) OR (height # cliHeight) THEN
2061
                cliWidth := width;
2062
                cliHeight := height;
2063
                resize;
2064
                resized := TRUE
2065
            END;
2066
            K.SetEventsMask({0, 1, 2, 5, 6, 31})
2067
        ELSE
2068
            K.SetEventsMask({0, 30, 31})
2069
        END;
2070
        draw_window
2071
    END
2072
END Redraw;
2073
 
2074
 
8728 leency 2075
PROCEDURE main;
2076
VAR
2077
    err: INTEGER;
2078
    fileName, filePath: RW.tFileName;
9073 leency 2079
    width, height, cliWidth, cliHeight: INTEGER;
2080
    resized: BOOLEAN;
8728 leency 2081
    firstClickX, firstClickY, time: INTEGER;
2082
BEGIN
9187 akron1 2083
	delay := Scroll.Delay;
8762 leency 2084
    K.GetSystemColors;
2085
    Icons.get(icons, grayIcons);
8728 leency 2086
    modified := FALSE;
9050 leency 2087
    switch := FALSE;
9073 leency 2088
    closing := FALSE;
9050 leency 2089
    textsCount := 0;
2090
    curText := 0;
8728 leency 2091
    mainTID := K.ThreadID();
2092
    K.SetIPC(IPC);
2093
    U.ptr2str(K.GetName(), AppPath);
2094
    Ini.load(AppPath);
2095
    LeftButtonUp;
2096
    resized := FALSE;
8772 leency 2097
    K.ScreenSize(winWidth, winHeight);
9050 leency 2098
    winWidth := (winWidth*80) DIV 100 - (128 + 30);
8772 leency 2099
    winHeight := winHeight - (128 + 30);
2100
    winWidth := MAX(winWidth, minWinWidth);
2101
    winHeight := MAX(winHeight, minWinHeight);
8762 leency 2102
    cliWidth := winWidth;
2103
    cliHeight := winHeight;
8859 leency 2104
    LEFT := searchLeft;
9181 akron1 2105
    canvas := G.CreateCanvas(winWidth - (LEFT + RIGHT + 11), winHeight - (TOP + BOTTOM + 5) - K.SkinHeight());
9050 leency 2106
    tabs := Tabs.create();
2107
    Tabs.setArea(tabs, LEFT, TOP - Tabs.tabHeight, canvas.width, Tabs.tabHeight);
8772 leency 2108
    font1 := G.CreateFont(1, "", {});
2109
    font2 := G.CreateFont(2, "", {});
2110
    font := font1;
8728 leency 2111
    G.SetFont(canvas, font);
9174 akron1 2112
    T.init(resetTimer);
8728 leency 2113
    T.setCanvas(canvas);
2114
    U.ptr2str(K.GetCommandLine(), fileName);
9180 akron1 2115
 
8728 leency 2116
    context := CreateContextMenu();
2117
    menuFile := CreateMenuFile();
9174 akron1 2118
    subCurLine := CreateMenuCurLine();
2119
    subIndent := CreateMenuIndent();
2120
    subCase := CreateMenuCase();
8728 leency 2121
    menuEdit := CreateMenuEdit();
9174 akron1 2122
    subCurLine.parent := menuEdit;
2123
    subIndent.parent := menuEdit;
2124
    subCase.parent := menuEdit;
2125
    subBookmark := CreateMenuBookmark();
2126
    menuSearch := CreateMenuSearch();
2127
    subBookmark.parent := menuSearch;
9190 akron1 2128
    subEOL := CreateMenuEOL();
8728 leency 2129
    menuEncoding := CreateMenuEncoding();
9190 akron1 2130
    subEOL.parent := menuEncoding;
8728 leency 2131
    menuView := CreateMenuView();
9190 akron1 2132
    menuLanguage := CreateMenuLanguage();
8728 leency 2133
    menuProgram := CreateMenuProgram();
2134
    menuTools := CreateMenuTools();
9174 akron1 2135
 
9187 akron1 2136
    mainMenu := Menu.CreateMain(mainMenuBtn);
2137
    Menu.AddMainItem(mainMenu, "file", menuFile);
2138
    Menu.AddMainItem(mainMenu, "edit", menuEdit);
2139
    Menu.AddMainItem(mainMenu, "search", menuSearch);
2140
    Menu.AddMainItem(mainMenu, "encoding", menuEncoding);
2141
    Menu.AddMainItem(mainMenu, "view", menuView);
9190 akron1 2142
    Menu.AddMainItem(mainMenu, "language", menuLanguage);
9187 akron1 2143
    Menu.AddMainItem(mainMenu, "program", menuProgram);
2144
    Menu.AddMainItem(mainMenu, "tools", menuTools);
2145
 
9174 akron1 2146
    Ini.getSettings(buildScript, runScript, debugScript);
8728 leency 2147
    IF fileName = "" THEN
2148
        text := T.New();
2149
        filePath := "/rd/1"
2150
    ELSE
2151
        text := T.open(fileName, err);
2152
        IF text = NIL THEN
2153
            error("'cedit: error opening file' -E");
9181 akron1 2154
            K.Exit
8728 leency 2155
        ELSE
2156
            U.getPath(fileName, filePath)
2157
        END
2158
    END;
2159
    OD := OpenDlg.Create(draw_window, OpenDlg.topen, filePath, "");
9050 leency 2160
    insert(0, text);
9181 akron1 2161
    Scroll.create(FALSE, canvas.width + 1, scrollWidth, scrollWidth, scrollWidth, hScroll);
2162
    Scroll.create(TRUE, scrollWidth, canvas.height + 1, scrollWidth, scrollWidth, vScroll);
8728 leency 2163
    T.resize(canvas.width, canvas.height);
2164
    T.SetPos(text, 0, 0);
2165
    confirm := FALSE;
2166
    notFound := FALSE;
9175 akron1 2167
    menuFindClicked := FALSE;
2168
    menuActive := FALSE;
8728 leency 2169
    search := FALSE;
9073 leency 2170
    searchOpened := FALSE;
8728 leency 2171
    createSearchForm;
2172
    new_searchText := "";
2173
    searchText := "";
2174
    cs := FALSE;
2175
    whole := FALSE;
2176
    replaced := 0;
9073 leency 2177
    K.SetEventsMask({0, 1, 2, 5, 6, 31});
9174 akron1 2178
    Menu.init(resetTimer);
8728 leency 2179
    draw_window;
9174 akron1 2180
    Timer.create(mainTID);
8728 leency 2181
    WHILE TRUE DO
2182
        CASE K.WaitForEvent() OF
9190 akron1 2183
        |1:	Redraw(resized, width, height, cliWidth, cliHeight)
9073 leency 2184
        |2: KeyDown(K.GetKey())
2185
        |3: BtnClick
2186
        |6: MouseEvent(resized, firstClickX, firstClickY, time)
8728 leency 2187
        |7: receiveIPC
2188
        END
2189
    END
2190
END main;
2191
 
2192
 
2193
BEGIN
2194
    main
2195
END CEdit.