--- a/WinWorkstation.st	Mon Sep 20 11:41:23 2004 +0200
+++ b/WinWorkstation.st	Tue Sep 21 12:23:36 2004 +0200
@@ -15155,19 +15155,19 @@
     self primitiveFailed.
 !
 
-setSelection:something owner:drawableId
+setClipboardObject:something owner:drawableId
     something isString ifTrue:[
-	ClipBoardObject := nil.
-	^ self setClipboardData:something
+        ClipBoardObject := nil.
+        ^ self setClipboardData:something
     ] ifFalse:[
-	ClipBoardObject := something.
+        ClipBoardObject := something.
     ]
 
     "Created: / 13.7.1999 / 13:30:37 / cg"
     "Modified: / 30.1.2000 / 11:59:41 / cg"
 !
 
-setTextSelection:something owner:drawableId
+setClipboardText:something owner:drawableId
     ClipBoardObject := nil.
     ^ self setClipboardData:something
 
@@ -16365,7 +16365,7 @@
 !WinWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.289 2004-09-17 12:56:51 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WinWorkstation.st,v 1.290 2004-09-21 10:23:06 ca Exp $'
 ! !
 
 WinWorkstation initialize!