--- a/DeviceWorkstation.st	Sat Jun 05 22:05:13 1999 +0200
+++ b/DeviceWorkstation.st	Sat Jun 05 22:09:22 1999 +0200
@@ -6086,6 +6086,13 @@
 
 !DeviceWorkstation methodsFor:'window stuff'!
 
+activateWindow:aWindowId
+    "make a window active.
+     Noop here"
+
+    "Created: / 5.6.1999 / 22:07:08 / cg"
+!
+
 clearRectangleX:x y:y width:width height:height in:aWindowId
     "clear a rectangular area of a window to its view background"
 
@@ -6408,6 +6415,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.300 1999-06-01 18:52:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.301 1999-06-05 20:09:22 cg Exp $'
 ! !
 DeviceWorkstation initialize!