1   type QuadControl @mut =
2       inherit Control
3   
4       var obs size = Size.new
5   
6       def Control.measure _ _ = ()
7       def Control.arrange = ()
8