--- a/TwoColumnTextView.st	Wed Dec 03 16:14:51 1997 +0100
+++ b/TwoColumnTextView.st	Wed Dec 03 17:20:36 1997 +0100
@@ -224,6 +224,26 @@
 
 !TwoColumnTextView methodsFor:'accessing'!
 
+numberOfChanges
+    |start numberOfChanges|
+
+    textViews first contents size == textViews last contents size ifTrue: [^0].
+    start := 1.
+    numberOfChanges := 0.
+    textViews do:[:v||list max lnNr|
+        list := v list.
+        max  := list size.
+        lnNr := start.
+        [(lnNr < max)] whileTrue: [
+            (lnNr < max and: [ (list at: lnNr - 1 ifAbsent: [list at:1]) isText not and: [(list at:lnNr) isText]])
+                ifTrue: [numberOfChanges := numberOfChanges + 1].
+            lnNr := lnNr + 1
+        ].
+    ].
+
+    ^numberOfChanges
+!
+
 text1:t1 text2:t2
     (textViews at:1) list:t1 asText.
     (textViews at:2) list:t2 asText.
@@ -311,4 +331,4 @@
 !TwoColumnTextView class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libwidg2/TwoColumnTextView.st,v 1.15 1996-11-06 11:50:14 ca Exp $'! !
+^ '$Header: /cvs/stx/stx/libwidg2/TwoColumnTextView.st,v 1.16 1997-12-03 16:20:36 tz Exp $'! !