--- a/DisplaySurface.st	Wed Jul 24 20:48:36 2002 +0200
+++ b/DisplaySurface.st	Thu Jul 25 12:11:14 2002 +0200
@@ -398,8 +398,8 @@
     ].
 
     savedCursor := cursor.
-    self cursor:aCursor.
-    ^ aBlock ensure:[self cursor:savedCursor]
+    self cursor:aCursor now:true.
+    ^ aBlock ensure:[self cursor:savedCursor now:true]
 
     "Modified: 27.2.1997 / 17:20:43 / cg"
 !
@@ -529,14 +529,8 @@
 getKeyboardFocus
     "tell the Display to assign keyboard focus to the receiver"
 
-    drawableId notNil ifTrue:[
-        self shown ifTrue:[
-            device setInputFocusTo:drawableId.
-"/        ] ifFalse:[
-"/            'DisplaySurface [warning]: getKeyboardFocus: not shown' errorPrintCR.
-        ]
-"/    ] ifFalse:[
-"/        'DisplaySurface [warning]: getKeyboardFocus: no drawable' errorPrintCR.
+    self shown ifTrue:[
+        device setInputFocusTo:drawableId.
     ].
 
     "Modified: / 15.3.1999 / 08:25:10 / cg"
@@ -2113,6 +2107,14 @@
     ^ false
 
     "Created: 4.3.1996 / 14:17:22 / cg"
+!
+
+shown
+    "return true if at least a part of myself is currently visible
+     (I am mapped an not completely covered). 
+     Assumed that I am always visible when realized."
+
+    ^ realized
 ! !
 
 !DisplaySurface methodsFor:'queries-contents'!
@@ -2323,6 +2325,6 @@
 !DisplaySurface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.90 2002-07-09 12:02:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.91 2002-07-25 10:11:14 stefan Exp $'
 ! !
 DisplaySurface initialize!