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