--- a/TextView.st	Fri Apr 25 13:52:23 2014 +0200
+++ b/TextView.st	Sun Apr 27 12:46:45 2014 +0200
@@ -1964,9 +1964,11 @@
 
     |newFont|
 
-    newFont := FontPanel fontFromUserInitial:font.
+    self withWaitCursorDo:[
+        newFont := FontPanel fontFromUserInitial:font.
+    ].
     newFont notNil ifTrue:[
-	self font:newFont.
+        self font:newFont.
     ]
 
     "Modified: 27.2.1996 / 00:53:51 / cg"
@@ -4870,11 +4872,11 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.371 2014-04-25 11:52:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.372 2014-04-27 10:46:45 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.371 2014-04-25 11:52:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.372 2014-04-27 10:46:45 cg Exp $'
 ! !