windows.gdiplus: call GdiplusStartup and GdiplusShutdown in startup/shutdown hooks

[factor.git] / basis / windows / gdiplus / gdiplus.factor

diff --git a/basis/windows/gdiplus/gdiplus.factor b/basis/windows/gdiplus/gdiplus.factor
index 83d285b0def3dbe306569038e2a53ba58b2f5093..e9593d5768555a81f87e746e651b5772453b1b66 100644 (file)
--- a/basis/windows/gdiplus/gdiplus.factor
+++ b/basis/windows/gdiplus/gdiplus.factor
@@ -1648,3 +1648,8 @@ CONSTANT: standard-gdi+-startup-input
     GdiplusShutdown ;
 
 DESTRUCTOR: stop-gdi+
+
+SYMBOL: gdi-token
+
+[ start-gdi+ gdi-token set-global ] "windows.gdiplus" add-startup-hook
+[ gdi-token get-global [ stop-gdi+ ] when* ] "windows.gdiplus" add-shutdown-hook