--- a/DeviceWorkstation.st	Sat Jun 28 13:14:37 1997 +0200
+++ b/DeviceWorkstation.st	Sat Jun 28 13:47:03 1997 +0200
@@ -4965,6 +4965,39 @@
 
 !DeviceWorkstation methodsFor:'selections'!
 
+clipBoardEncoding
+    "return the assumed default clibBoards encoding
+     if a raw string (i.e. without encoding information) is pasted.
+     Useful on XWindows, if a SJIS string is pasted from a netscape
+     or other program."
+
+    ^ clipBoardEncoding
+
+    "
+     Screen current clipBoardEncoding
+    "
+
+    "Modified: 28.6.1997 / 13:14:28 / cg"
+    "Created: 28.6.1997 / 13:46:02 / cg"
+!
+
+clipBoardEncoding:aSymbol
+    "set the assumed default clibBoards encoding
+     if a raw string (i.e. without encoding information) is pasted.
+     Useful on XWindows, if a SJIS string is pasted from a netscape
+     or other program."
+
+    clipBoardEncoding := aSymbol
+
+    "
+     Screen current clipBoardEncoding:#SJIS
+     Screen current clipBoardEncoding:#EUC
+     Screen current clipBoardEncoding:nil
+    "
+
+    "Created: 28.6.1997 / 13:46:12 / cg"
+!
+
 getCopyBuffer
     "return the copyBuffers contents. 
      This is an ST/X internal buffer (i.e. its not visible to alien views)."
@@ -5611,6 +5644,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.230 1997-06-28 11:14:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.231 1997-06-28 11:47:03 cg Exp $'
 ! !
 DeviceWorkstation initialize!