diff options
Diffstat (limited to 'src/GF/Shell/Commands.hs')
| -rw-r--r-- | src/GF/Shell/Commands.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/GF/Shell/Commands.hs b/src/GF/Shell/Commands.hs index e6f7e9b40..4fb3048ee 100644 --- a/src/GF/Shell/Commands.hs +++ b/src/GF/Shell/Commands.hs @@ -409,8 +409,9 @@ displaySStateIn env state = (tree',msg,menu) where linAll = map lin grs separ = singleton . map unlines . intersperse [replicate 72 '*'] -displaySStateJavaX :: CEnv -> SState -> String -displaySStateJavaX env state = unlines $ tagXML "gfedit" $ concat [ +---- the Boolean is a temporary hack to have two parallel GUIs +displaySStateJavaX :: Bool -> CEnv -> SState -> String +displaySStateJavaX isNew env state = unlines $ tagXML "gfedit" $ concat [ tagXML "linearizations" (concat [tagAttrXML "lin" ("lang", prLanguage lang) ss | (lang,ss) <- lins]), tagXML "tree" tree, @@ -431,7 +432,7 @@ displaySStateJavaX env state = unlines $ tagXML "gfedit" $ concat [ zipper = stateSState state linAll = map lin lgrs gr = firstStateGrammar env - mark = markOptXML -- markOptJava + mark = if isNew then markOptXML else markOptJava langAbstract = language "Abstract" langXML = language "XML" |