equal
deleted
inserted
replaced
1892 "Modified: 6.9.1995 / 13:57:53 / claus" |
1892 "Modified: 6.9.1995 / 13:57:53 / claus" |
1893 ! ! |
1893 ! ! |
1894 |
1894 |
1895 !EditField methodsFor:'selections'! |
1895 !EditField methodsFor:'selections'! |
1896 |
1896 |
|
1897 selectAll |
|
1898 "select the whole text. |
|
1899 redefined to send super selectFrom... since we dont want the |
|
1900 cursor to be moved in this case." |
|
1901 |
|
1902 |len| |
|
1903 |
|
1904 list isNil ifTrue:[ |
|
1905 self unselect |
|
1906 ] ifFalse:[ |
|
1907 len := (self listAt:1) size. |
|
1908 len ~~ 0 ifTrue:[ |
|
1909 super selectFromLine:1 col:1 toLine:1 col:len. |
|
1910 ]. |
|
1911 typeOfSelection := nil |
|
1912 ] |
|
1913 |
|
1914 "Modified: 28.2.1997 / 19:16:21 / cg" |
|
1915 ! |
|
1916 |
1897 validateNewSelection |
1917 validateNewSelection |
1898 "make certain that only one line is ever selected" |
1918 "make certain that only one line is ever selected" |
1899 |
1919 |
1900 selectionEndLine > 1 ifTrue:[ |
1920 selectionEndLine > 1 ifTrue:[ |
1901 selectionEndLine := 2. selectionEndCol := 0 |
1921 selectionEndLine := 2. selectionEndCol := 0 |
1903 ! ! |
1923 ! ! |
1904 |
1924 |
1905 !EditField class methodsFor:'documentation'! |
1925 !EditField class methodsFor:'documentation'! |
1906 |
1926 |
1907 version |
1927 version |
1908 ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.83 1997-02-25 23:15:33 cg Exp $' |
1928 ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.84 1997-02-28 18:47:08 cg Exp $' |
1909 ! ! |
1929 ! ! |