--- a/EditTextView.st	Sat Mar 17 12:38:05 2007 +0100
+++ b/EditTextView.st	Thu Mar 22 17:23:23 2007 +0100
@@ -5250,16 +5250,21 @@
 
     history := device getCopyBufferHistory copy.
     list := history collect:[:entry |
-		entry asString string asCollectionOfLines
-		    detect:[:line| line notEmptyOrNil]
-		    ifNone:['      ']
-	    ].
+                |text shown|
+
+                text := entry asString string asCollectionOfLines.
+                shown := text detect:[:line| line notEmptyOrNil] ifNone:['      '].
+                text size > 1 ifTrue:[
+                    shown := shown,(resources string:' ... [%1 lines]' with:text size).
+                ].
+                shown
+            ].
     box := ListSelectionBox
-		title:'CopyBuffer History'
-		okText:'Paste'
-		abortText:'Cancel'
-		list:list
-		action:[:idx | idx notNil ifTrue:[sel := history at:idx]].
+                title:'CopyBuffer History'
+                okText:'Paste'
+                abortText:'Cancel'
+                list:list
+                action:[:idx | idx notNil ifTrue:[sel := history at:idx]].
     box useIndex:true.
     box show.
     ^ sel.
@@ -7068,5 +7073,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.411 2007-03-12 09:52:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.412 2007-03-22 16:23:23 cg Exp $'
 ! !