From 03b2d09e798ab8d200b788f5c97833098851ad98 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Thu, 10 Mar 2005 10:14:10 +0000
Subject: hmsg for Hajo's editor

---
 src/GF/Shell/JGF.hs | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

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

diff --git a/src/GF/Shell/JGF.hs b/src/GF/Shell/JGF.hs
index 9404ababc..e3438a33c 100644
--- a/src/GF/Shell/JGF.hs
+++ b/src/GF/Shell/JGF.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/02/24 11:46:37 $ 
--- > CVS $Author: peb $
--- > CVS $Revision: 1.10 $
+-- > CVS $Date: 2005/03/10 11:14:11 $ 
+-- > CVS $Author: aarne $
+-- > CVS $Revision: 1.11 $
 --
 -- GF editing session controlled by e.g. a Java program. AR 16\/11\/2001
 -----------------------------------------------------------------------------
@@ -43,20 +43,20 @@ sessionLineJ isNew env = do
 -- the Boolean is a temporary hack to have two parallel GUIs
 editLoopJnewX :: Bool -> CEnv -> SState -> IO ()
 editLoopJnewX isNew env state = do
-  c <- getCommandUTF (isCEnvUTF8 env state) ----
+  (m,c) <- getCommandUTF (isCEnvUTF8 env state) ----
   case c of
     CQuit -> return ()
 
     c -> do
       (env',state') <- execCommand env c state
-      let inits = initAndEditMsgJavaX isNew env' state'
+      let inits = initAndEditMsgJavaX isNew env' state' m
       let package = case c of
             CCEnvImport _         -> inits
             CCEnvEmptyAndImport _ -> inits
             CCEnvOpenTerm _       -> inits
             CCEnvOpenString _     -> inits
             CCEnvEmpty            -> initEditMsgJavaX env'
-            _ -> displaySStateJavaX isNew env' state'
+            _ -> displaySStateJavaX isNew env' state' m
       putStrLnFlush package
       editLoopJnewX isNew env' state'
 
@@ -74,6 +74,6 @@ initEditMsgJavaX env = encodeUTF8 $ mkUnicode $ unlines $ tagXML "gfinit" $
            (file,lang) <- zip (allGrammarFileNames env) (allLanguages env)]
 
 
-initAndEditMsgJavaX :: Bool -> CEnv -> SState -> String
-initAndEditMsgJavaX isNew env state = 
-  initEditMsgJavaX env ++++ displaySStateJavaX isNew env state
+initAndEditMsgJavaX :: Bool -> CEnv -> SState -> String -> String
+initAndEditMsgJavaX isNew env state m = 
+  initEditMsgJavaX env ++++ displaySStateJavaX isNew env state m
-- 
cgit v1.2.3