GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-03 16:22:52 -06:00
Code Issues Packages Projects Releases Wiki Activity

edit command ct pos1 pos2; fixed undo bug

Browse Source
This commit is contained in:
aarne
2005-08-17 14:13:55 +00:00
parent dfba9956ae
commit b235391d51
3 changed files with 14 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -5,9 +5,9 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/08/17 14:43:50 $
-- > CVS $Date: 2005/08/17 15:13:55 $
-- > CVS $Author: aarne $
-- > CVS $Revision: 1.40 $
-- > CVS $Revision: 1.41 $
--
-- temporary hacks for GF 2.0
--
@@ -76,7 +76,7 @@ data Command =
| CTop
| CLast
| CMovePosition [Int]
| CCopyPosition [Int]
| CCopyPosition [Int] [Int]
| CRefineWithTree String
| CRefineWithClip Int
| CRefineWithAtom String
@@ -257,12 +257,13 @@ execECommand env c = case c of
in (case et of
Ok t -> refineByTrees der cgr [t] s
Bad m -> changeMsg [m] s)
CCopyPosition p -> action2command $ \s -> do
CCopyPosition p q -> action2command $ \s -> do
s1 <- goPosition p s
let t = actTree s1
let compat = actVal s1 == actVal s
s2 <- goPosition q s1
let compat = actVal s1 == actVal s2
if compat
then refineWithTree der cgr t s
then refineWithTree der cgr t s2
else return s
CRefineParse str -> \s ->