1    type Menu @mut =
2        inherit Container
3    
4        let wrap_panel = WrapPanel.new
5        val items @dst = wrap_panel.items
6        let rectangle = Rectangle
7            color = Colors.menu
8            wrap_panel
9    
10       def Container.get_slice = SafeSlice<Control>.create rectangle@ptr 1
11   
12       def Control.measure w h =
13           measure_single_child self w h
14   
15       def Control.arrange =
16           arrange_single_child self
17