aboutsummaryrefslogtreecommitdiff
path: root/selection.mli
blob: fb207e4026ee7b172897418ab434d9eb8e0013fa (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
type t

type axe =
  | Horizontal of int
  | Vertical of int
  | Cell of (int * int)

(** Create a new selection from a cell *)
val create: (int * int) -> t

val is_selected: axe -> t -> bool

(** Get the selection origin *)
val extract: t -> (int * int)

val shift: t -> (int * int) -> (int * int)

val fold: ('a -> int * int -> 'a) -> 'a -> t -> 'a

val extends:  Actions.direction -> t -> t