; 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))
(:allocation allocation-cstruct)
(:window :pointer)
(:parent :pointer))
+(defctype %gtk-widget (:struct %gtk-widget))
(defun widget-state (widget)
(convert-from-foreign (foreign-slot-value (pointer widget) '%gtk-widget :state) 'state-type))
(n-properties (:pointer :int)))
(defun widget-get-style-properties (type)
- (setf type (ensure-g-type type))
+ (setf type (gtype type))
(let ((class (g-type-class-ref type)))
(unwind-protect
(with-foreign-object (np :int)
(defun widget-style-property-value (widget property-name &optional property-type)
(unless property-type (setf property-type (widget-style-property-type widget property-name)))
- (setf property-type (ensure-g-type property-type))
+ (setf property-type (gtype property-type))
(with-foreign-object (gvalue 'g-value)
(g-value-zero gvalue)
(g-value-init gvalue property-type)
(defun widget-snapshot (widget &optional clip-rectangle)
(gtk-widget-get-snapshot widget clip-rectangle))
-(export 'widget-snapshot)
\ No newline at end of file
+(export 'widget-snapshot)