1    type Linked
2    
3    type TextBlock @mut =
4        inherit Control
5    
6        let get_font : String -> Font @auto
7    
8        var obs text = ""
9        var obs font_size : u32 = 24
10   
11       val font@obs =
12           let s = "jetbrains_mono/${font_size@obs}"
13           get_font s
14   
15       var obs max_text_width = u32.max
16       var obs char_margins_height : u32 = 0
17       var obs color = Vector3.color "FFFFFF"
18       var obs is_rgba = false
19       var obs allow_commands = true
20       var linked : Option<List<Linked>> = None
21       var offsets = List<Bounds>.empty
22   
23       font@atom.bind { x ->
24           char_margins_height =
25               let margin = x.margin
26               x.height + margin.up + margin.down } |> push_token
27   
28       def Control.arrange = ()
29