--- a/GraphicsDevice.st	Tue Sep 11 22:49:36 2001 +0200
+++ b/GraphicsDevice.st	Wed Sep 12 19:20:39 2001 +0200
@@ -66,11 +66,11 @@
      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
-
-
+    (eventListeners includesIdentical:aListener) ifFalse:[
+        eventListeners add:aListener
+    ].
 !
 
 bePDA
@@ -123,5 +123,5 @@
 !GraphicsDevice class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsDevice.st,v 1.7 2001-06-22 16:26:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsDevice.st,v 1.8 2001-09-12 17:20:20 cg Exp $'
 ! !

--- a/WindowSensor.st	Tue Sep 11 22:49:36 2001 +0200
+++ b/WindowSensor.st	Wed Sep 12 19:20:39 2001 +0200
@@ -470,8 +470,7 @@
     EventListeners isNil ifTrue:[
         EventListeners := OrderedCollection new:2
     ].
-
-    (EventListeners identityIndexOf:aListener) == 0 ifTrue:[
+    (EventListeners includesIdentical:aListener) ifFalse:[
         EventListeners add:aListener
     ]
 !
@@ -669,9 +668,9 @@
     eventListeners isNil ifTrue:[
         eventListeners := OrderedCollection new:2
     ].
-    eventListeners add:aListener
-
-
+    (eventListeners includesIdentical:aListener) ifFalse:[
+        eventListeners add:aListener
+    ]
 !
 
 compressMotionEvents:aBoolean
@@ -3104,6 +3103,6 @@
 !WindowSensor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.195 2001-07-25 08:45:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.196 2001-09-12 17:20:39 cg Exp $'
 ! !
 WindowSensor initialize!