home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / lang / lisp / mcl / 1369 < prev    next >
Encoding:
Internet Message Format  |  1992-09-15  |  1.7 KB
  1. Path: sparky!uunet!haven.umd.edu!darwin.sura.net!wupost!sdd.hp.com!elroy.jpl.nasa.gov!ames!data.nas.nasa.gov!taligent!apple!apple!cambridge.apple.com!bill@cambridge.apple.com
  2. From: bill@cambridge.apple.com (Bill St. Clair)
  3. Newsgroups: comp.lang.lisp.mcl
  4. Subject: Re: window-zoom-event-handler (C-X 1)
  5. Message-ID: <9209152312.AA16232@cambridge.apple.com>
  6. Date: 16 Sep 92 00:18:41 GMT
  7. Sender: info-mcl-request@cambridge.apple.com
  8. Lines: 28
  9. Approved: comp.lang.lisp.mcl@Cambridge.Apple.C0M
  10. Full-Name: Bill St. Clair
  11. Original-To: squeegee@world.std.com (Stephen C. Gilardi)
  12. Original-Cc: info-mcl
  13.  
  14. >Dear info-mcl:
  15. >
  16. >I tried to make "C-X 1" zoom the window to full screen similar to
  17. >the EMACS command of the same keystroke.  Based on the examples,
  18. >I tried this:
  19. >
  20. >(defmethod ed-zoom-window ((w fred-mixin))
  21. >  (window-zoom-event-handler w 8))
  22. >
  23. >(comtab-set-key *control-x-comtab* '(#\1) 'ed-zoom-window)
  24. >
  25. >That works a little, but it doesn't update the window properly.
  26. >To see this you could try loading the forms above and then
  27. >trying "C-X 1" on a newly opened "Fred Commands" window.  I tried
  28. >"inval"-ing certain things at certain times, but nothing worked.
  29. >
  30. >Could someone please clue me in on how to make "C-X 1" work.  I thought
  31. >"C-X 0" might be a good name for a command to Zoom a window down to
  32. >its small size --> (window-zoom-event-handler 7).
  33.  
  34. Your example works fine for me in 2.0 final, but fails in the way
  35. you outline in 2.0b1. The reason was not immediately apparent to me,
  36. but it seems to be a timing problem of some sort. If I
  37. (trace window-size-parts), which causes a delay to print stuff in
  38. the Listener between the time the window is zoomed and when it is
  39. redisplayed, then it works fine.
  40.  
  41. Are you indeed using 2.0b1?
  42.