{value
    let r:RectangleGraphic =
        {RectangleGraphic
            width = 1in,
            height = 0.5in,
            {context-popup
                menu-pane =
                    {MenuPane
                        {MenuAction label = "Blue Fill",
                            {on Action do
                                set r.fill-color = "blue"
                            }
                        },
                        {MenuAction label = "Red Fill",
                            {on Action do
                                set r.fill-color = "red"
                            }
                        },
                        {menu-separator},
                        {MenuAction label = "Make bigger",
                            {on Action do
                                set r.width = r.width * 1.2
                                set r.height = r.height * 1.2
                            }
                        },
                        {MenuAction label = "Make smaller",
                            {on Action do
                                set r.width = r.width / 1.2
                                set r.height = r.height / 1.2
                            }
                        }
                    }
            }
        }
    r
}