--- a/TextView.st	Tue Sep 21 12:54:00 2004 +0200
+++ b/TextView.st	Tue Sep 21 22:11:02 2004 +0200
@@ -1681,11 +1681,11 @@
 
     text := self selection.
     text notNil ifTrue:[
-	self unselect.
-
-	"/ forget any emphasis ...
-	text := text collect:[:l | l isNil ifTrue:[l] ifFalse:[l string]].
-	self setTextSelection:text.
+        self unselect.
+
+        "/ forget any emphasis ...
+        text := text collect:[:l | l isNil ifTrue:[l] ifFalse:[l string]].
+        self setClipboardText:text.
     ]
 
     "Modified: 17.5.1996 / 08:57:54 / cg"
@@ -3836,7 +3836,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.247 2004-09-17 21:49:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.248 2004-09-21 20:11:02 stefan Exp $'
 ! !
 
 TextView initialize!