# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1425379086 -3600
# Node ID 03d7b81524545d1bab07bfc07749d8e561b58166
# Parent  1f33fb10af3e06a3028542c4a2bef3e523f5fb22
class: DisplaySurface
comment/format in: #withVisibleCursor:do:

diff -r 1f33fb10af3e -r 03d7b8152454 DisplaySurface.st
--- a/DisplaySurface.st	Tue Mar 03 11:35:01 2015 +0100
+++ b/DisplaySurface.st	Tue Mar 03 11:38:06 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
@@ -553,7 +551,9 @@
 withVisibleCursor:aCursor do:aBlock
     "evaluate aBlock, showing a aCursor.
      Return the value of aBlock.
-     Ensure, that the cursor is visible for the user for a minimal amount of time."
+     Ensure, that the cursor is visible for the user for a minimal amount of time
+     (even if the computation would be too quick for a cursor to be visible,
+      show the execute cursor for some time as a feedback)."
 
     |ret|
 
@@ -2600,11 +2600,11 @@
 !DisplaySurface class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.169 2015-03-02 10:21:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.170 2015-03-03 10:38:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.169 2015-03-02 10:21:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DisplaySurface.st,v 1.170 2015-03-03 10:38:06 cg Exp $'
 ! !