Source file `b_empty.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
(* An empty widget. Does not draw anything, but can be used to get mouse focus.

This file is part of BOGUE *)

type t = {
    mutable size: int * int
  }

let size e = e.size

let create size =
  { size }

let resize size t =
  t.size <- size

let free _ = ()

let unload _ = ()

let display _ _ _ _ = []