CTX-ACCESS is an object of value:
data object! [set-face* get-face* clear-face* reset-face*] data-state object! [set-face* get-face* clear-face* reset-face*] data-number object! [set-face* get-face* clear-face* reset-face*] data-find object! [set-face* get-face* clear-face* reset-face*] data-pick object! [set-face* get-face* clear-face* reset-face*] text object! [set-face* get-face* clear-face* reset-face*] field object! [set-face* get-face* clear-face* reset-face*] image object! [set-face* get-face* clear-face*] panel object! [self set-find-var set-face* get-face* clear-face* reset-face*]