[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

program frame smaller than screen size

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
			   :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