[REBOL] Re: fields and keyboard
From: brett:codeconscious at: 31-Jan-2002 12:22
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