From 804b4c8f24b3725eb90f29d7e6910b2598b68771 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sun, 29 Nov 2009 03:14:21 +0300 Subject: [PATCH] Fix GtkWidget's structure definition --- gtk/gtk.widget.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gtk/gtk.widget.lisp b/gtk/gtk.widget.lisp index 7e98dae..bd5ffe8 100644 --- a/gtk/gtk.widget.lisp +++ b/gtk/gtk.widget.lisp @@ -15,8 +15,8 @@ (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) @@ -25,12 +25,12 @@ (:parent :pointer)) (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) -- 1.7.10.4