Adding a Button</h2>
    </div>

    <p>Once we have a window on the screen, we might like to put
    something in it. Let's start by adding a button.</p>

    <p>Creating a button object is as simple as creating a window
    object; we simply allocate one:</p>

    <pre>
(setf my-button (#/alloc ns:ns-button))
#&lt;NS-BUTTON &lt;NSButton: 0x13b7bec0&gt; (#x13B7BEC0)&gt;
    </pre>

    <p>As with the window, most of the interesting work is in
    configuring the allocated button after it's allocated.</p>

