3 (define-g-enum "GtkResponseType" response-type ()
16 (defcfun (dialog-run "gtk_dialog_run") response-type
17 (dialog (g-object dialog)))
21 (defcfun (dialog-respose "gtk_dialog_response") :void
22 (dialog (g-object dialog))
23 (response response-type))
25 (export 'dialog-response)
27 (defcfun (dialog-add-button "gtk_dialog_add_button") (g-object widget)
28 (dialog (g-object dialog))
30 (response response-type))
32 (export 'dialog-add-button)
34 (defcfun (dialog-add-action-widget "gtk_dialog_add_action_widget") :void
35 (dialog (g-object dialog))
36 (child (g-object widget))
37 (response response-type))
39 (export 'dialog-add-action-widget)
41 (defcfun (dialog-set-default-response "gtk_dialog_set_default_response") :void
42 (dialog (g-object dialog))
43 (response response-type))
45 (defun (setf dialog-default-response) (response dialog)
46 (dialog-set-default-response dialog response)
49 (export 'dialog-default-response)
51 (defcfun (dialog-set-response-sensitive "gtk_dialog_set_response_sensitive") :void
52 (dialog (g-object dialog))
53 (response response-type)
56 (defcfun (dialog-response-for-widget "gtk_dialog_get_response_for_widget") :int
57 (dialog (g-object dialog))
58 (widget (g-object widget)))
60 (export 'dialog-response-for-widget)
62 (defcfun (dialog-action-area "gtk_dialog_get_action_area") (g-object widget)
63 (dialog (g-object dialog)))
65 (export 'dialog-action-area)
67 (defcfun (dialog-content-area "gtk_dialog_get_content_area") (g-object widget)
68 (dialog (g-object dialog)))
70 (export 'dialog-content-area)
72 (defcfun (dialog-alternative-button-order-on-screen "gtk_alternative_dialog_button_order") :boolean
73 (screen (g-object screen)))
75 (export 'dialog-alternative-button-order-on-screen)
77 (defcfun (dialog-set-alternative-button-order-from-array "gtk_dialog_set_alternative_button_order_from_array") :void
78 (dialog (g-object dialog))
80 (new-order (:pointer response-type)))
82 (defun (setf dialog-alternative-button-order) (response-list dialog)
83 (with-foreign-object (new-order 'response-type (length response-list))
86 for response in response-list
87 do (setf (mem-aref new-order 'response-type i) response))
88 (dialog-set-alternative-button-order-from-array dialog (length response-list) new-order))
91 (export 'dialog-alternative-button-order)
93 (defmacro with-gtk-message-error-handler (&body body)
94 (let ((dialog (gensym))
98 (error (,e) (using* ((,dialog (make-instance 'message-dialog
99 :message-type :error :buttons :ok
100 :text (format nil "Error~%~A~%during execution of~%~A" ,e '(progn ,@body)))))
102 (object-destroy ,dialog)
105 (export 'with-gtk-message-error-handler)