[Gdiplus 3/5] Implement GdipDeletePrivateFontCollection

[Adam Petaccia]

---
 dlls/gdiplus/font.c       |    9 ++++++---
 dlls/gdiplus/tests/font.c |    1 -
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/dlls/gdiplus/font.c b/dlls/gdiplus/font.c
index 84a742b..5a3b3df 100644
--- a/dlls/gdiplus/font.c
+++ b/dlls/gdiplus/font.c
@@ -688,12 +688,15 @@ GpStatus WINGDIPAPI GdipNewPrivateFontCollection(GpFontCollection** fontCollecti
  */
 GpStatus WINGDIPAPI GdipDeletePrivateFontCollection(GpFontCollection **fontCollection)
 {
-    FIXME("stub %p\n", fontCollection);
+    TRACE("%p\n", fontCollection);
 
-    if (!fontCollection)
+    if (!(fontCollection && *fontCollection))
         return InvalidParameter;
 
-    return NotImplemented;
+    GdipFree((*fontCollection)->FontFamilies);
+    GdipFree(*fontCollection);
+
+    return Ok;
 }
 
 /*****************************************************************************
diff --git a/dlls/gdiplus/tests/font.c b/dlls/gdiplus/tests/font.c
index 62ed0f9..9b14713 100644
--- a/dlls/gdiplus/tests/font.c
+++ b/dlls/gdiplus/tests/font.c
@@ -410,7 +410,6 @@ todo_wine
     }
 
     stat = GdipDeletePrivateFontCollection(&PrivateFontCollection);
-todo_wine
     expect(Ok, stat);
 }
 
-- 
1.5.4.3