--- a/DeviceWorkstation.st	Wed Jan 29 13:34:56 1997 +0100
+++ b/DeviceWorkstation.st	Wed Jan 29 14:17:45 1997 +0100
@@ -2646,20 +2646,20 @@
     ]
 !
 
-graphicExposeX:x y:y width:w height:h view:aView
+graphicsExposeX:x y:y width:w height:h final:final view:aView
     "forward a graphic expose for some view"
 
     |sensor|
 
     (sensor := aView sensor) notNil ifTrue:[
-	sensor graphicExposeX:x y:y width:w height:h view:aView
+	sensor graphicsExposeX:x y:y width:w height:h final:final view:aView
     ] ifFalse:[
 	"
 	 if there is no sensor ...
 	"
 	WindowEvent
-	    sendEvent:#graphicExposeX:y:width:height:
-	    arguments:(Array with:x with:y with:w with:h)
+	    sendEvent:#graphicsExposeX:y:width:height:final:
+	    arguments:(Array with:x with:y with:w with:h with:final)
 	    view:aView
     ]
 !
@@ -5060,6 +5060,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.171 1997-01-27 18:58:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.172 1997-01-29 13:17:25 cg Exp $'
 ! !
 DeviceWorkstation initialize!