home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / lisp / mcl / 1622 < prev    next >
Encoding:
Text File  |  1992-11-18  |  1.6 KB  |  44 lines
  1. Newsgroups: comp.lang.lisp.mcl
  2. Path: sparky!uunet!charon.amdahl.com!pacbell.com!sgiblab!sdd.hp.com!ux1.cso.uiuc.edu!mp.cs.niu.edu!uxa.ecn.bgu.edu!news.ils.nwu.edu!splat.ils.nwu.edu!user
  3. From: jona@ils.nwu.edu (Kemi Jona)
  4. Subject: window-size-parts question
  5. Message-ID: <jona-181192140437@splat.ils.nwu.edu>
  6. Followup-To: comp.lang.lisp.mcl
  7. Sender: usenet@ils.nwu.edu (Mr. usenet)
  8. Nntp-Posting-Host: splat.ils.nwu.edu
  9. Organization: Institute for the Learning Sciences
  10. Date: Wed, 18 Nov 1992 19:55:00 GMT
  11. Lines: 31
  12.  
  13. When creating a new window, it appears that window-size-parts gets called
  14. _before_ any subviews are added to it.  Is this intentional?  It seems like
  15. a mistake to me.  If you want to have a window's subviews adjust
  16. dynamically to the size of the window, you most certainly would want to
  17. have them also adjust to whatever :view-size initarg is supplied when that
  18. window is initially created.
  19.  
  20. Here's a simple test case:
  21.  
  22. (defclass test-dialog (dialog) ())
  23.  
  24. (defmethod window-size-parts ((d test-dialog))
  25.    (format t "Subviews of ~S are ~S~%" d (subviews d)))
  26.  
  27. (make-instance 'test-dialog 
  28.   :view-size #@(200 200)
  29.   :view-subviews (list (make-instance 'static-text-dialog-item)))
  30.  
  31.  
  32. Right now I have to call window-size-parts "manually" after all the
  33. subviews have been added, but before I show the window.
  34.  
  35. Any ideas?
  36.  
  37. --Kemi
  38.  
  39. ------------------------------------------------------------
  40. Kemi Jona           jona@ils.nwu.edu             
  41. Institute for the Learning Sciences, Northwestern University             
  42. 1890 Maple Ave., Rm.354, Evanston, IL 60201                  
  43. (708) 467-1969 or 491-3500     FAX: (708) 491-5258                
  44.