graphix-package-gui 0.8.0

A dataflow language for UIs and network programming, GUI package
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

use str;

type Shortcut = {alt: bool, ctrl: bool, key: string, logo: bool, shift: bool};

let shortcut = |#ctrl = false, #shift = false, #alt = false, #logo = false, key: string|
    -> [Shortcut, Error<`InvalidKey(string)>]
    select str::len(key) {
        1 => {alt, ctrl, key, logo, shift},
        _ => error(`InvalidKey("shortcut key must be exactly one character, got: [key]"))
    };

let action = |
  #on_click: fn(e: null) -> Any = |_| null,
  #shortcut: &[Shortcut, null] = &null,
  #disabled: &bool = &false,
  label: &string
| -> MenuItem `Action({ label, shortcut, on_click: &on_click, disabled });

let divider = || -> MenuItem `Divider;

let menu = |
  label: &string,
  items: &Array<MenuItem>
| -> MenuGroup { label, items };

let context_menu = |items: &Array<MenuItem>, child: &Widget|
    -> Widget `ContextMenu({ child, items });

let bar = |
  #width: &Length = &`Shrink,
  menus: &Array<MenuGroup>
| -> Widget `MenuBar({ menus, width })