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