+ (cond
+ ;; Assume that an instantiator means a native widget.
+ (instantiator
+ (setq instantiator
+ (set-instantiator-property instantiator :active activate-p))
+ (widget-put glyph-widget :glyph-instantiator instantiator)
+ (set-glyph-image up-glyph instantiator))