GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-08 02:32:50 -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

7
src/GF/UseGrammar/Session.hs
View File

@@ -5,9 +5,9 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/06/11 20:27:05 $
-- > CVS $Date: 2005/08/17 15:13:55 $
-- > CVS $Author: aarne $
-- > CVS $Revision: 1.11 $
-- > CVS $Revision: 1.12 $
--
-- (Description of the module)
-----------------------------------------------------------------------------
@@ -88,6 +88,7 @@ removeClip n ss@((s,(ts,cb),(i,b)):_) = (s,(ts, drop n cb),(i,b)) : ss
changeMsg :: [String] -> ECommand
changeMsg m ((s,ts,(_,b)):ss) = (s,ts,(m,b)) : ss -- just change message
changeMsg m _ = (s,ts,(m,b)) : [] where [(s,ts,(_,b))] = initSState
changeView :: ECommand
changeView ((s,ts,(m,(v,b))):ss) = (s,ts,(m,(v+1,b))) : ss -- toggle view
@@ -126,7 +127,7 @@ undoCommand :: Int -> ECommand
undoCommand n ss =
let k = length ss in
if k < n
then changeMsg ["cannot go all the way back"] []
then changeMsg ["cannot go all the way back"] [last ss]
else changeMsg ["successful undo"] (drop n ss)
selectCand :: CGrammar -> Int -> ECommand