(Rim
  (Pen 2)
  (VBox
    (Shape
      (Width + Inf)
      (VTile
        (HBox
          (Shape
            (Width 150 + Inf)
            (Height 150 + Inf)
            (VBox
              (HBox
                (Frame Lowered (Button %bNew "New:"))
                (Glue 3)
                (Frame Lowered (TypeIn %oName ="Object #1")))
              (Frame Lowered (Browser %objects))
              (Frame Lowered (Button %bKill "Kill Object"))))
          (Glue 4)
          (Shape
            (Width 200 + Inf)
            (VBox
              (Frame
                Lowered
                (Radio %cpName
                  (HBox
                    (Choice %CleanupA =#TRUE "Cleanup A")
                    (Fill)
                    (Choice %CleanupB "Cleanup B")
                    (Fill)
                    (Choice %CleanupC "Cleanup C"))))
              (Frame Lowered (Browser %weakrefs))
              (Frame Lowered (Button %bWref "Create WeakRef")))))
        (Shape
          (Height 150 + Inf)
          (Width 250 + Inf)
          (Frame Lowered (TextEdit ReadOnly %transcript)))))
    (Frame Lowered (Button %bQuit "Quit"))))