implement. (_wrap_pango_font_get_glyph_extents): implement.

2002-03-17  James Henstridge  <james@daa.com.au>

	* pango.override (_wrap_pango_context_list_families): implement.
	(_wrap_pango_font_get_glyph_extents): implement.
	(_wrap_pango_font_family_list_faces): implement.
	(_wrap_pango_font_map_list_families): implement.
	(_wrap_pango_tab_array_get_tab): implement.
	(_wrap_pango_tab_array_get_tabs): implement.
	(_wrap_pango_layout_set_markup): implement.
	(_wrap_pango_layout_set_markup_with_accel): implement.
	(_wrap_pango_layout_index_to_pos): implement.
	(_wrap_pango_layout_get_cursor_pos): implement.

1 files changed, 31 insertions, 1 deletions

diff --git a/pango.defs b/pango.defs
index 303cb6e7..dec8a367 100644
--- a/pango.defs
+++ b/pango.defs
@@ -882,11 +882,22 @@
   (c-name "pango_font_map_load_font")
   (return-type "PangoFont*")
   (parameters
-    '("PangoContect*" "context")
+    '("PangoContext*" "context")
     '("const-PangoFontDescription*" "desc")
   )
 )
 
+(define-method load_fontset
+  (of-object "PangoFontMap")
+  (c-name "pango_font_map_load_fontset")
+  (return-type "PangoFontset*")
+  (parameters
+    '("PangoContext*" "context")
+    '("const-PangoFontDescription*" "desc")
+    '("PangoLanguage*" "language")
+  )
+)
+
 (define-method list_families
   (of-object "PangoFontMap")
   (c-name "pango_font_map_list_families")
@@ -899,6 +910,25 @@
 
 
 
+;; From /opt/gtk2/include/pango-1.0/pango/pango-fontset.h
+
+(define-method get_font
+  (of-object "PangoFontset")
+  (c-name "pango_fontset_get_font")
+  (return-type "PangoFont*")
+  (parameters
+    '("guint" "wc")
+  )
+)
+
+(define-method get_metrics
+  (of-object "PangoFontset")
+  (c-name "pango_fontset_get_metrics")
+  (return-type "PangoFontMetrics*")
+)
+
+
+
 ;; From /opt/gtk2/include/pango-1.0/pango/pango-glyph.h
 
 (define-function pango_glyph_string_new