(define make-frame
  (lambda (p v?)
    (new (if v?
	     vertical-panel%
	     horizontal-panel%)
	 (parent p)
	 (alignment '(left top))
	 (stretchable-width #f)
	 (stretchable-height #f))))