program frame smaller than screen size

[s9274%srl1@Warbucks.AI.SRI.COM]

The following works for a temporary window, and should be applicable to
a "permanent" one with a little extra work.

(defun invoke-program-frame (flavor)
  (catch 'egress				;THROW here to exit
    (using-resource (frame dw:program-frame flavor
			   (tv:mouse-default-superior)
			   :temporary-p t :process nil)
      (send frame :set-inside-size 500 500)	;arbitrary, but seems like a good size
      (tv:expose-window-near frame '(:mouse) nil nil)
      (tv:window-call (frame :deactivate)
	(dw:program-frame-top-level frame)))))

John Krieger
s9274@srl1.lanl.gov