From 126b6a34e894ddbcdab582f339f7d6e671587902 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sun, 1 Nov 2009 03:01:47 +0300 Subject: [PATCH] Fix gdk.objects definitions order --- gdk/gdk.objects.lisp | 42 +++++++++++++++++++++--------------------- 1 file changed, 21 insertions(+), 21 deletions(-) diff --git a/gdk/gdk.objects.lisp b/gdk/gdk.objects.lisp index ae3a38f..fd8f325 100644 --- a/gdk/gdk.objects.lisp +++ b/gdk/gdk.objects.lisp @@ -234,6 +234,27 @@ (export (boxed-related-symbols 'trapezoid)) +(define-g-boxed-cstruct rectangle "GdkRectangle" + (x :int :initform 0) + (y :int :initform 0) + (width :int :initform 0) + (height :int :initform 0)) + +(export (boxed-related-symbols 'rectangle)) + +(define-g-boxed-opaque font "GdkFont" + :alloc (error "GDK:FONT objects may not be allocated directly")) + +(export (boxed-related-symbols 'font)) + +(define-g-boxed-cstruct color "GdkColor" + (pixel :uint32 :initform 0) + (red :uint16 :initform 0) + (green :uint16 :initform 0) + (blue :uint16 :initform 0)) + +(export (boxed-related-symbols 'color)) + (define-g-object-class "GdkGC" graphics-context () ((:cffi screen graphics-context-screen (g-object screen) "gdk_gc_get_screen" nil) @@ -393,27 +414,6 @@ :south-east :static) -(define-g-boxed-cstruct rectangle "GdkRectangle" - (x :int :initform 0) - (y :int :initform 0) - (width :int :initform 0) - (height :int :initform 0)) - -(export (boxed-related-symbols 'rectangle)) - -(define-g-boxed-opaque font "GdkFont" - :alloc (error "GDK:FONT objects may not be allocated directly")) - -(export (boxed-related-symbols 'font)) - -(define-g-boxed-cstruct color "GdkColor" - (pixel :uint32 :initform 0) - (red :uint16 :initform 0) - (green :uint16 :initform 0) - (blue :uint16 :initform 0)) - -(export (boxed-related-symbols 'color)) - (define-g-boxed-cstruct geometry "GdkGeometry" (min-width :int :initform 0) (min-height :int :initform 0) -- 1.7.10.4