Maybe this is just a stylistic thing, or maybe something else I don't understand. In the scribble demo, there's a function "label' that just draws the label box inside the window.
<div><br></div><div>Why is it defined like this:</div><div><br></div><div><div><span class="Apple-style-span" style="font-family: 'courier new', monospace;">(let* ((path (make-instance ns:ns-bezier-path)))</span></div>
<div><span class="Apple-style-span" style="font-family: 'courier new', monospace;">  (#/moveToPoint: path (ns:make-ns-point 10 10))</span></div><div><span class="Apple-style-span" style="font-family: 'courier new', monospace;">  (#/lineToPoint: path (ns:make-ns-point 10 40))</span></div>
<div><span class="Apple-style-span" style="font-family: 'courier new', monospace;">  (#/lineToPoint: path (ns:make-ns-point 90 40))</span></div><div><span class="Apple-style-span" style="font-family: 'courier new', monospace;">  (#/lineToPoint: path (ns:make-ns-point 90 10))</span></div>
<div><span class="Apple-style-span" style="font-family: 'courier new', monospace;">  (#/lineToPoint: path (ns:make-ns-point 10 10))</span></div><div><span class="Apple-style-span" style="font-family: 'courier new', monospace;">  (defun label (v)</span></div>
<div><span class="Apple-style-span" style="font-family: 'courier new', monospace;">    (#/drawAtPoint:withAttributes: #@"Scribble" (ns:make-ns-point 15 15) +null-ptr+)</span></div><div><span class="Apple-style-span" style="font-family: 'courier new', monospace;">    (#/stroke path)))</span></div>
</div><div><br></div><div><br></div><div>Instead of like this:</div><div><br></div><div><div><span class="Apple-style-span" style="font-family: 'courier new', monospace;">(defun label (v)</span></div><div><span class="Apple-style-span" style="font-family: 'courier new', monospace;">  (let* ((path (make-instance ns:ns-bezier-path)))   </span></div>
<div><span class="Apple-style-span" style="font-family: 'courier new', monospace;">    (#/moveToPoint: path (ns:make-ns-point 10 10))</span></div><div><span class="Apple-style-span" style="font-family: 'courier new', monospace;">    (#/lineToPoint: path (ns:make-ns-point 10 40))</span></div>
<div><span class="Apple-style-span" style="font-family: 'courier new', monospace;">    (#/lineToPoint: path (ns:make-ns-point 90 40))</span></div><div><span class="Apple-style-span" style="font-family: 'courier new', monospace;">    (#/lineToPoint: path (ns:make-ns-point 90 10))</span></div>
<div><span class="Apple-style-span" style="font-family: 'courier new', monospace;">    (#/lineToPoint: path (ns:make-ns-point 10 10))</span></div><div><span class="Apple-style-span" style="font-family: 'courier new', monospace;">    (#/fill path)</span></div>
<div><span class="Apple-style-span" style="font-family: 'courier new', monospace;">    (#/drawAtPoint:withAttributes: #@"Scribble" (ns:make-ns-point 15 15) +null-ptr+)<br></span></div><div><span class="Apple-style-span" style="font-family: 'courier new', monospace;">    (#/stroke path)))</span></div>
</div><div><br></div><div><br></div><div>Does putting the defun inside the let do something different than putting the let inside the defun?</div><div><br></div><div>Neil</div>