{define-proc {make-paned-window ...}:PanedWindow
    def pw1 = 
        {PanedWindow height = 2in, background = "cyan", {splice ...}}

    {pw1.add-pane
        {RadioFrame
            width = 1in,
            {VBox margin = 4px, spacing = 4px,
                {RadioButton label = "Monday"},
                {RadioButton label = "Tuesday"},
                {RadioButton label = "Wednesday"},
                {RadioButton label = "Thurs"}
            }
        }
    }
    {pw1.add-pane
        {RadioFrame
            width = 1in,
            {VBox margin = 4px, spacing = 4px,
                {RadioButton label = "Friday"},
                {RadioButton label = "Saturday"},
                {RadioButton label = "Sunday"}
            }
        }
    }
    {return pw1}
}

{make-paned-window sash-border-color = "red"}

{def pw =
    {PanedWindow
        orientation = Orientation.horizontal,
        background = "tan",
        height=5cm, width = 9cm
    }
}

{pw.add-pane {text Pane One is here.}}

{pw.add-pane {bold Here is Pane 2.}}

{value pw}