home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / alt / lucidem / help / 832 < prev    next >
Encoding:
Text File  |  1992-12-30  |  1.0 KB  |  32 lines
  1. Path: sparky!uunet!dtix!mimsy!lhc!lhc!warsaw
  2. From: warsaw@nlm.nih.gov (Barry A. Warsaw)
  3. Newsgroups: alt.lucid-emacs.help
  4. Subject: Q: *creating* a new screen w/ geom
  5. Message-ID: <WARSAW.92Dec30145241@anthem.nlm.nih.gov>
  6. Date: 30 Dec 92 19:52:41 GMT
  7. Sender: news@nlm.nih.gov
  8. Reply-To: warsaw@nlm.nih.gov (Barry A. Warsaw)
  9. Organization: Century Computing, Inc.
  10. Lines: 20
  11.  
  12.  
  13. Please excuse the newbie Q. Is there a way, in lisp, to *create* a
  14. screen at a given location and size?  I use the following defuns to
  15. first create, then move/resize a new screen, but that seems
  16. inefficient. There's gotta be a better way, right?
  17.  
  18. Thanks,
  19. -Barry
  20.  
  21. (defun baw:set-screen-geom (x y width height &optional screen)
  22.   (let* ((params (screen-parameters))
  23.      (top  (cdr (assoc 'top params)))
  24.      (left (cdr (assoc 'left params)))
  25.      (screen (or screen (selected-screen))))
  26.     (set-screen-position screen (- x left) (- y top))
  27.     (set-screen-size screen width height)))
  28.  
  29. (defun baw:new-left-screen ()
  30.   (interactive)
  31.   (baw:set-screen-geom 0 0 80 58 (x-new-screen)))
  32.