equal
deleted
inserted
replaced
818 self modified:aBoolean |
818 self modified:aBoolean |
819 |
819 |
820 "Created: / 5.2.2000 / 17:07:59 / cg" |
820 "Created: / 5.2.2000 / 17:07:59 / cg" |
821 ! ! |
821 ! ! |
822 |
822 |
|
823 !EditTextView methodsFor:'accessing'! |
|
824 |
|
825 hasSelectionOrTextInCursorLine |
|
826 ^ (self selectionOrTextOfCursorLine:false) notNil |
|
827 ! |
|
828 |
|
829 selectionOrTextOfCursorLine:doSelect |
|
830 |sel lNr line| |
|
831 |
|
832 sel := self selectionAsString. |
|
833 sel notNil ifTrue:[^ sel]. |
|
834 |
|
835 lNr := self cursorLine. |
|
836 line := self listAt:lNr. |
|
837 line notEmptyOrNil ifTrue:[ |
|
838 doSelect ifTrue:[ |
|
839 self selectLine:lNr. |
|
840 ]. |
|
841 ^ line |
|
842 ]. |
|
843 |
|
844 ^ nil |
|
845 ! ! |
|
846 |
823 !EditTextView methodsFor:'accessing-behavior'! |
847 !EditTextView methodsFor:'accessing-behavior'! |
824 |
848 |
825 acceptAction |
849 acceptAction |
826 "return the action to be performed on accept (or nil)" |
850 "return the action to be performed on accept (or nil)" |
827 |
851 |
1240 super setContents:something. |
1264 super setContents:something. |
1241 typeOfSelection := selType. |
1265 typeOfSelection := selType. |
1242 |
1266 |
1243 "Created: / 31.3.1998 / 23:35:06 / cg" |
1267 "Created: / 31.3.1998 / 23:35:06 / cg" |
1244 ! ! |
1268 ! ! |
1245 |
|
1246 |
1269 |
1247 !EditTextView methodsFor:'accessing-look'! |
1270 !EditTextView methodsFor:'accessing-look'! |
1248 |
1271 |
1249 cursorForegroundColor:color1 backgroundColor:color2 |
1272 cursorForegroundColor:color1 backgroundColor:color2 |
1250 "set both cursor foreground and cursor background colors" |
1273 "set both cursor foreground and cursor background colors" |
8012 ! ! |
8035 ! ! |
8013 |
8036 |
8014 !EditTextView class methodsFor:'documentation'! |
8037 !EditTextView class methodsFor:'documentation'! |
8015 |
8038 |
8016 version |
8039 version |
8017 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.547 2013-04-26 13:57:13 cg Exp $' |
8040 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.548 2013-04-30 18:19:17 cg Exp $' |
8018 ! |
8041 ! |
8019 |
8042 |
8020 version_CVS |
8043 version_CVS |
8021 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.547 2013-04-26 13:57:13 cg Exp $' |
8044 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.548 2013-04-30 18:19:17 cg Exp $' |
8022 ! ! |
8045 ! ! |
8023 |
8046 |