! Copyright (C) 2009 Slava Pestov.
-! See http://factorcode.org/license.txt for BSD license.
+! See https://factorcode.org/license.txt for BSD license.
USING: accessors alien.c-types alien.data arrays assocs
byte-arrays cache classes.struct colors combinators destructors
-fonts images init io.encodings.string io.encodings.utf16n kernel
+fonts images init io.encodings.string io.encodings.utf16 kernel
literals locals math math.bitwise math.functions namespaces
sequences specialized-arrays windows.errors windows.fonts
windows.gdi32 windows.offscreen windows.ole32 windows.types
[ [ { 0 0 } ] dip <RECT> ]
[
[let :> str str selection-start/end
- [
- str string>> dup selection? [ string>> ] when
- swap >utf16-index
- ] bi@
+ [
+ str string>> dup selection? [ string>> ] when
+ swap >utf16-index
+ ] bi@
]
] tri*
! iMinSel
] with-memory-dc
] unless image>> ;
-[ <cache-assoc> cached-script-strings set-global ]
-"windows.uniscribe" add-startup-hook
+STARTUP-HOOK: [ <cache-assoc> cached-script-strings set-global ]