-; (defclass dialog window
-; :slots
-; ;; slots not accessible through the arg mechanism
-; ((action-area :read-only t :type widget)
-; (vbox :read-only t :type widget)))
+(defclass dialog (window)
+ ((action-area
+ :allocation :virtual
+ :location "gtk_dialog_get_action_area"
+ :reader dialog-action-area
+ :type widget)
+ (box
+ :allocation :virtual
+ :location "gtk_dialog_get_vbox"
+ :reader dialog-box
+ :type widget))
+ (:metaclass container-class)
+ (:alien-name "GtkDialog"))
+
+(defclass dialog-child (window-child)
+ ()
+ (:metaclass child-class))
+
+
+(defclass input-dialog (dialog)
+ ()
+ (:metaclass container-class)
+ (:alien-name "GtkInputDialog"))
+
+(defclass input-dialog-child (dialog-child)
+ ()
+ (:metaclass child-class))