# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1424792744 -3600
# Node ID 4f1842a7dbf30e95f07ad438034e0a82b7d23eb7
# Parent  a1d3aeba44c8ff702987ea866a832fadb5d8a067
class: View
moved to superview:
        #assignKeyboardFocusTo:
        #assignKeyboardFocusToFirstInputField

diff -r a1d3aeba44c8 -r 4f1842a7dbf3 View.st
--- a/View.st	Tue Feb 24 16:45:26 2015 +0100
+++ b/View.st	Tue Feb 24 16:45:44 2015 +0100
@@ -738,51 +738,6 @@
 
 !View methodsFor:'initialization & release'!
 
-assignKeyboardFocusTo:aConsumer
-    |wg|
-
-    wg := self windowGroup .
-    self graphicsDevice isWindowsPlatform ifTrue:[
-        wg focusView:aConsumer byTab:true.
-    ] ifFalse:[
-        aConsumer requestFocus.
-        "/ consumer requestFocus. - could be denied; but we force it here
-        wg focusView:aConsumer byTab:false.
-    ].
-!
-
-assignKeyboardFocusToFirstInputField
-    "assign the keyboard focus to the first first keyboardConsumer.
-     (in older versions, this used to favour inputfields over editFields;
-      see (or redefine) preferFirstInputFieldWhenAssigningInitialFocus)"
-
-    |firstInputField firstConsumer firstCursorConsumer consumer|
-
-    self allSubViewsDo:[:v |
-        v shown ifTrue:[
-            (firstInputField isNil and:[v isInputField]) ifTrue:[
-                firstInputField := v
-            ].
-            (firstConsumer isNil and:[v isKeyboardConsumer]) ifTrue:[
-                firstConsumer := v
-            ].
-            (firstCursorConsumer isNil and:[v isCursorKeyConsumer]) ifTrue:[
-                firstCursorConsumer := v
-            ].
-        ].
-    ].
-    (firstInputField notNil and:[self preferFirstInputFieldWhenAssigningInitialFocus]) ifTrue:[
-        consumer := firstInputField.
-    ].
-    consumer := (consumer ? firstConsumer ? firstCursorConsumer).
-    "/ Transcript showCR:consumer.
-    consumer notNil ifTrue:[
-        self assignKeyboardFocusTo:consumer
-    ].
-
-    "Modified: / 29-08-2006 / 14:32:30 / cg"
-!
-
 initialize
     super initialize.
 
@@ -826,10 +781,10 @@
 !View class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.88 2015-01-12 10:29:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.89 2015-02-24 15:45:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.88 2015-01-12 10:29:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.89 2015-02-24 15:45:44 cg Exp $'
 ! !