+ (:alien-name "GtkMenu"))
+
+(defclass menu-child (menu-shell-child)
+ ()
+ (:metaclass child-class))
+
+
+(defclass packer (container)
+ ((spacing
+ :allocation :param
+ :accessor packer-spacing
+ :initarg :spacing
+ :type unsigned-int)
+ (default-border-width
+ :allocation :param
+ :accessor packer-default-border-width
+ :initarg :default-border-width
+ :type unsigned-int)
+ (default-pad-x
+ :allocation :param
+ :accessor packer-default-pad-x
+ :initarg :default-pad-x
+ :type unsigned-int)
+ (default-pad-y
+ :allocation :param
+ :accessor packer-default-pad-y
+ :initarg :default-pad-y
+ :type unsigned-int)
+ (default-ipad-x
+ :allocation :param
+ :accessor packer-default-ipad-x
+ :initarg :default-ipad-x
+ :type unsigned-int)
+ (default-ipad-y
+ :allocation :param
+ :accessor packer-default-ipad-y
+ :initarg :default-ipad-y
+ :type unsigned-int))
+ (:metaclass container-class)
+ (:alien-name "GtkPacker"))
+
+(defclass packer-child (container-child)
+ ((side
+ :allocation :arg
+ :accessor packer-child-side
+ :initarg :side
+ :type side-type)
+ (anchor
+ :allocation :arg
+ :accessor packer-child-anchor
+ :initarg :anchor
+ :type anchor-type)
+ (expand
+ :allocation :arg
+ :accessor packer-child-expand-p
+ :initarg :expand
+ :type boolean)
+ (fill-x
+ :allocation :arg
+ :accessor packer-child-fill-x-p
+ :initarg :fill-x
+ :type boolean)
+ (fill-y
+ :allocation :arg
+ :accessor packer-child-fill-y-p
+ :initarg :fill-y
+ :type boolean)
+ (use-default
+ :allocation :arg
+ :accessor packer-child-use-default
+ :initarg :default
+ :type boolean)
+ (border-width
+ :allocation :arg
+ :accessor packer-child-border-width
+ :initarg :default
+ :type unsigned-int)
+ (pad-x
+ :allocation :arg
+ :accessor packer-child-pad-x
+ :initarg :pad-x
+ :type unsigned-int)
+ (pad-y
+ :allocation :arg
+ :accessor packer-child-pad-y
+ :initarg :pad-y
+ :type unsigned-int)
+ (ipad-x
+ :allocation :arg
+ :accessor packer-child-ipad-x
+ :initarg :ipad-x
+ :type unsigned-int)
+ (ipad-y
+ :allocation :arg
+ :accessor packer-child-ipad-y
+ :initarg :ipad-y
+ :type unsigned-int)
+ (position
+ :allocation :arg
+ :accessor packer-child-position
+ :initarg :iposition
+ :type long))
+ (:metaclass child-class))
+
+
+;(defclass socket (container))
+
+
+(defclass table (container)
+ ((rows
+ :allocation :param
+ :location "GtkTable::n_rows"
+ :accessor table-rows
+ :initarg :rows
+ :type unsigned-int)
+ (columns
+ :allocation :param
+ :location "GtkTable::n_columns"
+ :accessor table-columns
+ :initarg :columns
+ :type unsigned-int)
+ (row-spacing
+ :allocation :param
+ :accessor table-default-row-spacing
+ :initarg :row-spacing
+ :type unsigned-int)
+ (column-spacing
+ :allocation :param
+ :accessor table-default-column-spacing
+ :initarg :column-spacing
+ :type unsigned-int)
+ (homogeneous
+ :allocation :param
+ :accessor table-homogeneous-p
+ :initarg :homogeneous
+ :type boolean))
+ (:metaclass container-class)
+ (:alien-name "GtkTable"))
+
+(defclass table-child (container-child)
+ ((left-attach
+ :allocation :arg
+ :accessor table-child-left-attach
+ :initarg :left-attach
+ :type unsigned-int)
+ (right-attach
+ :allocation :arg
+ :accessor table-child-right-attach
+ :initarg :right-attach
+ :type unsigned-int)
+ (top-attach
+ :allocation :arg
+ :accessor table-child-top-attach
+ :initarg :top-attach
+ :type unsigned-int)
+ (bottom-attach
+ :allocation :arg
+ :accessor table-child-bottom-attach
+ :initarg :bottom-attach
+ :type unsigned-int)
+ (x-options
+ :allocation :arg
+ :accessor table-child-x-options
+ :initarg :x-options
+ :type attach-options)
+ (y-options
+ :allocation :arg
+ :accessor table-child-y-options
+ :initarg :y-options
+ :type attach-options)
+ (x-padding
+ :allocation :arg
+ :accessor table-child-x-padding
+ :initarg :x-padding
+ :type unsigned-int)
+ (y-padding
+ :allocation :arg
+ :accessor table-child-y-padding
+ :initarg :y-padding
+ :type unsigned-int)
+
+ (x-expand
+ :allocation :virtual
+ :location table-child-x-expand-p
+ :initarg :x-expand
+ :type boolean)
+ (y-expand
+ :allocation :virtual
+ :location table-child-y-expand-p
+ :initarg :y-expand
+ :type boolean)
+ (x-shrink
+ :allocation :virtual
+ :location table-child-x-shrink-p
+ :initarg :x-shrink
+ :type boolean)
+ (y-shrink
+ :allocation :virtual
+ :location table-child-y-shrink-p
+ :initarg :y-shrink
+ :type boolean)
+ (x-fill
+ :allocation :virtual
+ :location table-child-x-fill-p
+ :initarg :x-fill
+ :type boolean)
+ (y-fill
+ :allocation :virtual
+ :location table-child-y-fill-p
+ :initarg :y-fill
+ :type boolean))
+ (:metaclass child-class))
+
+
+(defclass toolbar (container)
+ ((orientation
+ :allocation :param
+ :accessor toolbar-orientation
+ :initarg :orientation
+ :type orientation)
+ (toolbar-style
+ :allocation :param
+ :accessor toolbar-style
+ :initarg :toolbar-style
+ :type toolbar-style)
+ (space-size
+ :allocation :param
+ :accessor toolbar-space-size
+ :initarg :space-size
+ :type unsigned-int)
+ (space-style
+ :allocation :param
+ :accessor toolbar-space-style
+ :initarg :space-style
+ :type toolbar-space-style)
+ (relief
+ :allocation :param
+ :accessor toolbar-relief
+ :initarg :relief
+ :type relief-style)
+ (tooltips
+ :allocation :virtual
+ :location ("gtk_toolbar_get_tooltips" "gtk_toolbar_set_tooltips")
+ :accessor toolbar-tooltips-p
+ :initarg :tooltips
+ :type boolean))
+ (:metaclass container-class)
+ (:alien-name "GtkToolbar"))
+
+(defclass toolbar-child (container-child)
+ ()
+ (:metaclass child-class))