added selectionStartIndex and selectionStopIndex (for ST80-controller compatibility)
authorClaus Gittinger <cg@exept.de>
Fri, 19 Jun 1998 01:01:18 +0200
changeset 1584 9f3875dc341e
parent 1583 147916baf6dc
child 1585 9bf6cf249376
added selectionStartIndex and selectionStopIndex (for ST80-controller compatibility)
TextView.st
--- a/TextView.st	Thu Jun 18 21:25:17 1998 +0200
+++ b/TextView.st	Fri Jun 19 01:01:18 1998 +0200
@@ -406,6 +406,24 @@
     "Modified: 5.3.1997 / 15:37:37 / cg"
 ! !
 
+!TextView methodsFor:'ST-80 compatibility'!
+
+selectionStartIndex
+    "ST-80 compatibility: return the selections start character position."
+
+    ^ self characterPositionOfSelection
+
+    "Created: / 19.6.1998 / 00:21:44 / cg"
+!
+
+selectionStopIndex
+    "ST-80 compatibility: return the selections start character position."
+
+    ^ self characterPositionOfSelectionEnd
+
+    "Created: / 19.6.1998 / 00:22:08 / cg"
+! !
+
 !TextView methodsFor:'accessing'!
 
 characterPositionOfSelection
@@ -2849,5 +2867,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.119 1998-05-21 13:46:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.120 1998-06-18 23:01:18 cg Exp $'
 ! !