1
2
3
4
5
6
7
8
9
10
11
12
13
14
open! Core
open! Import
let redisplay = Funcall.Wrap.("redisplay" <: bool @-> return nil)
let redisplay ?(force = false) () = redisplay force
let inhibit_redisplay = Var.Wrap.("inhibit-redisplay" <: bool)
let display_monitor_attributes_list =
Funcall.Wrap.(
"display-monitor-attributes-list"
<: nullary @-> return (list (list (tuple Symbol.t value))))
;;
let monitor_attributes () = display_monitor_attributes_list ()