--- a/DisplaySurface.st	Thu Oct 26 02:14:37 2000 +0200
+++ b/DisplaySurface.st	Fri Oct 27 15:14:29 2000 +0200
@@ -530,10 +530,14 @@
     "tell the Display to assign keyboard focus to the receiver"
 
     drawableId notNil ifTrue:[
-	self shown ifTrue:[
+        self shown ifTrue:[
 "/            self requestFocus.
-	    device setInputFocusTo:drawableId.
-	]
+            device setInputFocusTo:drawableId.
+        ] ifFalse:[
+            'DisplaySurface [warning]: getKeyboardFocus: not shown' errorPrintCR.
+        ]
+    ] ifFalse:[
+        'DisplaySurface [warning]: getKeyboardFocus: no drawable' errorPrintCR.
     ].
 
     "Modified: / 15.3.1999 / 08:25:10 / cg"
@@ -2308,6 +2312,6 @@
 !DisplaySurface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.81 2000-09-06 13:47:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.82 2000-10-27 13:14:29 ca Exp $'
 ! !
 DisplaySurface initialize!