--- 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!