projects
/
cl-gtk2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0e3bcaa
)
add initforms for GdkRectangle and GdkFont
author
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Fri, 17 Jul 2009 20:40:38 +0000
(
00:40
+0400)
committer
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Fri, 17 Jul 2009 20:40:38 +0000
(
00:40
+0400)
gdk/gdk.objects.lisp
patch
|
blob
|
history
diff --git
a/gdk/gdk.objects.lisp
b/gdk/gdk.objects.lisp
index
1192b28
..
1d8666d
100644
(file)
--- a/
gdk/gdk.objects.lisp
+++ b/
gdk/gdk.objects.lisp
@@
-158,10
+158,10
@@
(y-root :double))
(define-g-boxed-class "GdkRectangle" rectangle ()
(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))
(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 ()
(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)
(define-g-boxed-class "GdkColor" color ()
(pixel :uint32 :initform 0)