EdActionType.dcl 314 Bytes
Newer Older
Diederik van Arkel's avatar
Diederik van Arkel committed
1
2
definition module EdActionType

3
4
5
import	StdOverloaded
import	EdMovement
from	EdText			import :: TextFragment
Diederik van Arkel's avatar
Diederik van Arkel committed
6
7
8
9
10
11
12
13
14
15
16
17
18

:: Action
	= Move		Movement
	| Insert	TextFragment
	| Scroll	Movement
	| Select	Movement
	| Remove	Movement

instance toString Action
instance fromString Action
instance == Action

allActions		:: [Action]