+(defmethod shared-initialize ((widget widget) names &key (visible nil visible-p))
+ (declare (ignore names))
+ (when (and visible-p (not visible)) ; widget explicit set as not visible
+ (setf (user-data widget 'hidden-p) t)
+ (signal-connect widget 'show
+ #'(lambda ()
+ (unset-user-data widget 'hidden-p))
+ :remove t))
+ (call-next-method))
+
+(defmethod shared-initialize :after ((widget widget) names &key parent visible)
+ (declare (ignore names))
+ (when visible
+ (widget-show widget))
+ (when parent
+ (when (slot-boundp widget 'parent)
+ (container-remove (widget-parent widget) widget))
+ (destructuring-bind (parent &rest args) (mklist parent)
+ (apply #'container-add parent widget args))))
+
+(defmethod slot-unbound ((class gobject-class) (object widget)
+ (slot (eql 'child-properties)))