equal
deleted
inserted
replaced
1962 changeFont |
1962 changeFont |
1963 "pop up a fontPanel to change font" |
1963 "pop up a fontPanel to change font" |
1964 |
1964 |
1965 |newFont| |
1965 |newFont| |
1966 |
1966 |
1967 newFont := FontPanel fontFromUserInitial:font. |
1967 self withWaitCursorDo:[ |
|
1968 newFont := FontPanel fontFromUserInitial:font. |
|
1969 ]. |
1968 newFont notNil ifTrue:[ |
1970 newFont notNil ifTrue:[ |
1969 self font:newFont. |
1971 self font:newFont. |
1970 ] |
1972 ] |
1971 |
1973 |
1972 "Modified: 27.2.1996 / 00:53:51 / cg" |
1974 "Modified: 27.2.1996 / 00:53:51 / cg" |
1973 ! |
1975 ! |
1974 |
1976 |
4497 and:[ selectionStartLine == selectionEndLine ] |
4499 and:[ selectionStartLine == selectionEndLine ] |
4498 |
4500 |
4499 "Modified: / 04-07-2006 / 18:42:59 / fm" |
4501 "Modified: / 04-07-2006 / 18:42:59 / fm" |
4500 ! |
4502 ! |
4501 |
4503 |
|
4504 hasSingleFullLineSelected |
|
4505 ^ (selectionStartLine notNil |
|
4506 and:[selectionEndLine notNil |
|
4507 and:[selectionEndLine == (selectionStartLine+1) |
|
4508 and:[selectionStartCol == 1 |
|
4509 and:[selectionEndCol == 0 |
|
4510 ]]]]) |
|
4511 ! |
|
4512 |
4502 isInSelection:line col:aColNr |
4513 isInSelection:line col:aColNr |
4503 "returns true, if the line, and column is in the selection |
4514 "returns true, if the line, and column is in the selection |
4504 " |
4515 " |
4505 selectionStartLine isNil ifTrue:[^ false]. |
4516 selectionStartLine isNil ifTrue:[^ false]. |
4506 selectionEndLine isNil ifTrue:[^ false]. |
4517 selectionEndLine isNil ifTrue:[^ false]. |
4871 ! ! |
4882 ! ! |
4872 |
4883 |
4873 !TextView class methodsFor:'documentation'! |
4884 !TextView class methodsFor:'documentation'! |
4874 |
4885 |
4875 version |
4886 version |
4876 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.370 2014-04-07 16:01:13 cg Exp $' |
4887 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.372 2014-04-27 10:46:45 cg Exp $' |
4877 ! |
4888 ! |
4878 |
4889 |
4879 version_CVS |
4890 version_CVS |
4880 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.370 2014-04-07 16:01:13 cg Exp $' |
4891 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.372 2014-04-27 10:46:45 cg Exp $' |
4881 ! |
4892 ! |
4882 |
4893 |
4883 version_HG |
4894 version_HG |
4884 |
4895 |
4885 ^ '$Changeset: <not expanded> $' |
4896 ^ '$Changeset: <not expanded> $' |