--- a/TextView.st	Tue Apr 22 22:50:08 2014 +0200
+++ b/TextView.st	Thu May 01 10:47:26 2014 +0100
@@ -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"
@@ -4499,6 +4501,15 @@
     "Modified: / 04-07-2006 / 18:42:59 / fm"
 !
 
+hasSingleFullLineSelected
+    ^ (selectionStartLine notNil 
+      and:[selectionEndLine notNil
+      and:[selectionEndLine == (selectionStartLine+1)  
+      and:[selectionStartCol == 1
+      and:[selectionEndCol == 0
+    ]]]])
+!
+
 isInSelection:line col:aColNr
     "returns true, if the line, and column is in the selection
     "
@@ -4873,11 +4884,11 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.370 2014-04-07 16:01:13 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.370 2014-04-07 16:01:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.372 2014-04-27 10:46:45 cg Exp $'
 !
 
 version_HG