; TODO: GtkWidget
-(define-g-boxed-cstruct selection-data "GtkSelectionData"
- (selection gdk-atom-as-string :initform nil)
- (target gdk-atom-as-string :initform nil)
- (type gdk-atom-as-string :initform nil)
- (format :int :initform 0)
- (data :pointer :initform (null-pointer))
- (length :int :initform 0)
- (display (g-object display) :initform nil))
-
-(export (boxed-related-symbols 'selection-data))
-
(defun widget-flags (widget)
(convert-from-foreign (gtk-object-flags-as-integer widget) 'widget-flags))