fonts: linking #9

[Huw D M Davies]

        Huw Davies <huw at codeweavers.com>
        Remember to remove a child font from the child font list.
-- 
Huw Davies
huw at codeweavers.com
--- dlls/gdi/freetype.c	2005-09-14 15:07:01.154744103 +0100
+++ dlls/gdi/freetype.c	2005-09-14 15:08:17.753397323 +0100
@@ -2203,6 +2203,18 @@ BOOL WineEngDestroyFontInstance(HFONT ha
     struct list *font_elem_ptr, *hfontlist_elem_ptr;
     int i = 0;
 
+    LIST_FOR_EACH_ENTRY(gdiFont, &child_font_list, struct tagGdiFont, entry)
+    {
+        struct list *first_hfont = list_head(&gdiFont->hfontlist);
+        hflist = LIST_ENTRY(first_hfont, HFONTLIST, entry);
+        if(hflist->hfont == handle)
+        {
+            TRACE("removing child font %p from child list\n", gdiFont);
+            list_remove(&gdiFont->entry);
+            return TRUE;
+        }
+    }
+
     TRACE("destroying hfont=%p\n", handle);
     if(TRACE_ON(font))
 	dump_gdi_font_list();