Rev 9194 | Rev 9208 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 9194 | Rev 9197 | ||
---|---|---|---|
Line 1774... | Line 1774... | ||
1774 | PROCEDURE isWordChar (c: WCHAR): BOOLEAN; |
1774 | PROCEDURE isWordChar (c: WCHAR): BOOLEAN; |
1775 | RETURN U.isLetter(c) OR U.isDigit(c) OR (c = "_") |
1775 | RETURN U.isLetter(c) OR U.isDigit(c) OR (c = "_") |
1776 | END isWordChar; |
1776 | END isWordChar; |
Line -... | Line 1777... | ||
- | 1777 | ||
- | 1778 | ||
- | 1779 | PROCEDURE getSelectedText* (text: tText; VAR s: ARRAY OF WCHAR); |
|
- | 1780 | VAR |
|
- | 1781 | n: INTEGER; |
|
- | 1782 | selBeg, selEnd: tPoint; |
|
- | 1783 | BEGIN |
|
- | 1784 | s[0] := 0X; |
|
- | 1785 | IF selected(text) & (text.cursor.Y = text.select.Y) THEN |
|
- | 1786 | getSelect(text, selBeg, selEnd); |
|
- | 1787 | n := getString(text.curLine, selBeg.X, selEnd.X - selBeg.X, s) |
|
- | 1788 | END |
|
- | 1789 | END getSelectedText; |
|
1777 | 1790 | ||
1778 | 1791 | ||
1779 | PROCEDURE wordSel* (text: tText); |
1792 | PROCEDURE wordSel* (text: tText); |
1780 | VAR |
1793 | VAR |
1781 | n, i, x1, x2: INTEGER; |
1794 | n, i, x1, x2: INTEGER; |