(if (slot-boundp widget 'parent)
(apply function (widget-parent widget) all-args)
;; Delay until parent is set
(signal-connect widget 'parent-set
#'(lambda (old-parent)
(declare (ignore old-parent))
(if (slot-boundp widget 'parent)
(apply function (widget-parent widget) all-args)
;; Delay until parent is set
(signal-connect widget 'parent-set
#'(lambda (old-parent)
(declare (ignore old-parent))