--- a/EditTextView.st	Tue Oct 01 17:00:26 2002 +0200
+++ b/EditTextView.st	Tue Oct 01 17:02:16 2002 +0200
@@ -4577,7 +4577,7 @@
     |v p m buttonExtent genButton insertCharacter|
 
     insertCharacter := [:char | (WindowGroup scheduledWindowGroups
-                                    select:[:g | g device == self device])
+                                    select:[:g | g graphicsDevice == self device])
                                         doWithExit:[:g :exit | |v|
                                             (v := g focusView) notNil ifTrue:[
                                                 v isKeyboardConsumer ifTrue:[
@@ -5337,5 +5337,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.283 2002-10-01 15:00:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.284 2002-10-01 15:02:16 cg Exp $'
 ! !