+(defclass stock-item (struct)
+ ((id
+ :allocation :alien
+ :accessor stock-item-id
+ :initarg :id
+ :type string)
+ (label
+ :allocation :alien
+ :accessor stock-item-label
+ :initarg :label
+ :type string)
+ (modifier
+ :allocation :alien
+ :accessor stock-item-modifier
+ :initarg :modifier
+ :type gdk:modifier-type)
+ (keyval
+ :allocation :alien
+ :accessor stock-item-keyval
+ :initarg :keyval
+ :type int)
+ (translation-domain
+ :allocation :alien
+ :accessor stock-item-translation-domain
+ :initarg :translation-domain
+ :type string))
+ (:metaclass proxy-class))
+