Subversion Repositories Kolibri OS

Rev

Rev 9194 | Rev 9208 | Go to most recent revision | Show entire file | Regard 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;