+(defclass menu-bar (menu-shell)
+ ((shadow-type
+ :allocation :arg
+ :location "GtkMenuBar::shadow"
+ :accessor menu-bar-shadow-type
+ :initarg :shadow-type
+ :type shadow-type))
+ (:metaclass container-class)
+ (:alien-name "GtkMenuBar"))
+
+(defclass menu-bar-child (menu-shell-child)
+ ()
+ (:metaclass child-class))
+
+
+(defclass menu (menu-shell)
+ ((accel-group
+ :allocation :virtual
+ :location ("gtk_menu_get_accel_group" "gtk_menu_set_accel_group")
+ :accessor menu-accel-group
+ :initarg :accel-group
+ :type accel-group)
+ (tornoff
+ :allocation :virtual
+ :location ("gtk_menu_get_tearoff_state" "gtk_menu_set_tearoff_state")
+ :accessor menu-tornoff-p
+ :initarg :tearoff
+ :type boolean)
+ (title
+ :allocation :virtual
+ :location ("gtk_menu_get_title" "gtk_menu_set_title")
+ :accessor menu-title
+ :initarg :title
+ :type string))
+ (:metaclass container-class)
+ (:alien-name "GtkMenu"))
+
+(defclass menu-child (menu-shell-child)
+ ()
+ (:metaclass child-class))
+
+
+(defclass packer (container)
+ ((spacing
+ :allocation :arg
+ :accessor packer-spacing
+ :initarg :spacing
+ :type unsigned-int)
+ (default-border-width
+ :allocation :arg
+ :accessor packer-default-border-width
+ :initarg :default-border-width
+ :type unsigned-int)
+ (default-pad-x
+ :allocation :arg
+ :accessor packer-default-pad-x
+ :initarg :default-pad-x
+ :type unsigned-int)
+ (default-pad-y
+ :allocation :arg
+ :accessor packer-default-pad-y
+ :initarg :default-pad-y
+ :type unsigned-int)
+ (default-ipad-x
+ :allocation :arg
+ :accessor packer-default-ipad-y
+ :initarg :default-ipad-y
+ :type unsigned-int)
+ (default-ipad-y
+ :allocation :arg
+ :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 :arg
+ :location "GtkTable::n_rows"
+ :accessor table-rows
+ :initarg :rows
+ :type unsigned-int)
+ (columns
+ :allocation :arg
+ :location "GtkTable::n_columns"
+ :accessor table-columns
+ :initarg :columns
+ :type unsigned-int)
+ (row-spacing
+ :allocation :arg
+ :accessor table-row-spacing
+ :initarg :row-spacing
+ :type unsigned-int)
+ (column-spacing
+ :allocation :arg
+ :accessor table-column-spacing
+ :initarg :column-spacing
+ :type unsigned-int)
+ (homogeneous
+ :allocation :arg
+ :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 :arg
+ :accessor toolbar-orientation
+ :initarg :orientation
+ :type orientation)
+ (toolbar-style
+ :allocation :arg
+ :accessor toolbar-style
+ :initarg :toolbar-style
+ :type toolbar-style)
+ (space-size
+ :allocation :arg
+ :accessor toolbar-space-size
+ :initarg :space-size
+ :type unsigned-int)
+ (space-style
+ :allocation :arg
+ :accessor toolbar-space-style
+ :initarg :space-style
+ :type toolbar-space-style)
+ (relief
+ :allocation :arg
+ :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))
+
+
+;; Deprecated