--- a/DeviceWorkstation.st	Tue Feb 11 14:39:50 2003 +0100
+++ b/DeviceWorkstation.st	Tue Feb 11 14:40:18 2003 +0100
@@ -6648,6 +6648,15 @@
     aStream nextPut:$)
 ! !
 
+!DeviceWorkstation methodsFor:'queries'!
+
+supportedClipboards
+    "answer a collection of symbols with the supported clipboards..
+     At least clipboard should be supported on any platform"
+
+    ^ #(clipboard)
+! !
+
 !DeviceWorkstation methodsFor:'retrieving pixels'!
 
 getBitsFromId:aDrawableId x:srcx y:srcy width:w height:h into:imageBits
@@ -6761,16 +6770,6 @@
     ^ CopyBufferHistory
 !
 
-getLastCopyBuffer
-    "return the last copyBuffers contents.
-     This is an ST/X internal buffer (i.e. its not visible to alien views)."
-
-    ^ lastCopyBuffer
-
-    "Modified: 11.12.1996 / 12:55:47 / cg"
-    "Created: 11.12.1996 / 13:34:43 / cg"
-!
-
 getSelectionFor:drawableId
     "Retrieve the common per-display selection text.
      For clipBoard mechanisms to work (into ST/X), 
@@ -6844,16 +6843,6 @@
     "Modified: 11.12.1996 / 12:55:53 / cg"
 !
 
-setLastCopyBuffer:something
-    "set the last copyBuffers contents.
-     This is an ST/X internal buffer (i.e. its not visible to alien views)."
-
-    lastCopyBuffer := something.
-
-    "Created: 11.12.1996 / 12:54:32 / cg"
-    "Modified: 11.12.1996 / 12:55:59 / cg"
-!
-
 setSelection:anObject owner:aWindowId
     "set the common per-display object selection.
      This can be used by other Smalltalk(X) applications only.
@@ -6880,21 +6869,20 @@
     |s viewID|
 
     self rememberCopyBuffer.
-    self setLastCopyBuffer:nil.
     self setCopyBuffer:something.
     s := something.
     s isString ifFalse:[
-	s := s asStringWithCRsFrom:1 to:(s size) compressTabs:false withCR:false
+        s := s asStringWithCRsFrom:1 to:(s size) compressTabs:false withCR:false
     ].
 
     viewID := aView id.
     viewID notNil ifTrue:[ "/ if the view is not already closed
-	"/ for now - should add support to pass emphasis information too
-	s := s string.
-
-	(self setTextSelection:s owner:viewID) ifFalse:[
-	    'DeviceWorkstation [warning]: could not copy selection to clipBoard' errorPrintCR.
-	]
+        "/ for now - should add support to pass emphasis information too
+        s := s string.
+
+        (self setTextSelection:s owner:viewID) ifFalse:[
+            'DeviceWorkstation [warning]: could not copy selection to clipBoard' errorPrintCR.
+        ]
     ]
 ! !
 
@@ -7609,7 +7597,7 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.433 2002-11-21 19:43:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.434 2003-02-11 13:40:18 stefan Exp $'
 ! !
 
 DeviceWorkstation initialize!