(export 'dialog-add-action-widget)
-(defcfun (dialog-set-default-response "gtk_dialog_set_default_response") :void
- (dialog (g-object dialog))
- (response response-type))
-
-(defun (setf dialog-default-response) (response dialog)
- (dialog-set-default-response dialog response)
- response)
-
-(export 'dialog-default-response)
-
(defcfun (dialog-set-response-sensitive "gtk_dialog_set_response_sensitive") :void
(dialog (g-object dialog))
(response response-type)
(n-params :int)
(new-order (:pointer response-type)))
-(defun (setf dialog-alternative-button-order) (response-list dialog)
+(defun set-dialog-alternative-button-order (dialog response-list)
(with-foreign-object (new-order 'response-type (length response-list))
(loop
for i from 0
(dialog-set-alternative-button-order-from-array dialog (length response-list) new-order))
response-list)
-(export 'dialog-alternative-button-order)
+(export 'set-dialog-alternative-button-order)
(defmacro with-gtk-message-error-handler (&body body)
(let ((dialog (gensym))