CLASS {Paint_font_styles} , UNTESTED:
BASE CLASS {Paintbox} .
STR Styles|_to_represent_B_I_U_S , READ
METHOD Set_styles ( STR Value|_to_set ) , SETTER FOR Styles
OVERRIDE before_paint
OVERRIDE mouse_down , REPLACE
OVERRIDE Set_text ( STR Text|_to_set )