head	1.3;
access;
symbols
	RELEASE_4_3_0:1.2
	RELEASE_4_2_0:1.2
	RELEASE_4_1_1:1.2
	RELEASE_4_1_0:1.2
	RELEASE_3_5_0:1.2
	RELEASE_4_0_0:1.2
	RELEASE_3_4_0:1.2
	RELEASE_3_3_0:1.2
	RELEASE_3_2_0:1.2
	RELEASE_3_1_0:1.2
	RELEASE_2_2_8:1.2
	RELEASE_3_0_0:1.2
	RELEASE_2_2_7:1.2
	RELEASE_2_2_6:1.2
	RELEASE_2_2_5:1.1
	RELEASE_2_2_2:1.1;
locks; strict;
comment	@# @;


1.3
date	2001.07.21.23.41.40;	author jdp;	state dead;
branches;
next	1.2;

1.2
date	98.01.17.21.12.14;	author jdp;	state Exp;
branches;
next	1.1;

1.1
date	97.05.09.20.45.02;	author jdp;	state Exp;
branches;
next	;


desc
@@


1.3
log
@Remove the old modula-3 and modula-3-lib ports.  They are superseded
by the pm3-* family of ports, which build a newer and better-maintained
version of Modula-3.  I have converted all ports which depended on
modula-3 to use pm3-* instead.

PR:		ports/27664 is rendered irrelevant
@
text
@This fixes a bug which can result in a value out of range error if the
cursor is at the beginning of a TextPort and the DeleteToStartOfLine
procedure is invoked.

This patch has been sent to SRC.

--- m3/vbtkit/src/etext/TextPortClass.m3.orig	Mon Jan 30 14:34:34 1995
+++ m3/vbtkit/src/etext/TextPortClass.m3	Thu May  8 17:20:58 1997
@@@@ -271,8 +271,12 @@@@
     left := MTextUnit.StartOfLine (v.vtext.mtext, here);
   BEGIN
     IF here = left THEN
-      (* We're already at the start of line; delete one char. *)
-      RETURN v.replace (here - 1, here, "")
+      (* Already at the start of line; delete preceding newline if any. *)
+      IF here > 0 THEN
+        RETURN v.replace (here - 1, here, "")
+      ELSE
+        RETURN NotFound
+      END
     ELSE
       RETURN v.replace (left, here, "")
     END
@


1.2
log
@Fix all the paths in context diff headers and remove the Index
lines, since the WORTHLESS, BROKEN new version of patch ignores
them.
@
text
@@


1.1
log
@Add a fix for a graphics bug.
@
text
@d7 2
a8 3
Index: m3/vbtkit/src/etext/TextPortClass.m3
--- TextPortClass.m3-	Mon Jan 30 14:34:34 1995
+++ TextPortClass.m3	Thu May  8 17:20:58 1997
@
