Hi Romano,
Combining your script, Gabriele's flag idea and my own style addition
yields:
ctx-text/insert-char: func [face char] bind [
delete-selected-text
if not same? head face/text head view*/caret [
view*/caret: at face/text index? view*/caret
]
face/dirty?: true
;---changed part---
view*/caret: insert view*/caret either flag-face? face UPPERCASE [
first uppercase form char][char]
] in ctx-text 'self
l: layout [
style upper-case-field field with [
append init [flag-face self UPPERCASE]
]
f: upper-case-field ""
]
view l
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
