--- a/GraphicsDevice.st	Fri Dec 07 17:10:53 2001 +0100
+++ b/GraphicsDevice.st	Fri Dec 07 17:16:00 2001 +0100
@@ -120,8 +120,23 @@
 
 ! !
 
+!GraphicsDevice methodsFor:'misc'!
+
+roundTripTime
+    "answer the round trip time in milliseconds.
+     May be used to detect slow Device connections.
+     Subclasses redefine this. Assume a fast Diplay connection
+     and answer 0 here"
+
+    ^ 0
+
+    "
+     Screen current roundTripTime
+    "
+! !
+
 !GraphicsDevice class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsDevice.st,v 1.8 2001-09-12 17:20:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsDevice.st,v 1.9 2001-12-07 16:16:00 stefan Exp $'
 ! !