problems opening temporary window

[Len%AIP1%TSD%atc.bendix.com@RELAY.CS.NET]

Date: Tue, 14 Jun 88 11:39 EDT
From: Len Moskowitz <Len@HEART-OF-GOLD>
Subject: problems opening temporary window
To: "3077::IN%\"fisher%ctt.bellcore.com@flash.bellcore.com\""@TSD1,
    "3077::IN%\"SLUG@AI.SRI.COM\""@TSD1
In-Reply-To: Your message of 11 Jun 88 06:51 EDT
Message-ID: <880614113923.4.LEN@HEART-OF-GOLD>
 
Here's a code fragment that may do what you want:
 
(let* ((default-pathname (fs:default-pathname))
	 ;; This next function is the one used by FSedit to rename files.
	 ;; See TREE-EDIT-READ-LOCAL-PATH in >rel-7>lmfs>fsedit.lisp.
	 (typein (lexpr-send #'zwei:typein-line-readline-near-window 
			     ':mouse `("~&Enter a file name (default) ~A" ,default-pathname))))
    (unless (eq typein t)			;aborted
	<code body goes here>
	))
 
Len Moskowitz
 
moskowitz@bendix.com (CSnet)                     U.S. Mail: Bendix TSD
moskowitz%bendix.com@relay.cs.net (ARPAnet)                 Mail code 4/8
arpa!relay.cs.net!bendix.com!moskowitz (uucp)               Teterboro, NJ 07608
moskowit@paul.rutgers.edu (Alternate ARPAnet)