--- a/DeviceWorkstation.st	Thu Aug 15 17:48:57 1996 +0200
+++ b/DeviceWorkstation.st	Thu Aug 15 18:02:56 1996 +0200
@@ -608,6 +608,10 @@
     "
 !
 
+scrollsAsynchronous
+    ^ false
+!
+
 translatePoint:aPoint from:windowId1 to:windowId2
     "given a point in window1 (defined by its id), return the coordinate of
      aPoint in window2 (defined by its id).
@@ -3981,11 +3985,18 @@
 
     "should this come from a configurable variable ?"
 
+    "/ the next statement will vanish ....
     (untranslatedKey == #Control
     or:[untranslatedKey == #'Control_L'   
     or:[untranslatedKey == #'Control_R']]) ifTrue:[
 	^ #Ctrl
     ].
+
+    (untranslatedKey == #Ctrl
+    or:[untranslatedKey == #'Ctrl_L' 
+    or:[untranslatedKey == #'Ctrl_R']]) ifTrue:[
+	^ #Ctrl
+    ].
     (untranslatedKey == #'Shift'   
     or:[untranslatedKey == #'Shift_L'   
     or:[untranslatedKey == #'Shift_R']]) ifTrue:[
@@ -4133,7 +4144,8 @@
 !
 
 sync
-    "for ST-80 compatibility"
+    "send all buffered drawing to the display.
+     OBSOLETE: please use #flush for ST-80 compatibility"
 
     self flush
 !
@@ -4249,6 +4261,22 @@
     ^ self subclassResponsibility
 ! !
 
+!DeviceWorkstation methodsFor:'selections'!
+
+getTextSelectionFor:aDrawableId
+    "for clibBoard mechanisms to work (into st/x), this must be redefined
+     in a concrete subclass"
+
+    ^ nil
+!
+
+setTextSelection:aString owner:aWindowId
+    "for clibBoard mechanisms to work (out of st/x), this must be redefined
+     in a concrete subclass"
+
+    ^ nil
+! !
+
 !DeviceWorkstation methodsFor:'view registration'!
 
 addKnownView:aView withId:aWindowID
@@ -4630,6 +4658,6 @@
 !DeviceWorkstation  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.129 1996-08-02 20:39:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.130 1996-08-15 16:02:56 cg Exp $'
 ! !
 DeviceWorkstation initialize!