> This snippet will print text in *red*:
> 
> print "";
> color _zred
> print "blürf!!"
> stop
> 
> while this one will print in *black*:
> 
> color _zred
> print "";'or no command
> print "blürf!!"
> stop
> 
> What's going on?

In FB5, the 'color' statement calls the toolbox function ForeColor() for the current output window.
If there is no front window, 'color' does nothing.
In your examples, the first 'print' statement creates a default window.


To set the color of editable text, use SetButtonFontStyle().

appearance button _textColorField,,,,,, @r, _kControlEditUnicodeTextProc
dim as ControlFontStyleRec  cfs
cfs.flags = _kControlUseForeColorMask
cfs.foreColor.red   = whatever
cfs.foreColor.green = whatever
cfs.foreColor.blue  = whatever
fn SetButtonFontStyle( _textColorField, cfs )

Robert P.