On Nov 2, 2009, at 9:12 AM, George Beckman wrote:

> This is one that actually stopped my conversion to FB4 (and I  
> suppose FB5)   I trapped lots of characters with TEKEY$ and at the  
> time, it wasn't supported nor was it something that made sense to  
> support in the future.  (I may be wrong here.)  But, occasionally I  
> look longingly at FB and think, I wish I was still in the game.

TEKey$ function and statement are supported George. They were added  
sometime in early 2008 if I recall correctly.

The EDIT FIELD and EDIT$ statements ( which are often used in  
conjunction with TEKey$ )  *do* have limited support( and perhaps that  
was the core reason )

Here is a variation on Peter's code showing an edit field filter  
working to capitalize the first character

'-------------
local fn CapFirst
'~'1
dim lk as Str15

lk = TEkey$
if window (_selStart) == 0 then lk = UCASE$( lk )
TEkey$ = lk
end fn

window 1
text _sysFont, 12
edit field 1,"",(10,110)-(100,130),_framedNoCR,,@fn CapFirst

do
HandleEvents
until ( gFBQuit )
'------------------


Brian S