# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1256434405 -3600
# Node ID d3a015f9d5ddf94a37982030fe98a23928ca92e7
# Parent  01e4930b262fb1fafcd48c593c0c4b42636c1b04
changed: #modeLabelHolder

diff -r 01e4930b262f -r d3a015f9d5dd EditTextView.st
--- a/EditTextView.st	Sun Oct 25 02:41:05 2009 +0200
+++ b/EditTextView.st	Sun Oct 25 02:33:25 2009 +0100
@@ -1020,14 +1020,14 @@
     "a valueHolder, which contains 'L' (learnMode), I (insertMode) or empty"
 
     ^ BlockValue
-	with:[:e :l |
-	    self isReadOnly ifTrue:[
-		''
-	    ] ifFalse:[
-		l ifTrue:[ 'L' asText allBold colorizeAllWith:Color red]
-		  ifFalse:[ e infoPrintString]]]
-	argument:(self editModeHolder)
-	argument:(self learnModeHolder).
+        with:[:e :l |
+            self isReadOnly ifTrue:[
+                ''
+            ] ifFalse:[
+                l ifTrue:[ 'L' allBold colorizeAllWith:Color red]
+                  ifFalse:[ e infoPrintString]]]
+        argument:(self editModeHolder)
+        argument:(self learnModeHolder).
 
     "Modified: / 08-03-2007 / 22:58:59 / cg"
 !
@@ -7569,9 +7569,9 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.469 2009-10-22 10:27:30 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.470 2009-10-25 01:33:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.469 2009-10-22 10:27:30 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.470 2009-10-25 01:33:25 cg Exp $'
 ! !