>Thanks for bothof your replies. Too bad. It would have been a very useful, extremely quick way to compose a user input dialog. It - does - work. But without the colors it would be drab and colorless to use.
>
>John Fish
>JF Services
Here's a little function to write a message in a window of your choice of colors. You may adopt this to accept some other colors, other way of positioning/sizing etc. HTH
Lpara _msg
Local _lmsg, _scur
#define g_fontsize _screen.fontsize
#define g_fontname _screen.fontname
_scur=set("curs")
_lmsg=' '+_msg+' '
define window tt from 4,4 size 3,1 color "gr+/b" font g_fontname, g_fontsize none
zoom window tt norm size 3, (_screen.textwidth(_msg)/FONTMETRIC(6, g_FontName, g_FontSize)*1.1)
* I use foxels, for pixels it should probably go as
* zoom window tt norm size g_fontsize*3, (_screen.textwidth(_msg))
move wind tt center
activate wind tt
set curs off
?_Lmsg
wait ""
if _scur="ON"
set curs on
endif
rele wind tt