From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sun, 29 Nov 2009 00:14:21 +0000 (+0300)
Subject: Fix GtkWidget's structure definition
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=804b4c8f24b3725eb90f29d7e6910b2598b68771;p=cl-gtk2.git

Fix GtkWidget's structure definition
---

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)