(defcstruct %gtk-widget
(:object %gtk-object)
(:private-flags :uint16)
- (:state state-type)
- (:saved-state state-type)
+ (:state :uint8)
+ (:saved-state :uint8)
(:name (:pointer :char))
(:style :pointer)
(:requisition requisition-cstruct)
(:allocation allocation-cstruct)
(:window :pointer)
(:parent :pointer))
+(defctype %gtk-widget (:struct %gtk-widget))
(defun widget-state (widget)
- (foreign-slot-value (pointer widget) '%gtk-widget :state))
+ (convert-from-foreign (foreign-slot-value (pointer widget) '%gtk-widget :state) 'state-type))
(export 'widget-state)
(defun widget-saved-state (widget)
- (foreign-slot-value (pointer widget) '%gtk-widget :saved-state))
+ (convert-from-foreign (foreign-slot-value (pointer widget) '%gtk-widget :saved-state) 'state-type))
(export 'widget-saved-state)
(gtk-widget-hide-all widget)
(gtk-widget-hide widget)))
+(export 'widget-hide)
+
(defcfun (widget-map "gtk_widget_map") :void
(widget g-object))
(export 'widget-create-pango-context)
-(defcfun (widget-get-pango-context "gtk_widget_get_pango_context") g-object
- (widget g-object))
-
-(export 'widget-get-pango-context)
-
-(defcfun (widget-create-pango-layout "gtk_widget_create_pango_layout") (g-object gdk::pango-layout :already-referenced)
+(defcfun (widget-create-pango-layout "gtk_widget_create_pango_layout") (g-object pango-layout :already-referenced)
(widget (g-object widget))
(text :string))
; TODO: gtk_widget_class_list_style_properties
-; TODO: gtk_widget_region_intersect
+(defcfun (widget-region-intersect "gtk_widget_region_intersect") (g-boxed-foreign region :return)
+ (widget (g-object widget))
+ (region (g-boxed-foreign region)))
+
+(export 'widget-region-intersect)
-; TODO: gtk_widget_send_expose
+; ignored: gtk_widget_send_expose
(defcfun gtk-widget-style-get-property :void
(widget g-object)
(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)