From 54947d3e4c7bdcbfa3e00a8eb17c7f0b9696664a Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Sun, 2 May 2004 08:21:25 +0000
Subject: gt Term

---
 src/GF/Shell/Commands.hs | 2 ++
 src/GF/Shell/PShell.hs   | 1 +
 2 files changed, 3 insertions(+)

(limited to 'src/GF/Shell')

diff --git a/src/GF/Shell/Commands.hs b/src/GF/Shell/Commands.hs
index 19148c1bc..678d3d7da 100644
--- a/src/GF/Shell/Commands.hs
+++ b/src/GF/Shell/Commands.hs
@@ -238,6 +238,8 @@ execECommand env c = case c of
                            replaceByTermCommand der gr c (actTree (stateSState s)) s
 ----                          "transfer" -> action2commandNext $
 ----                                       transferSubTree (stateTransferFun sgr) gr
+                         "generate" -> \s ->
+                           replaceByTermCommand der gr c (actTree (stateSState s)) s
                          _ -> replaceByEditCommand gr c
 
   CAddOption o       -> changeStOptions (addOption o)
diff --git a/src/GF/Shell/PShell.hs b/src/GF/Shell/PShell.hs
index befdb8ea2..7a7f1e702 100644
--- a/src/GF/Shell/PShell.hs
+++ b/src/GF/Shell/PShell.hs
@@ -73,6 +73,7 @@ pCommand ws = case ws of
   "gr" : []     -> aUnit   CGenerateRandom
   "gr" : t      -> aTerm   CGenerateRandom t
   "gt" : []     -> aUnit   CGenerateTrees
+  "gt" : t      -> aTerm   CGenerateTrees t
   "pt" : s      -> aTerm   CPutTerm s
 -----  "wt" : f : s  -> aTerm   (CWrapTerm (string2id f)) s
   "ma" : s      -> aString CMorphoAnalyse s
-- 
cgit v1.2.3