From 436cb76dd35cb68f3fa73f7d8c561dc086f253ed Mon Sep 17 00:00:00 2001
From: =?utf8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Thu, 22 Oct 2015 23:14:55 +0200
Subject: [PATCH] windows.uniscribe: add SSA_FALLBACK and SSA_TAB to the flags,
 should fix #860

---
 basis/windows/uniscribe/uniscribe.factor | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/basis/windows/uniscribe/uniscribe.factor b/basis/windows/uniscribe/uniscribe.factor
index 4f9142066d..1c6c78ff53 100755
--- a/basis/windows/uniscribe/uniscribe.factor
+++ b/basis/windows/uniscribe/uniscribe.factor
@@ -1,11 +1,10 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel assocs math sequences fry io.encodings.string
-io.encodings.utf16n accessors arrays combinators destructors
-cache namespaces init fonts alien.c-types alien.data
-windows.usp10 windows.offscreen windows.gdi32 windows.ole32
-windows.types windows.fonts opengl.textures locals
-windows.errors classes.struct ;
+USING: accessors alien.c-types alien.data arrays assocs cache
+classes.struct combinators destructors fonts init io.encodings.string
+io.encodings.utf16n kernel literals locals math namespaces sequences
+windows.errors windows.fonts windows.gdi32 windows.offscreen
+windows.ole32 windows.types windows.usp10 ;
 IN: windows.uniscribe
 
 TUPLE: script-string < disposable font string metrics ssa size image ;
@@ -29,13 +28,15 @@ TUPLE: script-string < disposable font string metrics ssa size image ;
 
 <PRIVATE
 
+CONSTANT: ssa-dwFlags flags{ SSA_GLYPHS SSA_FALLBACK SSA_TAB }
+
 : make-ssa ( dc script-string -- ssa )
     dup selection? [ string>> ] when
     [ utf16n encode ] ! pString
     [ length ] bi ! cString
     dup 1.5 * 16 + >integer ! cGlyphs -- MSDN says this is "recommended size"
     -1 ! iCharset -- Unicode
-    SSA_GLYPHS ! dwFlags
+    ssa-dwFlags
     0 ! iReqWidth
     f ! psControl
     f ! psState
-- 
2.34.1