--- a/GraphicsDevice.st	Thu Jul 06 20:38:43 2000 +0200
+++ b/GraphicsDevice.st	Fri Jul 07 11:41:35 2000 +0200
@@ -1,6 +1,6 @@
 "
 COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -14,7 +14,7 @@
 "{ Package: 'stx:libview' }"
 
 Object subclass:#GraphicsDevice
-	instanceVariableNames:'displayId eventListeners'
+	instanceVariableNames:'displayId screen eventListeners'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Graphics'
@@ -25,7 +25,7 @@
 copyright
 "
 COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -46,12 +46,13 @@
 
     [instance variables:]
       displayId       <Handle>          the device handle
+      screen          any               another some device specific id
 
     [see also:]
-        DeviceWorkstation XWorkstation
+	DeviceWorkstation XWorkstation
 
     [author:]
-        Claus Gittinger
+	Claus Gittinger
 "
 
 ! !
@@ -63,7 +64,7 @@
      This one gets a chance to intercept all events for this device"
 
     eventListeners isNil ifTrue:[
-        eventListeners := OrderedCollection new:2
+	eventListeners := OrderedCollection new:2
     ].
     eventListeners add:aListener
 
@@ -74,7 +75,7 @@
     "remove a local eventListener (with new protocol - #processEvent:)"
 
     eventListeners notNil ifTrue:[
-        eventListeners removeIdentical:aListener ifAbsent:nil
+	eventListeners removeIdentical:aListener ifAbsent:nil
     ].
 
 
@@ -93,10 +94,10 @@
 
     "/ local listeners ...
     eventListeners notNil ifTrue:[
-        eventListeners do:[:aListener |
-            anyListenerReturnedTrue := anyListenerReturnedTrue |
-                                       (aListener processEvent:anEvent)
-        ]
+	eventListeners do:[:aListener |
+	    anyListenerReturnedTrue := anyListenerReturnedTrue |
+				       (aListener processEvent:anEvent)
+	]
     ].
 
     ^ anyListenerReturnedTrue.
@@ -106,5 +107,5 @@
 !GraphicsDevice class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsDevice.st,v 1.4 2000-05-17 13:59:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsDevice.st,v 1.5 2000-07-07 09:41:35 cg Exp $'
 ! !