Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#UI_ENHANCEMENT by exept
authorClaus Gittinger <cg@exept.de>
Sun, 11 Aug 2019 11:54:20 +0200
changeset 8764 04fa16d467f2
parent 8763 6bb85bdf4955
child 8765 03800e8218b9
#UI_ENHANCEMENT by exept class: SimpleView changed: #flash:withColor:
SimpleView.st file | annotate | diff | comparison | revisions 
--- a/SimpleView.st	Sat Aug 10 09:27:52 2019 +0200
+++ b/SimpleView.st	Sun Aug 11 11:54:20 2019 +0200
@@ -10741,7 +10741,7 @@
             gc displayString:messageOrNil centeredAt:(self center).
         ].
         "/ wait longer, if there is text, to allow user to read it
-        Delay waitForSeconds:0.5.
+        Delay waitForSeconds:(((messageOrNil size / 20) * 0.05) min:0.5).
     ].
     Delay waitForSeconds:0.1.
     shown ifFalse:[^ self].
hg/stx-libview