[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
problems opening temporary window
Date: Fri, 10 Jun 88 14:11:00 EDT
From: email@example.com (Greg Fisher)
I am trying to create a window of the same sort used by the file
system in the rename command in order to read in a file name. I am
trying to use the following code.
(defun popup-accept (type &rest accept-args)
(using-resource (minibuffer zwei:editor-for-temporary-mini-buffer-resource)
(send minibuffer ':call-mini-buffer-near-window tv:selected-window
#'(lambda () (apply #'zwei:typein-line-accept type accept-args)))))
(you can then just do (popup-accept '((pathname)) :prompt "Enter file to delete"))
I think there's something like this in the system somewhere but it was
faster to write one than to look for it in the documentation.
(defun getname ()
(let ((window (tv:make-window 'tv:temporary-typeout-window)))
(send window :select)
(send window :deactivate)))
This code fails catastrophically, forcing me to reboot the machine
each time. It gives me an error message saying that the screen window
could not handle the :draw-bottom-line message.
Anyone know how a window of this sort can be opened and used?
I'm not surprised. A typeout window sits on top of another -- it's the
kind you get when you type the BREAK key in an editor.