--- a/HostGraphicsDevice.st	Fri Oct 08 17:23:37 1999 +0200
+++ b/HostGraphicsDevice.st	Sat Oct 09 15:19:39 1999 +0200
@@ -55,6 +55,30 @@
 
 ! !
 
+!HostGraphicsDevice methodsFor:'Compatibility - Squeak'!
+
+deferUpdates: aBoolean
+    "Set the deferUpdates flag in the virtual machine. 
+     When this flag is true, BitBlt operations on the Display are not 
+     automatically propagated to the screen. 
+     If this underlying platform does not support deferred updates, 
+     this primitive will fail. 
+     Answer the receiver if the primitive succeeds, nil if it fails."
+
+"/    <primitive: 126>
+    ^ nil  "answer nil if primitive fails"
+
+!
+
+forceDisplayUpdate
+    "On platforms that buffer screen updates, 
+     force the screen to be updated immediately. 
+     On other platforms, or if the primitive is not implemented, do nothing."
+
+"/     <primitive: 231>
+    "do nothing if primitive fails"
+! !
+
 !HostGraphicsDevice methodsFor:'accessing'!
 
 deviceColors
@@ -200,5 +224,5 @@
 !HostGraphicsDevice class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.13 1999-08-18 18:22:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/HostGraphicsDevice.st,v 1.14 1999-10-09 13:19:39 cg Exp $'
 ! !