;;
;; Permission is hereby granted, free of charge, to any person obtaining
;; a copy of this software and associated documentation files (the
;;
;; Permission is hereby granted, free of charge, to any person obtaining
;; a copy of this software and associated documentation files (the
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
(slot-boundp widget 'name) (not (zerop (length (widget-name widget)))))
(print-unreadable-object (widget stream :type t :identity nil)
(format stream "~S at 0x~X"
(slot-boundp widget 'name) (not (zerop (length (widget-name widget)))))
(print-unreadable-object (widget stream :type t :identity nil)
(format stream "~S at 0x~X"
(when (and visible-p (not visible)) ; widget explicit set as not visible
(setf (user-data widget 'hidden-p) t)
(signal-connect widget 'show
(when (and visible-p (not visible)) ; widget explicit set as not visible
(setf (user-data widget 'hidden-p) t)
(signal-connect widget 'show
(defbinding widget-get-child-requisition
(widget &optional (requisition (make-instance 'requisition))) nil
(widget widget)
(defbinding widget-get-child-requisition
(widget &optional (requisition (make-instance 'requisition))) nil
(widget widget)