From 54c72f5ab023c0cdac83eb28dd1f81d4cd35aeae Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 11 Nov 2003 15:44:24 +0000
Subject: Working with interfaces.

Working with interfaces.
Created new place for grammar parsers.
Created new script jgf2+.
---
 src/GF/Shell/Commands.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/GF/Shell/Commands.hs')

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"
-- 
cgit v1.2.3