equal
deleted
inserted
replaced
1018 |
1018 |
1019 modeLabelHolder |
1019 modeLabelHolder |
1020 "a valueHolder, which contains 'L' (learnMode), I (insertMode) or empty" |
1020 "a valueHolder, which contains 'L' (learnMode), I (insertMode) or empty" |
1021 |
1021 |
1022 ^ BlockValue |
1022 ^ BlockValue |
1023 with:[:e :l | |
1023 with:[:e :l | |
1024 self isReadOnly ifTrue:[ |
1024 self isReadOnly ifTrue:[ |
1025 '' |
1025 '' |
1026 ] ifFalse:[ |
1026 ] ifFalse:[ |
1027 l ifTrue:[ 'L' asText allBold colorizeAllWith:Color red] |
1027 l ifTrue:[ 'L' allBold colorizeAllWith:Color red] |
1028 ifFalse:[ e infoPrintString]]] |
1028 ifFalse:[ e infoPrintString]]] |
1029 argument:(self editModeHolder) |
1029 argument:(self editModeHolder) |
1030 argument:(self learnModeHolder). |
1030 argument:(self learnModeHolder). |
1031 |
1031 |
1032 "Modified: / 08-03-2007 / 22:58:59 / cg" |
1032 "Modified: / 08-03-2007 / 22:58:59 / cg" |
1033 ! |
1033 ! |
1034 |
1034 |
1035 modified |
1035 modified |
7567 ! ! |
7567 ! ! |
7568 |
7568 |
7569 !EditTextView class methodsFor:'documentation'! |
7569 !EditTextView class methodsFor:'documentation'! |
7570 |
7570 |
7571 version |
7571 version |
7572 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.469 2009-10-22 10:27:30 fm Exp $' |
7572 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.470 2009-10-25 01:33:25 cg Exp $' |
7573 ! |
7573 ! |
7574 |
7574 |
7575 version_CVS |
7575 version_CVS |
7576 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.469 2009-10-22 10:27:30 fm Exp $' |
7576 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.470 2009-10-25 01:33:25 cg Exp $' |
7577 ! ! |
7577 ! ! |