+ :type boolean)
+ (tip-text
+ :allocation :user-data
+ :setter (setf tool-item-tip-text)
+ :initarg :tip-text
+ :reader tool-item-tip-text)
+ (tip-private
+ :allocation :user-data
+ :setter (setf tool-item-tip-private)
+ :initarg :tip-private
+ :reader tool-item-tip-private)))
+
+ ("GtkToolButton"
+ :slots
+ ((stock-id :merge t :initarg :stock)
+ (icon-widget :merge t :initarg :icon)))