1    begin@ window
2    
3    type Window @mut =
4        inherit Indirect
5    
6        var obs header = ""
7        var obs content : Option<Control> @dst = None
8        var obs color = Vector3 1 1 1
9    
10       local captured : Atom<Option<Control>> @auto
11       local remove_window : Window -> Unit @auto
12