From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Fri, 17 Jul 2009 20:40:38 +0000 (+0400)
Subject: add initforms for GdkRectangle and GdkFont
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=257d6325fc84f3de0947289c7adcaab7b722aa6d;p=cl-gtk2.git

add initforms for GdkRectangle and GdkFont
---

diff --git a/gdk/gdk.objects.lisp b/gdk/gdk.objects.lisp
index 1192b28..1d8666d 100644
--- a/gdk/gdk.objects.lisp
+++ b/gdk/gdk.objects.lisp
@@ -158,10 +158,10 @@
   (y-root :double))
 
 (define-g-boxed-class "GdkRectangle" rectangle ()
-  (x :int)
-  (y :int)
-  (width :int)
-  (height :int))
+  (x :int :initform 0)
+  (y :int :initform 0)
+  (width :int :initform 0)
+  (height :int :initform 0))
 
 (define-g-boxed-class nil event-expose ((event type :expose))
   (area (g-boxed-inline rectangle))
@@ -286,9 +286,9 @@
 (define-g-enum "GdkFontType" font-type () :font :fontset)
 
 (define-g-boxed-class "GdkFont" font ()
-  (type font-type)
-  (ascent :int)
-  (descent :int))
+  (type font-type :initform :font)
+  (ascent :int :initform 0)
+  (descent :int :initform 0))
 
 (define-g-boxed-class "GdkColor" color ()
   (pixel :uint32 :initform 0)