Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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