SET-USER
Show a window to set user preferences:
SET-USER is a function value.
set-user: func [][ if block? ctx-prefs-gui [ctx-prefs-gui: context ctx-prefs-gui] ctx-prefs-gui/view-prefs ]