home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / lisp / mcl / 1333 < prev    next >
Encoding:
Text File  |  1992-08-28  |  1.7 KB  |  44 lines
  1. Path: sparky!uunet!mcsun!uknet!comlab.ox.ac.uk!oxuniv!usher
  2. From: usher@vax.oxford.ac.uk
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: ex
  5. Message-ID: <1992Aug27.151228.8537@vax.oxford.ac.uk>
  6. Date: 27 Aug 92 14:12:28 GMT
  7. Organization: Oxford University VAX 6620
  8. Lines: 34
  9.  
  10. Hi,
  11.     I am having some problems trying to switch from a window I have
  12. generated back to the Listener.  The function being called (action-press)
  13.  runs fine when called from the listener direct however when called by
  14. clicking the "Action" button the function Action-press runs up to the
  15. read-line command, then freezes the screen until Apple period is used to
  16. interupt the function.
  17.     I am using MCL 2.0 on a IIcx.  I feel that the problem may be to do
  18. with the input/output streams being wrong, but have been unable to prove that
  19. this is so, or find a solution.
  20.  
  21. (defun window ()
  22.   (setq window (MAKE-INSTANCE 'DIALOG
  23.                                 :WINDOW-TYPE :DOCUMENT-WITH-ZOOM 
  24.                                 :window-title "window"
  25.                                 :VIEW-SUBVIEWS
  26.                                 (LIST (make-dialog-item 'button-dialog-item
  27.                                                         #@(14 5)
  28.                                                        #@(60 15)
  29.                                                         "Action"
  30.                                                          #'(lambda ( frame)
  31.                                                             frame
  32.                                                             (action-press
  33. )))))))
  34.  
  35. (defun action-press ()
  36.   (window-select (find-window "Listener"))
  37.   (pprint "Started")
  38.     (read-line )
  39.     (pprint "Finished"))
  40.  
  41. Many thanks for any help or advice you can give me
  42.  
  43. Tom Usherwood
  44.