[cl-gtk2-devel] Some symbol names with problems

["José Roberto B. de A. Monteiro"]

Hello,

Maybe, some symbols regarding gdk:colormap and gdk:gc-values are with 
problems:

1. slot name in gc values are named as 'foregound' instead of 'foreground'.
2. gdk:colormap is defined as 'gdk:gdk-colormap' but spreadly used as 
'gdk:colormap'.

Folowing is a diff containing changes that makes the gdk package set 
different colors in drawing areas:

------------------------------------
diff --git a/gdk/gdk.gc.lisp b/gdk/gdk.gc.lisp
index 9b274e2..2b1ddc6 100644
--- a/gdk/gdk.gc.lisp
+++ b/gdk/gdk.gc.lisp
@@ -1,7 +1,7 @@
  (in-package :gdk)

  (define-g-boxed-cstruct gc-values nil
-  (foregound color :initform (make-color) :inline t)
+  (foreground color :initform (make-color) :inline t)
    (background color :initform (make-color) :inline t)
    (font (g-boxed-foreign font) :initform nil)
    (function gdk-function :initform :copy)
diff --git a/gdk/gdk.objects.lisp b/gdk/gdk.objects.lisp
index 3c540be..f2f9140 100644
--- a/gdk/gdk.objects.lisp
+++ b/gdk/gdk.objects.lisp
@@ -875,7 +875,7 @@
    (:superclass g-object :export t :interfaces
                 nil :type-initializer
                 "gdk_image_get_type")
-  ((:cffi colormap gdk-image-colormap (g-object gdk-colormap)
+  ((:cffi colormap gdk-image-colormap (g-object colormap)
            "gdk_image_get_colormap" "gdk_image_set_colormap")))

  (define-g-object-class "GdkDisplay" display (:type-initializer 
"gdk_display_get_type")
@@ -930,7 +930,7 @@
     (:cffi blue-shift visual-blue-shift :int gdk-visual-get-blue-shift nil)
     (:cffi blue-prec visual-blue-prec :int gdk-visual-get-blue-prec nil)))

-(define-g-object-class "GdkColormap" gdk-colormap
+(define-g-object-class "GdkColormap" colormap
    (:superclass g-object :export t :interfaces
                 nil :type-initializer
                 "gdk_colormap_get_type")

------------------------------------

Regards,
JRM
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: diff
URL: <https://mailman.common-lisp.net/pipermail/cl-gtk2-devel/attachments/20101011/351cc937/attachment.ksh>