← Back to branch summary

~andywingo/guile-gnome/pango

« back to all changes in this revision

Viewing changes to gnome/gw/pango-spec.scm

  • Committer: Andy Wingo
  • Date: 2007-11-24 18:09:04 UTC
  • Revision ID: wingo@pobox.com-20071124180904-tsbj54hn6smpfxhf
2007-11-24  Andy Wingo  <wingo@pobox.com>

        * gnome/overrides/pango.defs: Ignore a few more functions.

        * gnome/gw/pango-spec.scm (initialize): Wrap PangoCoverage as a
        refcounted pointer. Wrap PangoRectangle as a structure,
        represented on the Scheme side by a vector of four integers, as
        with GdkRectangle (but without a GType).

        * gnome/gw/Makefile.am (libgw_guile_gnome_pango_la_SOURCES): 
        * gnome/gw/pango-support.h: 
        * gnome/gw/pango-support.c: New files, add support code to the
        wrapper. 

Show diffs side-by-side

added added

removed removed

Lines of Context:
gnome/gw/pango-spec.scm
40
40
(define-method (global-declarations-cg (self <gobject-wrapset-base>))
41
41
  (list
42
42
   (next-method)
43
 
   "#include <pango/pango.h>\n"))
 
43
   "#include <pango/pango.h>\n"
 
44
   "#include \"pango-support.h\"\n"))
44
45
  
45
46
(define-method (initialize (ws <pango-wrapset>) initargs)
46
47
  (next-method ws (cons #:module (cons '(gnome gw pango) initargs)))
47
48
 
48
49
  (add-type-alias! ws "PangoGlyph" 'unsigned-int32)
 
50
  (wrap-refcounted-pointer! ws "PangoCoverage*"
 
51
                            "pango_coverage_ref" "pango_coverage_unref")
 
52
 
 
53
  (wrap-structure! ws "PangoRectangle"
 
54
                   "scm_pango_rectangle_to_scm"
 
55
                   "scm_scm_to_pango_rectangle")
49
56
 
50
57
  (load-defs-with-overrides ws "gnome/defs/pango.defs"))
51
58