GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-08 02:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

(non)utf8 input in GUI

Browse Source
This commit is contained in:
aarne
2004-08-12 18:29:35 +00:00
parent 35f8c76210
commit ca280d8d31
3 changed files with 16 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/GF/Shell/Commands.hs
View File

@@ -441,6 +441,15 @@ displaySStateJavaX isNew env state = encodeUTF8 $ mkUnicode $
Just lang -> optDecodeUTF8 (stateGrammarOfLang env (language lang))
_ -> id
-- the env is UTF8 if the display language is
--- should be independent
isCEnvUTF8 :: CEnv -> SState -> Bool
isCEnvUTF8 env st = maybe False id $ do
lang <- getOptVal opts menuDisplay
co <- getOptVal (stateOptions (stateGrammarOfLang env (language lang))) uniCoding
return $ co == "utf8"
where
opts = addOptions (optsSState st) (globalOptions env)
langAbstract = language "Abstract"
langXML = language "XML"