--- a/WindowGroup.st	Fri May 18 00:40:34 2001 +0200
+++ b/WindowGroup.st	Fri May 18 00:44:28 2001 +0200
@@ -451,6 +451,8 @@
 device
     "return the device, we receive our events from"
 
+    <resource:#obsolete>
+
     self obsoleteMethodWarning:'use #graphicsDevice'.
     ^ self graphicsDevice
 
@@ -2583,6 +2585,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.224 2001-01-15 17:32:40 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.225 2001-05-17 22:44:28 stefan Exp $'
 ! !
 WindowGroup initialize!