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            parent = self
8            color = Colors.menu
9            wrap_panel
10   
11       def Container.get_slice = SafeSlice<Control>.create rectangle@ptr 1
12   
13       def Control.measure w h =
14           measure_single_child self w h
15   
16       def Control.arrange =
17           arrange_single_child self
18